Ouverture de fichier sans connaître le nomRésolu

Question

Bonjour,

Je souhaiterais pouvoir balayer tous les sous-dossiers contenant chacun un fichier excel et après l'ouvrir, copier la première ligne et la coller dans le classeur contenant la macro.
J'ai commencé à écrire le code suivant:

 Sub Liste_Unique()Racine = CurDirSet fs = CreateObject("Scripting.FileSystemObject")Set Dossier = fs.getfolder(Racine)    For Each d In Dossier.SubFolders           nomfichier = Dir(d & "\*.xlsx")     MsgBox nomfichier     'Workbooks.Open Filename:=Dir(d & "\*.xlsx")          'Workbooks.Open nomfichier    NextEnd Sub
 
Voici le message d'erreur que j'obtiens:


Quelqu'un a t-il une idée du problème?

Merci d'avance




--

Patrice33740 · Answer

Bonjour,

Pour ouvrir un fichier, il est préférable de donner le chemin complet (DIR ne fournit que le nom)

vb95 · Answer

Bonjsoir
En complément de la réponde de Patrice33740 que je salue un lien utile : https://www.excel-downloads.com/threads/fonction-dir.139255/
Ceci ne te renvoie que le nom du fichier

Lameche15 · Answer

Du coup je tente ce code mais rien n'y fait:

Sub Liste_Unique()Dim Racine, nomfichier, fichier As StringRacine = "F:\Dossiers Communs\THM\RECENSEMENT DES MS\Fichiers à envoyer à AREO\MURS"Set fs = CreateObject("Scripting.FileSystemObject")Set Dossier = fs.getfolder(Racine)    For Each d In Dossier.SubFolders           nomfichier = Dir(d & "\*.xlsx")     'MsgBox d     'MsgBox nomfichier          fichier = "" & Racine & "\" & d & "\" & nomfichier     Workbooks.Open Filename:="" & fichier                    'Workbooks.Open fichier            NextEnd Sub

Lameche15 · Answer

Pardon autant pour moi j'ai trouvé mon erreur, d est suffisant puisque le dir me retourne le chemin en entier jusqu'au sous dossiers

Merci infiniment pour votre aide
 
--

Ouverture de fichier sans connaître le nom

4 réponses

Votre réponse

Discussions similaires