Sub Rafraîchir_les_fichiers_sources()
Dim rep$, nom1$, ClasseurRegional$, DebutNomFichier
nom1 = ActiveWorkbook.Name
rep = "V:\Salia\Emballage\Commandes\Commandes emballages\"
ClasseurRegional = Dir(rep & "*.xls")
While Len(ClasseurRegional) > 0
Workbooks.Open rep & ClasseurRegional
Workbooks(ClasseurRegional).Close ([Savechanges])
ClasseurRegional = Dir 'passer au suivant
Wend
End Sub