Discussion :

[labinocle81]

Bonjour ou re pour d'autre

Je souhaite grace a un bouton recuperer le nom d'un fichier situé dans un dossier donné

Je m'explique



Mon dossier cible est C:\WINDOWS\bureau\33152
Je voudrais regarder dans ce dossier et remonter le nom du fichier présent
Ex : 33152.xls ou Labinocle.xls ou autre ...
Et le stocker dans une variable afin de le reutiliser

Merci de votre aide

[Fvandermeulen]

Salut,

Mon dossier cible est C:\WINDOWS\bureau\33152
Je voudrais regarder dans ce dossier et remonter le nom du fichier présent
Ex : 33152.xls ou Labinocle.xls ou autre ...
Et le stocker dans une variable afin de le reutiliser

N'y aura t'il toujours qu'un seul fichier Excel dans ton dossier ?
Sinon comment savoir lequel prendre ? Ou faut-il prendre tous les fichiers xls de ce dossier ?

[labinocle81]

Tu as raison il risque d'y avoir plusieurs fichiers.
Donc il faudra tous les prendre

[Fvandermeulen]

Encore une question pour être efficace, que veux tu faire de ces fichiers par la suite.
Le stockage via variable risque d'être difficile ne sachant pas combien de fichiers sont concernés, donc on devrait les stocker dans une feuille mais c'est peut-être inutile en fonction de ce que tu veux en faire.

[labinocle81]

En fait une fois le nom recuperé je veut recuperer des infos dedans et les retranscrire dans un autre fichier
Sachant que le nombre de fichier n'exedera jamais 5 ou 6.

Merci de t'interesser a mon problème

[Fvandermeulen]

Quelles infos et où pour retranscrire dans quoi et où ?
C'est pas assez clair pour te proposer un code qui te convienne mais voici un exemple qui ballaie les fichiers (!! uniquement avec l'extention xls) du dossier et les ouvres, je te laisse chercher pour l'adapter à ton cas, reviens si tu as des questions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub OuvreTousXLS()
 
Const Rep = "C:\WINDOWS\bureau\33152\" ' le répertoire contenant les fichiers..
Dim TheFile As String
 
TheFile = Dir(Rep & "*.xls")   'Listing des fichier Excel...
While TheFile <> "" 'Tant que non vide
   Workbooks.Open (Rep & TheFile) 'Ouverture du fichier
   TheFile = Dir 'Fichier suivant
Wend
End Sub

Bonne continuation