Bonjour messieurs,
J'arrive au terme de mon projet Excel et je vous remercie pour toutes les informations trouvées ici qui m'ont permis d'avancer.
Reste plus qu'une dernière étape: L'importation des données.
J'utilise le classeur d'origine ("Classeur1") qui comprends 150 feuilles.
Les classeurs 2, 3 et 4 sont utilisés par des organismes différents et sont une copie du classeur 1.
Les feuilles 1 à 50 sont remplies sur le "Classeur2", 51 à 100 sur le "Classeur3" et 101 à 150 sur le "Classeur4".
Les noms de feuille des 4 classeurs sont donc identiques.
Est-il possible de faire une boucle pour copier ces 150 plages de cellules sur mon "Classeur1" afin d'éviter de copier 150 fois mon code ci-dessous? (avec possibilité d'importer un classeur à la fois)
NB: Le bouton de commande de la macro est sur le classeur d'origine (Classeur1)
Merci de votre attention
J'arrive au terme de mon projet Excel et je vous remercie pour toutes les informations trouvées ici qui m'ont permis d'avancer.
Reste plus qu'une dernière étape: L'importation des données.
J'utilise le classeur d'origine ("Classeur1") qui comprends 150 feuilles.
Les classeurs 2, 3 et 4 sont utilisés par des organismes différents et sont une copie du classeur 1.
Les feuilles 1 à 50 sont remplies sur le "Classeur2", 51 à 100 sur le "Classeur3" et 101 à 150 sur le "Classeur4".
Les noms de feuille des 4 classeurs sont donc identiques.
Est-il possible de faire une boucle pour copier ces 150 plages de cellules sur mon "Classeur1" afin d'éviter de copier 150 fois mon code ci-dessous? (avec possibilité d'importer un classeur à la fois)
NB: Le bouton de commande de la macro est sur le classeur d'origine (Classeur1)
Code:
Private Sub CommandButton1_Click()
Worksheets("Feuil1").Cells.ClearContents
Workbooks.Open Filename:="D:\Test Import\Classeur2.xls"
With Workbooks("Classeur2.xls").Worksheets("Feuil1")
derlign = .Range("A2").End(xlDown).Row
.Range(.Cells(2, 1), .Cells(derlign, 9)).Copy _
Workbooks("Classeur1.xls").Worksheets("Feuil1").Range("A2")
End With
Workbooks("Classeur2.xls").Close False
End Sub
Merci de votre attention
Dernière édition: