anthooooony
XLDnaute Occasionnel
Bonjour à tous excel downloadien
Je suis en train de préparer une macro automatique pour automatiser un ensemble de fichiers que je récupère un dossier. Chaque jour, un batch lance un macro, qui récupère les données de tous les jours . cela me permet une historisation journalière.
Cependant, lorsque je lance la macro celle ci ouvre(normal vu que je lui dis), tous les fichiers présents dans le dit dossier.
Est-il possible d’empêcher l'ouverture des fichiers, et que la macro se lance dans "arrière plan"?
Vous trouverez à la fin le code que j'utilise actuellement.
En vous remerciant d'avance pour l'aide
Anthooooony
Je suis en train de préparer une macro automatique pour automatiser un ensemble de fichiers que je récupère un dossier. Chaque jour, un batch lance un macro, qui récupère les données de tous les jours . cela me permet une historisation journalière.
Cependant, lorsque je lance la macro celle ci ouvre(normal vu que je lui dis), tous les fichiers présents dans le dit dossier.
Est-il possible d’empêcher l'ouverture des fichiers, et que la macro se lance dans "arrière plan"?
Vous trouverez à la fin le code que j'utilise actuellement.
En vous remerciant d'avance pour l'aide
Anthooooony
Code:
Sub syntèseClasseursBD2()
Application.DisplayAlerts = False
sousRépertoire = "Historisation TMA"
[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(1).[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
Application.DisplayAlerts = True
End Sub