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

Signaler
Messages postés
4
Date d'inscription
jeudi 30 octobre 2014
Statut
Membre
Dernière intervention
19 juin 2015
-
Messages postés
6831
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 juillet 2020
-
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

1 réponse

Messages postés
6831
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 juillet 2020
532
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