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