Boucle sur plusieurs fichiers

Le 07/07/2015 à 16:49

Bonjour,

Je dois ouvrir des classeurs via une macro et copier les données des classeurs

voici la macro

Private Sub CmdBtnImport_Click()
'récupération des données sur la GED
' ouverture du fichier en lecture seule
fichierCodir = "Apchie_Nicolas.xlsx"
cheminCodir = "R:\DITX-EC\SVPBURO_SCC\- SCC\07 - Développement\Dossier_Excel_ADP\Fichiers_Utilisateurs\" & fichierCodir
laurence = "Codir_Laurence.xlsm"

Workbooks.Open Filename:=cheminCodir

'Copie les données de l'onglet Stephane dans le fichier Codir_Laurence.xlsm onglet DSIX_synthese_CODIR_Semaine

    endTab = Workbooks(fichierCodir).Worksheets("Feuil1").Range("A2").SpecialCells(xlCellTypeLastCell).Address
    EndLine = Workbooks(laurence).Worksheets("DSIX_synthese_CODIR_Semaine").Range("A" & Rows.Count).End(xlUp).Row + 1

    Workbooks(fichierCodir).Worksheets("Feuil1").Range("A2", endTab).Copy Workbooks(laurence).Worksheets("DSIX_synthese_CODIR_Semaine").Range("A" & EndLine)

    Windows(fichierCodir).Close

'------------------------------- COUVREUR

'------------------------------- DELBES

'------------------------------- DURAND

'------------------------------- LEVASSEUR

'------------------------------- MAGNIER

'------------------------------- MIGNON

End Sub

Mais ne ne sais pas comment la mettre dans une boucle

5codir-laurence.xlsm (29.97 Ko)

Merci

Le 07/07/2015 à 17:42

Bonjour

Attention pas testé

19serenodo-importation-v001.xlsm (34.15 Ko)

Le 07/07/2015 à 17:46

Bonjour Banzai64,

je testerai dès demain matin de retour au boulot.

merci

Le 08/07/2015 à 09:28