GetOBject ?chercher plusieurs fichiers dans un dossier

[albert]

bonjour à tous, bonjour forum

je range plusieurs fichiers dans un dossier.
dans une macro, j'indique ensuite l'adresse du dossier.

dossier Bidule C:/Bidule

... existe-t-il un moyen d'ouvrir succesivement tous les fichiers contenus dans le dossier... alors que la macro ne connait pas les noms des fichiers, qui sont ajoutés de manière discrétionnaire :

dans Bidule, il y a 1,2,3...j'ajoute n,n+1,...noms classés ou non....

-je sais indiquer C:/dir + adresse de chaque fichier sur le disque;
-j'ai regardé la fonction GetOBject, qui sait lire dans un dossier fermé... mais je n'ai pas trouvé le moyen pour aller chercher des fichiers dont l'adresse n'a pas été indiquée préalablement

merci d'avance à tous ceux qui pourraient me mettre sur la voie

albert

 

[zon]

Bonjour à tous,


Albert voici un code pour ouvrir tous les fichiers d'un répertoire:

Sub Ouv()
Dim Fichier As String, Repe As String
Repe = "C:\ton repertoire"
Fichier = Dir(Repe & "*.xls")
While Fichier <> ""
Workbooks.Open Filename:=Repe & Fichier
'ICI tu peux rajouter l'appel d'une macro ou du code
Fichier = Dir() ' ici on passe au suivant
Wend
End Sub


A+++

 

[albert]

merci zon,
je me suis donc précipité sur le code pour appliquer...
sans résultat...

tu peux me dire oû j'ai "échappé les pédales"

albert

 

[albert]

bonsoir zon,
j'ai finalement réussi à comprendre le fonctionnement du code :
Sub Ouv()
Dim Fichier As String, Repe As String
Repe = "C:\AA\sicav5000"
Fichier = Dir(Repe & "*.xls")
While Fichier <> ""
Workbooks.Open Filename:=Repe & SICAV5000
'ICI tu peux rajouter l'appel d'une macro ou du code
Fichier = Dir() ' ici on passe au suivant
Wend
End Sub

...j'ouvre le fichier SIVAV5000
et je peux le manipuler....

mais je suis obligé d'indiquer le nom de chaque dossier...

si je ne connais pas le nom du fichier lorsque j'écris le code , il faut faire comment???

J'ai retrouvé une réponse de thierry qui donne la liste des dossiers dans le répertoire
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=8756&t=8734

il ne serait pas possible de l'adapter à la recherche de fichiers dans un dossier???

 

[zon]

Bonsoir à tous,


Albert, voici une petite démo dans laquelle j'ai rajouté la sélection d'un dossier ou la création d'un dossier. Tu as en commentaire là où tu peux mettre ton code pour ouvrir tous les fichiers....




A+++

 

[albert]

mille fois merci zon,
je vais pouvoir travailler le code