Sub frais()
Dim CheminSauvegarde$, Desti As Workbook, Nom$, R As Range, mois As String
Set R = Cells(ActiveCell.Row, 1).Resize(, 4)
Nom = Cells(ActiveCell.Row, 2)
CheminSauvegarde = "C:\Documents and Settings\Emmanuel\Bureau\dossier test\FRAIS\"
mois = DatePart("m", Sheets("Classeur1").R.Cells(1, 5).Value)
Set Desti = Workbooks.Open(CheminSauvegarde & "\" & Nom)
Workbooks(Nom).Sheets(mois).actvate
End Sub
[\code]
l'erreur est sur la ligne mois=
si une personne peu m'aider c'est avec grand plaisir......
Bonne journée à tous
Cordialement,
manu