récuperer le nom de tout les fichiers word d'un répertoire

[jennifer]

Bonsoir a tous!

J'ai crée une macro qui ouvre depuis Excel un fichier Word, ma macro fonctionne super ( merci le wiki de michel xld)

Cependant j'aimerais maintenant pouvoir séléctionner mon fichier, pour cela, je souhaite prendre le nom de tout les fichiers word de mon répértoire, et les mettre dans une liste, puis je séléctionnerais le nom que je souhaite ouvrir.

Suis-je assez précise?
je sais créer la liste, le tout c'est de prendre les noms de tout les fichiers de mon répértoire, ce que je ne sais pas faire!
merci pour votre aide.

Jennifer

 

[michel_m]

Re : récuperer le nom de tout les fichiers word d'un répertoire

Bonsoir Jennifer

ci dessous mise en liste des fichiers word dans un combobox d'userform; le classeur XLS contenant cette proc est ici dans le m^me répertoire:
Private Sub UserForm_Initialize()
Dim fich As String
'force dans le répertoire de travail
chemin = ThisWorkbook.Path
ChDir chemin
' on réduit la sélection en utilisant un joker *
fich = Dir("*.doc")
With Me.CbxClasseur
'initialise la liste de la combobox avec le 1° fichier
.AddItem (fich)
'parcourt le répertoire
'tant qu'il reste encore un fichier "*.doc"
While fich <> ""
'affecte le fichier suivant (utilisation du joker " * " utilisé pour la def du 1° fichier)
fich = Dir
'initialise la liste dans la boite de dialogue avec le fichier suivant
.AddItem (fich)
Wend
.ListRows = CbxClasseur.ListCount - 1
End With
End Sub

 

[jennifer]

Re : récuperer le nom de tout les fichiers word d'un répertoire

Merci! Beaucoup!