1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Sub Importfiles()
Set wbdest = ActiveWorkbook
Dim test As String
fichier = Dir("E:\test\*.xls") 'définit les fichiers à importer en loccurence tous les fichiers excel se trouvant dans ce répertoire
'test = fichier
'If Dir(test, vbDirectory) = "" Then
' MsgBox "fichier non trouvé"
'Else
Do While fichier <> "" 'démarre la boucle jusquau dernier fichier disponible dans le répertoire
Set wbsource = Workbooks.Open(fichier) 'ouvre le fichier actuel à importer
Set wksNewSheet = wbsource.Sheets("sheet1") 'sélectionne la feuille de données à importer
wksNewSheet.Activate 'active cette feuille
wksNewSheet.Select
Range(Cells(2, 1), Cells(3, 3)).Select 'selection des données que lon veut importer
Selection.Copy 'copie les données sélectionnées
wbdest.Activate 'retourne vers le fichier de départ
i = ActiveSheet.UsedRange.Rows.Count 'compte le nombre de lignes déjà utilisées dans ce fichier
Cells(i + 1, 1).Select 'sélection de la cellule où on veut coller les données (la première vide)
ActiveSheet.Paste 'colle les données
wbsource.Close 'ferme le fichier source
fichier = Dir 'va vers le fichier suivant à importer
Loop 'recommece la boucle avec le fichier suivant
wbdest.Activate
'End If
End Sub |
Partager