feuille = Left("nom" & variable1 & annee & mois, 31)
Cheminfichier = "C:\windows\" & annee & mois & "\" & variable1 & "\"
Nomfichier = "nom_" & variable1 & "_" & annee & mois & ".xls"
MsgBox ExecuteExcel4Macro(Cheminfichier & "[" & Nomfichier & "]" & feuille & "!" & Cells(1, 1).Value)