anthooooony
XLDnaute Occasionnel
Bonjour,
J'ai automatisé un moyen pour récupérer tous les fichiers excels qui se trouvent dans un dossier windows, ça marche bien, seulement pour un dossier, j'ai des stats qui sortent sans notion de date dans l'export.
Je n'ai que, pour les distinguer la date qui se trouve dans chaque fichier
"Suivi Top 50 - production 10 derniers jours (Avec commande) 15-01-2013.xls"
En faisant un right et 10 caractères il me prendra la date, mais jene sais pas comment le faire en masse, je souhaiterais le mettre en 4ème colonne.
Auriez vous une piste svp?
Merci d'avance
Anthooooony
Total 8285 71,35 15-01-2013
Factures de DITA 2094 81 15-01-2013
Factures de REX 942 92 15-01-2013
Factures de LA ROBI (588) 482 75 15-01-2013
J'ai automatisé un moyen pour récupérer tous les fichiers excels qui se trouvent dans un dossier windows, ça marche bien, seulement pour un dossier, j'ai des stats qui sortent sans notion de date dans l'export.
Je n'ai que, pour les distinguer la date qui se trouve dans chaque fichier
"Suivi Top 50 - production 10 derniers jours (Avec commande) 15-01-2013.xls"
En faisant un right et 10 caractères il me prendra la date, mais jene sais pas comment le faire en masse, je souhaiterais le mettre en 4ème colonne.
Auriez vous une piste svp?
Merci d'avance
Anthooooony
Total 8285 71,35 15-01-2013
Factures de DITA 2094 81 15-01-2013
Factures de REX 942 92 15-01-2013
Factures de LA ROBI (588) 482 75 15-01-2013
Code:
Sub factaveccmd()
sousRépertoire = "Suivi Top 50 - production 10 derniers jours (Avec commande)"
[A2].CurrentRegion.Offset(1, 0).Clear
Set maitre = ActiveWorkbook
Repertoire = ThisWorkbook.Path
nf = Dir(Repertoire & "\" & sousRépertoire & "\*.xls") ' premier fichier
Do While nf <> ""
Workbooks.Open Filename:=Repertoire & "\" & sousRépertoire & "\" & nf
n = [A1].CurrentRegion.Rows.Count - 1
[A1].CurrentRegion.Offset(1, 0).Copy _
maitre.Sheets(5).[A65000].End(xlUp).Offset(1, 0)
ActiveWorkbook.Close False
'-- nom onglet
' [A1].End(xlDown).End(xlToRight).Offset(-n + 1, 1).Resize(n, 1) = Left(nf, Len(nf) - 4)
nf = Dir ' fichier suivant
Loop
End Sub