cs_zeps2
Messages postés61Date d'inscriptionvendredi 9 novembre 2007StatutMembreDernière intervention28 octobre 2011 8 févr. 2011 à 00:07
Bon ben, j'ai eu un flash...
ci-dessous ça tourne :
Private Sub OK_Click()
Dim MyFile As String
Dim i As Integer
Dim choix As String
Dim chemin As String
i = 1
choix = ComboBox1.Value
chemin = "MOIS " & choix & " 2010"
MyFile = Dir("D:\VBA_Husse" & chemin & "\*.xls")
Do
MyFile = Dir
i = i + 1
ActiveSheet.Cells(i, 1).Value = MyFile
Loop Until MyFile = ""
End Sub