[Catégorie modifiée .Net - VBA] copier toutes les feuilles d'un ensemble de fic

Question

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

cs_Jack · Answer

Salut

Le VB des Office n'est pas du .Net mais du VBA (Catégorie).
--> Prends-en note pour les prochaines fois

Fichiersource est le nom du fichier.
Peut-être faudrait-il l'ouvrir avant de vouloir l'activer.
(et bien sûr le refermer avant de passer au suivant)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

[Catégorie modifiée .Net -> VBA] copier toutes les feuilles d'un ensemble de fic

1 réponse

Votre réponse

Discussions similaires