Ouverture des fichiers xls d'1 dossier contenant x sous dossier
Résolu
owm
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
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
Je vous remercie par avance.
OWM
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
A voir également:
- Ouverture des fichiers xls d'1 dossier contenant x sous dossier
- Dossier appdata - Guide
- Impossible de supprimer un dossier - Guide
- Site x - Guide
- Dossier rar - Guide
- Mettre un mot de passe sur un dossier - Guide
1 réponse
Bonjour,
Comme ceci:
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