Copier toutes les feuilles d'un ensemble de fichiers Excel
Bonjour,
J'essaie de copier toutes les feuilles d'un ensemble de fichiers Excel se trouvant dans un même répertoire, dans un fichier Excel de compilation contenant le code suivant.
Malheureument il ne fonctionne pas comme prévu.
Quelqu'un pourrait-il m'aider ?
Merci !
Dimitri
Sub Copier()
Chemin = "C:\...\" 'Répertoire où se trouvent les Excel à compiler
Fichiersource = Dir(Chemin & "*.xlsx") ' Premier fichier à compiler
Fichiercible = ThisWorkbook.Name ' Fichier de compilation
Do While Fichiersource <> ""
Workbooks(Fichiersource).Activate
For Each Feuille In Workbooks(Fichiersource).Worksheets
Feuille.Copy After:=Workbooks(Fichiercible).Sheets(1)
Next Feuille
Fichiersource = Dir ' Fichier suivant
Loop
End Sub
Bonjour
J'ai la solution pour copier des dossiers très rapidement
d'une source vers une cible.
Je ne sais pas si cela pourra t'aider mais ???
http://www.01net.com/telecharger/windows/Utilitaire/sauvegarde/fiches/11135.html
A+
JEFF
Non, j'ai besoin d'un code VBA qui : ouvre tous les fichiers XLS d'un répertoire, copie tout leur contenu (feuille par feuille) et colle toute ces feuilles dans un autre fichier Excel.
Bonjour Dimitri le forum
bien que pas très d'accord avec ton multipostage non annoncé
voilà un fichier en retour, tu copies ce fichier dans le dossier que tu souhaites voir traité, et tu ouvres ce fichier et tu cliques sur le bouton copier
a+
papou
Re dimitri le forum
il y avait une erreur dans le V1 voilà rectifié
a+
papou
Merci beaucoup !