Fusionner des fichiers excel de multiples classeurs
muiigisha
Messages postés
61
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai utilisé votre code pour la fusion des feuilles excel, bien qu'il y'ait pas d'erreurs le code ne fait rien. J'ai essayé de regardé le contenu de chemein et fichier à chaque compilation mais il s'avère que fichier reste vide à chaque fois.
mes feuilles ont pour extension xlsm. Je débute en vba
Merci d'avance pour votre aide
j'ai utilisé votre code pour la fusion des feuilles excel, bien qu'il y'ait pas d'erreurs le code ne fait rien. J'ai essayé de regardé le contenu de chemein et fichier à chaque compilation mais il s'avère que fichier reste vide à chaque fois.
mes feuilles ont pour extension xlsm. Je débute en vba
Merci d'avance pour votre aide
2 réponses
-
Bonjour,
j'ai utilisé votre code pour la fusion des feuilles excel,
Certes, mais lequel??????-
Sub recup()
Dim Chemin As Object, Fichier As Range
Application.ScreenUpdating = True
Range("A1").Select 'sélectionner la cellule de début
Chemin = "C:" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.xlsm") ' Premier fichier"
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Range("CombinedF").Copy
ThisWorkbook.Activate
ActiveSheet.Paste
Windows(Fichier).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=True
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop
End Sub
Bonjour celui-là
-
-
j'ai trouvé une autre solution pour arriver à mes fins, par contre j'aimerai supprimer des lignes doublons sans m'appuyer sur une colonne car il faudrait vraiment que tout soit identique. N'y aurait-il pas un autre moyen que de faire une boucle qui vérifierai une ligne avec les 55 milles autres?
merci d'avance
