Sub Appel()
Dim FL1 As Worksheet, Chemin As String
Dim Mois$, pFld$, f$
Application.ScreenUpdating = False
Mois = InputBox("Mois en cours?")
Chemin = "C:\Test conso\" & Mois
' Ouverture d'un fichier d'une version précédente
pFld = "C:\Test conso\" & Mois & "\"
f = Dir(pFld)
Do Until f = ""
If f Like "GL Groupe " & Mois_prec & " v*" Then
Workbooks.Open pFld & f
Exit Sub
End If
f = Dir()
Loop
' Suppression des données de l'ancienne base
Range(Cells(2, 1), Cells(2, 24).End(xlDown)).Delete
Set FL1 = ActiveWorkbook.Worksheets("base")
'Exécution d'une autre procédure (mise en forme)
Ouvrir Chemin, FL1
Application.ScreenUpdating = True
'Enregistrement de la nouvelle version du fichier
MaDate = Format(Date, "dd.mm.yyyy")
Workbooks("CL" & Mois & " v*.xlsx"). _
SaveAs Filename:=Chemin & "\" & " CL" & Mois & " 2010 v " & MaDate & ".xlsx" ' ne marche pas
End Sub