Ouverture de fichier excel en boucle
bla
-
bla -
bla -
Bonjour,
Je bloque sur un point et j'aimerai savoir si quelqu'un peut m'aider. Voilà mon problème:
J'ai plusieurs fichiers excel de la même forme "Toucan_2015_01_01.xls", "Toucan_2015_01_02.xls" où les derniers caractères représente une date.
J'aimerai à partir d'une macro pouvoir ouvrir le premier fichier, copier les données dans un nouveau classeur et fermer ce fichier, puis ouvrir le deuxième fichier, copier les données et le fermer et ainsi de suite.
Sachant que j'ai 365 fichiers j'aimerai savoir s'il est possible de faire une boucle sur le nom du fichier. Un truc du style
?
Merci d'avance
Je bloque sur un point et j'aimerai savoir si quelqu'un peut m'aider. Voilà mon problème:
J'ai plusieurs fichiers excel de la même forme "Toucan_2015_01_01.xls", "Toucan_2015_01_02.xls" où les derniers caractères représente une date.
J'aimerai à partir d'une macro pouvoir ouvrir le premier fichier, copier les données dans un nouveau classeur et fermer ce fichier, puis ouvrir le deuxième fichier, copier les données et le fermer et ainsi de suite.
Sachant que j'ai 365 fichiers j'aimerai savoir s'il est possible de faire une boucle sur le nom du fichier. Un truc du style
for i = 1 to 31
nomfichier = "Toucan_2015_01_" & i & ".xls"
Set wb = Workbooks.Open("C:\Données\Toucan\nomfichier"
?
Merci d'avance
A voir également:
- Ouverture de fichier excel en boucle
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
- Liste déroulante excel - Guide
1 réponse
Sinon j'ai aussi aperçu un bout de code utilisant quelque chose comme ça:
Mais n'étant pas un spécialiste j'ai du mal à comprendre et à développer cette option
Private Sub traiteFichiers()
Dim i As Long
Dim mTabFiles As Excel.Workbook
Set pathfolder = "Z:\LAGIER\Toucan"
For i = LBound(mTabFiles()) To UBound(mTabFiles())
Call traiteFichiers(mTabFiles(i))
Next i
Mais n'étant pas un spécialiste j'ai du mal à comprendre et à développer cette option