anthooooony
XLDnaute Occasionnel
Bonjour à tous cher exceldownloadiens
Je reçois tous les jours des fichiers sur un disque local.
J'ai un code vba qui est ci dessous qui permet de recuperer tous les fichiers pour recuperer les champs que je souhaite et les mettre les uns en dessous des autres.
Ca marche tres bien, seulement je reçois aujourdhui une 15ène de fichier par jour, et j'en suis à 800 aujourd'hui.
Est-il possible d'affecter une variable date, de type à chaque lancement de macro il identifie une date, et si je lance la macro demain il recupererait que les fichiers entre demain et aujourdhui seulement 14 au lieu de 786 hier, aujourdhui 800 demain 814 etc.. ca commence à être long alors dans 5-10 mois !
J'ai regardé sur notre ami google, "stock date à chaque lancement de macro" / "lancement de macro recuperer date" mais aucune info recuperable. Peut etre que je choisis mal les mots clefs..
merci d'avance de votre aide,
Anthooooony
Je reçois tous les jours des fichiers sur un disque local.
J'ai un code vba qui est ci dessous qui permet de recuperer tous les fichiers pour recuperer les champs que je souhaite et les mettre les uns en dessous des autres.
Ca marche tres bien, seulement je reçois aujourdhui une 15ène de fichier par jour, et j'en suis à 800 aujourd'hui.
Est-il possible d'affecter une variable date, de type à chaque lancement de macro il identifie une date, et si je lance la macro demain il recupererait que les fichiers entre demain et aujourdhui seulement 14 au lieu de 786 hier, aujourdhui 800 demain 814 etc.. ca commence à être long alors dans 5-10 mois !
J'ai regardé sur notre ami google, "stock date à chaque lancement de macro" / "lancement de macro recuperer date" mais aucune info recuperable. Peut etre que je choisis mal les mots clefs..
merci d'avance de votre aide,
Anthooooony
Code:
Sub aaaaa()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual
sousRépertoire = "Fichiers Retard Relance"
[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
With ThisWorkbook.Sheets("Feuil1")
derlig = .Range("A65000").End(xlUp).Row + 1
.Range("A" & derlig) = DateSerial((Mid(Cells(1, 1), 18, 4)), (Mid(Cells(1, 1), 15, 2)), (Mid(Cells(1, 1), 12, 2)))
.Range("B" & derlig) = Left([D7], InStr(1, [D7], " ") - 1)
.Range("C" & derlig) = LTrim(Split([B3] & " ")(0))
.Range("D" & derlig) = Application.Sum(Range("j1").EntireColumn) / 2
End With
ActiveWorkbook.Close False
nf = Dir ' fichier suivant
Loop
Application.Calculation = xlCalculationAutomatic
ActiveWorkbook.RefreshAll
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub