Variable dans adresse fichier [Résolu]

Messages postés
61
Date d'inscription
vendredi 9 novembre 2007
Statut
Membre
Dernière intervention
28 octobre 2011
- - Dernière réponse : cs_zeps2
Messages postés
61
Date d'inscription
vendredi 9 novembre 2007
Statut
Membre
Dernière intervention
28 octobre 2011
- 8 févr. 2011 à 22:18
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
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
68
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
25 avril 2013
3
Merci
Bonjour,
ou bien directement comme tu l'as fais précédemment:
MyFile = Dir("D:\VBA_Husse\MOIS " & choix & " 2010\*.xls")


@+

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 201 internautes nous ont dit merci ce mois-ci

Commenter la réponse de rv83toulon
Messages postés
61
Date d'inscription
vendredi 9 novembre 2007
Statut
Membre
Dernière intervention
28 octobre 2011
0
Merci
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
Commenter la réponse de cs_zeps2
Messages postés
61
Date d'inscription
vendredi 9 novembre 2007
Statut
Membre
Dernière intervention
28 octobre 2011
0
Merci
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
Commenter la réponse de cs_zeps2