voila , ayant toujours des idees dans mon projet de devis , j'aimerais ouvrir un userform dans lequel on verrait la liste des fichiers xls
pour cela j'ai utilisé ca : ( c'est correcte ????)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Function ChargerFichiers()
Application.ScreenUpdating = False
Dim DirVar As String
'DirVar = Dir("c:\mes documents\*.xls")
DirVar = Dir(Application.DefaultFilePath & "\*.xls")
Do While DirVar <> ""
UserForm1.ComboBox1.AddItem DirVar
DirVar = Dir()
Loop
UserForm1.Show
End Function
par contre j'aimerais faire mieux :
avoir 2 combobox :
1 pour selectionner les devis en fonction des nom
et l'autre , les devis appartenant a ce nom
sachant que les fichier xls sont du type : Nom-Prenom -date.xls

donc en 1 : avoir DUPONT Alain ou MARTIN Pierre
et dans l'autre : 15122005 - 20122005 ... ... ...

merci a vous