Variable dans adresse fichier [Résolu]

Signaler
Messages postés
61
Date d'inscription
vendredi 9 novembre 2007
Statut
Membre
Dernière intervention
28 octobre 2011
-
cs_zeps2
Messages postés
61
Date d'inscription
vendredi 9 novembre 2007
Statut
Membre
Dernière intervention
28 octobre 2011
-
bonjour,

Un petit souci de variable.
Ci-dessous j'ai un souci en intégrant "choix" ds l'adresse de Dir.
Comment peut on intégrer cette variable dans ce cas :

Private Sub OK_Click()
Dim MyFile As String
Dim i As Integer
Dim choix As String
i = 1
choix = ComboBox1.Value

MyFile = Dir("D:\VBA_Husse\MOIS & choix & 2010\*.xls")
Do
MyFile = Dir
i = i + 1
ActiveSheet.Cells(i, 1).Value = MyFile
Loop Until MyFile = ""

End Sub

Merci de votre aide

3 réponses

Messages postés
68
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
25 avril 2013

Bonjour,
ou bien directement comme tu l'as fais précédemment:
MyFile = Dir("D:\VBA_Husse\MOIS " & choix & " 2010\*.xls")


@+
Messages postés
61
Date d'inscription
vendredi 9 novembre 2007
Statut
Membre
Dernière intervention
28 octobre 2011

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

Zeps
Messages postés
61
Date d'inscription
vendredi 9 novembre 2007
Statut
Membre
Dernière intervention
28 octobre 2011

ben, oui, aussi...
Mais j'étais parti dans les variables, alors, au prix de la variable ...au diable l'avarice !

Merci à tous pour ces posts