Je suis vraiment nul
rikito
-
rezou Messages postés 59 Statut Membre -
rezou Messages postés 59 Statut Membre -
Bonjour,comment ouvrir automatiquement tous les fichiers d'un dossier?
j'ai fait un truc qui aparaîtra aussi cohérente que "je truc faisons docié" écrit en français, mais je vois pas comment faire.
Sub ouvfich()
Dim wbk As Workbook
ChDir _
"F:\itec-crs-it2\dossier"
For Each wbk In Workbooks
Workbooks.Open wbk
Next wbk
End Sub
Quelqu'un peut m'aider? Ca doit prendre une minute aux bons j'imagine.
j'ai fait un truc qui aparaîtra aussi cohérente que "je truc faisons docié" écrit en français, mais je vois pas comment faire.
Sub ouvfich()
Dim wbk As Workbook
ChDir _
"F:\itec-crs-it2\dossier"
For Each wbk In Workbooks
Workbooks.Open wbk
Next wbk
End Sub
Quelqu'un peut m'aider? Ca doit prendre une minute aux bons j'imagine.
