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 17209 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 décembre 2024 - 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
Fusionner des fichiers excel - Guide
Comment fusionner des pdf sans logiciel - Guide
Si et excel - Guide
Fusionner deux cellules excel - Guide

2 réponses

Réponse 1 / 2

f894009 Messages postés 17209 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 décembre 2024 1 711
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 17209 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 décembre 2024 1 711 > 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

comment donner les droits sur fichier partage