Fusionner des fichiers excel de multiples classeurs

muiigisha Messages postés 61 Statut Membre -  
f894009 Messages postés 17414 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
A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

j'ai utilisé votre code pour la fusion des feuilles excel,
Certes, mais lequel??????
0
muiigisha Messages postés 61 Statut Membre
  
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à
0
f894009 Messages postés 17414 Date d'inscription   Statut Membre Dernière intervention   1 715 > muiigisha Messages postés 61 Statut Membre
 
Bonjour,

si vous n'avez rien modifie, peu pas marcher.........!!
0
Réponse 2 / 2
muiigisha Messages postés 61 Statut Membre
 
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
0

Discussions similaires

Impossible fusionner cellules
aubli -
Christian -

3 réponses
Reactiver la fusion des cellules, tableau exc
chector10 -
chector10 -

38 réponses