problème de repertoir pour liste de fichiers

[Dessimoz]

bonjour tout le monde,

j'ai un problème avec mon code (que j'ai trouvé sur un site d'un gars cool en fait ) je n'arrive pas à mettre le repertroir oÙ les fichiers vont être pris pour consituter la liste, je voudrais que ça prenne dans decl02 mais la ligne d'après m'embête et je suis vraiment pas le pros ..j'ai commencé le vba il y a 1 jours. (hooo hooo hooo !!!)

Function ChargerFichiers()
Application.ScreenUpdating = False
Dim DirVar As String
DirVar = Dir("C:\Mes documents\Dessimoz Damien\programme impôt\programmes\decl02 *.xls")
DirVar = Dir(Application.DefaultFilePath & "\*.xls")
Do While DirVar <> ""
UserForm1.ComboBox1.AddItem DirVar
DirVar = Dir()
Loop
UserForm1.Show
End Function

 

[Dessimoz]

Personne ne sait que faire où quoi ?

ou faut il plus d'explications ?

 

[toto]

Bonjour,

Tu enleves la lignes qui t'embete tout simplement.

toto