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 - 19 juin 2015 à 11:22

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

A voir également:

Ouverture des fichiers xls d'1 dossier contenant x sous dossier
Dossier appdata - Guide
Impossible de supprimer un dossier - Guide
Mettre un mot de passe sur un dossier - Guide
Dossier rar - Guide
Dossier démarrage - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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

Discussions similaires

Extraire le contenu de plusieurs fichiers

Dimensions L x l x H : comment lire ces infos ?

Votre réponse

Discussions similaires