Bonjour!
je suis plus que débutante en VB et je voudrais trouver une macro qui me permette d'ouvrir tous les fichiers Excel contenus dans un dossier bien précis.
Voilà ce que j'ai bidouillé mais ça ne marche pas.
Quelqu'un peut-il voler à mon secours???
Merci
Sub ouvrirDossier()
' ouvrirDossier Macro
'
Dim Repertoire As String, FichS As String, FichD As String
Repertoire = "H:\data\Adélie\RECHERCHE MACRO BUDGET 2009\FICHIERS 1st submission\ALL TEMPLATES\MAINTENANCE\Templates maintenance\"
FichD = ActiveWorkbook.Name
FichS = Dir(Repertoire & "*.xls")
Do Until FichS = ""
Workbooks.Open FichS
FichS = Dir
Loop
End Sub
je suis plus que débutante en VB et je voudrais trouver une macro qui me permette d'ouvrir tous les fichiers Excel contenus dans un dossier bien précis.
Voilà ce que j'ai bidouillé mais ça ne marche pas.
Quelqu'un peut-il voler à mon secours???
Merci
Sub ouvrirDossier()
' ouvrirDossier Macro
'
Dim Repertoire As String, FichS As String, FichD As String
Repertoire = "H:\data\Adélie\RECHERCHE MACRO BUDGET 2009\FICHIERS 1st submission\ALL TEMPLATES\MAINTENANCE\Templates maintenance\"
FichD = ActiveWorkbook.Name
FichS = Dir(Repertoire & "*.xls")
Do Until FichS = ""
Workbooks.Open FichS
FichS = Dir
Loop
End Sub