Bonjour a tous
Voici une macro que j'ai créé, elle marche tres bien seulement j'aurais voulu pouvoir remplacer le répertoire "Février 2004" par la valeur de la cellule b6 de mon classeur car cette cellule a un menu déroukant pour changer de mois et je n'y arrive pas pouvez vous m'aider
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