Fusionner des fichiers excel de multiples classeurs

Fermé

muiigisha Messages postés 61 Date d'inscription lundi 25 septembre 2017 Statut Membre Dernière intervention 6 décembre 2017 - 25 sept. 2017 à 10:39
f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 - 26 sept. 2017 à 17:35

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:

Fusionner des fichiers excel de multiples classeurs
Liste déroulante excel - Guide
Comment fusionner des pdf sans logiciel - Guide
Fusionner des fichiers excel - Guide
Fusionner deux cellules excel - Guide
Renommer des fichiers en masse - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
25 sept. 2017 à 14:16

Bonjour,

j'ai utilisé votre code pour la fusion des feuilles excel,
Certes, mais lequel??????

muiigisha Messages postés 61 Date d'inscription lundi 25 septembre 2017 Statut Membre Dernière intervention 6 décembre 2017
26 sept. 2017 à 15:34

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à

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713 > muiigisha Messages postés 61 Date d'inscription lundi 25 septembre 2017 Statut Membre Dernière intervention 6 décembre 2017
26 sept. 2017 à 17:35

Bonjour,

si vous n'avez rien modifie, peu pas marcher.........!!

Réponse 2 / 2

muiigisha Messages postés 61 Date d'inscription lundi 25 septembre 2017 Statut Membre Dernière intervention 6 décembre 2017
25 sept. 2017 à 17:01

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

Discussions similaires

Impossible fusionner cellules