Bonjour,
J'ai une macro qui doit me lister la liste des fichiers word se trouvant dans un repertoire. Et me mettre cette liste dans une listbox.
voici le code que j'ai essayé (et qui ne fonctionne pas) :
Code:
Private Sub OK2_Click()
numerobv = num.Value
chemin = 'K:\\Tservice\\Testing\\' & numerobv
fichier = Dir(chemin & '*.doc')
Do While Not fichier = ''
inser_macro.list_macro.List(inser_macro.list_macro.ListCount - 1, 1) = fichier
Loop
Unload Me
inser_macro.Show
End Sub
Petite précision : le code ci-dessus est une macro sous Word. Mais je pense que si j'arrive à faire la macro pour Excel, je peux l'adapter assez facilement pour Word.
Quelqu'un peut m'aider?
Merci beaucoup
Laurent