Ouverture des fichiers xls d'1 dossier contenant x sous dossier Résolu/Fermé

Question

Bonjour,

Je vous sollicite concernant une macro devant me permettre d'ouvrir tous les fichiers excel present dans x sous dossier du dossier DAM.

J'ai tenté d'utiliser * afin de ne pas faire x chemin.Mais cela ne semble pas fonctionner.

Vous trouverez ci-dessous la macro

Sub ouvrirfichiers()
Dim Fichier As String, Chemin As String, Dossier As String
Dim Wb As Workbook
 Chemin = "E:\RH\DAM\*\"
Fichier = Dir(Chemin & "*.xls")
Set Wb = Workbooks.Open(Chemin & Fichier)
Set Wb = Nothing
Fichier = Dir
Loop
 End Sub

Je vous remercie par avance.
OWM

Configuration: Windows XP / Internet Explorer 8.0

cs_Le Pivert · Answer

Bonjour,

Comme ceci:

Sub FileName()
Dim FichiersAOuvrir
Dim i As Integer
 FichiersAOuvrir = Application.GetOpenFilename(, , , , True)
 If IsArray(FichiersAOuvrir) Then
 For i = LBound(FichiersAOuvrir, 1) To UBound(FichiersAOuvrir, 1)
 'Ouvre les fichiers sélectionnés
 Workbooks.Open FichiersAOuvrir(i)
 Next i
 Else
 MsgBox "Annuler"
 End If
 End Sub

Ouverture des fichiers xls d'1 dossier contenant x sous dossier

1 réponse

Discussions similaires