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

Résolu/Fermé

owm Messages postés 4 Date d'inscription jeudi 30 octobre 2014 Statut Membre Dernière intervention 19 juin 2015 - Modifié par pijaku le 19/06/2015 à 12:14
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 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
Mettre un mot de passe sur un dossier - Guide
Dossier rar - Guide
Forcer suppression dossier - Guide
Wetransfer gratuit fichiers lourd - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
19 juin 2015 à 11:22

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

comment donner les droits sur fichier partage

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

Où trouver le dossier des favoris de Chrome ?

Créer playlist

Discussions similaires

Newsletters