Copier/ coller en valeur tous le contenu d'une feuil excel à une autre feuil sous vba

sofiabenyechi

Nouveau membre
Bonjour,

Je veux copier le contenu d'une feuille Excel et le coller par valeur dans une autre feuille Excel.
Pour éviter une liaison entre les deux fichiers, les formules....

pour l'instant j'utilise le code suivant :
Workbooks(NomFichier).Worksheets("Habilitation").Value = Workbooks("Habilitation.xlsm").Worksheets("Form").Value

il copier / colle bien le contenu sauf que dans des case j'ai toujours les formules et dans d'autre ils sont toujours présenter comme des listes déroulante.

NB : Sachant que je veux garder la même mise en forme
 

sofiabenyechi

Nouveau membre
Oui, c'est ce que je fais mtn, mais ce n'ai toujours pas le résultat que je veux : il m'affiche les formules dans le nouveau fichier excel. en plus les deux fichiers sont en liaison !
Voici le code complet pour avoir une idée claire de ce que j'ai fait

Private Sub CréerDemande_Click()

On Error GoTo gestionErreurs

Dim wb As Workbook
Dim i, NbrFeuil As Integer
Dim Chemin, CheminDeSauvgarde, Feuil As String

'Structurer le NomFichier
Dim NomFichier As String
NomFichier = "Habilitation_" & Year(Now) & Month(Now) & Day(Now) & "_" & Hour(Now) & Minute(Now) & Second(Now) & ".xlsx"

'Créer un nouveau fichier
Set NewBook = Workbooks.Add

'Récupérer le chemin d'accès à Documents, l'endroit ou on va sauvegarder le fichier
CheminDeSauvgarde = Rep_Documents()

'Renommer et Enregistrer le fichier le fichier
NewBook.SaveAs CheminDeSauvgarde & "\" & NomFichier

'Renommer la Feuil1 par Habilitation
Workbooks(NomFichier).Worksheets("Feuil1").Name = "Habilitation"

'Retourne nombre de feulle dans le fichier excel
NbrFeuil = Worksheets.Count

'Verifier si les feuils existent et les supprimer
Application.DisplayAlerts = False
Set wb = Workbooks(NomFichier)
For i = 2 To NbrFeuil
Feuil = "Feuil" & i
If WorksheetExists(Feuil, wb) = True Then
Workbooks(NomFichier).Worksheets(Feuil).Delete
End If
Next
Application.DisplayAlerts = True

'Copier le contenu du fichier dans le nouveau
Workbooks("Habilitation.xlsm").Worksheets("Form").Cells.Copy Workbooks(NomFichier).Worksheets("Habilitation").Range("A1")


'Recuperer le chemin d'accès du fichier
Chemin = Workbooks(ActiveWorkbook.Name).Path
CheminComplet = Workbooks(ActiveWorkbook.Name).FullName

'Fermer et sauvegarder le fichier : True si sauvegarde (False sans sauvegarde)
Workbooks(NomFichier).Close True

End Sub
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 055
Membres
1 586 282
Dernier membre
Yannick3553
Partager cette page
Haut