Instruction dans une macro

[wachoo31]

bonjour,
voila dans une macro j'ai une ligne du genre

Direction = Dir("D:\dossier\general\excel\vidange\*.xls")

et j'aurais voulu pouvoir remplacer le dossier "general" par une donnée (qui varie) se trouvant dans la cellule A15 de mon fichier
La cellule A15 étant une cellule de type menu déroulant

 

[PhiBou]

Bonjour Wachoo31, le Forum

Ceci devrait te convenir je pense :


Chemin = "D:\dossier\" & Range("A15") & "\excel\vidange\*.xls"

Direction = Dir(Chemin)

Bonne journée

PhiBou

 

[wachoo31]

merci PhiBou mais j'ai essayez et j'ai toujour une erreur sur la cellule
voici la macro complète

Sub vidange()
Dim Fic As String, i As Integer
Fic = Dir("e:\CL_TRACTIO\Vidange charbon\Février 2004\*.xls")
i = 0
Do Until Fic = ""
If LCase(Fic) <> "vidange.xls" Then
Workbooks.Open ("e:\CL_TRACTIO\Vidange charbon\Février 2004\" & Fic)
Workbooks("somme vidange charbon.xls").Sheets(1).Range("c8").Offset(i, 0) = Sheets("Feuil1").Range("a10")
Workbooks("somme vidange charbon.xls").Sheets(1).Range("d8").Offset(i, 0) = Sheets("Feuil1").Range("d23")
Workbooks("somme vidange charbon.xls").Sheets(1).Range("e8").Offset(i, 0) = Sheets("Feuil1").Range("g23")
Workbooks("somme vidange charbon.xls").Sheets(1).Range("f8").Offset(i, 0) = Sheets("Feuil1").Range("j23")
i = i + 1
Workbooks(Fic).Close
End If
Fic = Dir
Loop
End Sub

dans laquelle je voudrais remplacer "Février 2004" par la valeur de la cellule b6 qui est une cellule menu déroulant