Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1438 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  copier toutes les feuilles d'un ensemble de fichiers Excel

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

copier toutes les feuilles d'un ensemble de fichiers Excel

n°2118575
dimitrievr​ard24
Posté le 28-12-2011 à 15:55:52  profilanswer
 

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

mood
Publicité
Posté le 28-12-2011 à 15:55:52  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  copier toutes les feuilles d'un ensemble de fichiers Excel

 

Sujets relatifs
transformer un fichier excel en fichier txtRemplir questionnaire java avec macro excel
Matcher des séries dans EXCEL (VBA)Les fichiers en C
classeur excel / onglet excel[Excel] tableau à "2 colonnes"
Macro excelFichiers de Localisation (Appli. Multi-Langues)
Suppresion d'un bloc de ligne dans ExcelMacro pour copier le contenu d'un document excel vers un autre
Plus de sujets relatifs à : copier toutes les feuilles d'un ensemble de fichiers Excel


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR