Private Sub Workbook_Open() 'à l'ouverture du classeur
Dim CC As String 'déclare la variable CC
Dim MA As String 'déclare la variable MA
Dim Chem As String 'déclare la variable chem
Dim fs 'déclare la variable fs
Chem = ThisWorkbook.Path & '\\\\\\\\' 'définit la variable Chem
CC = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) 'définit la variable CC (le nom sans l'extension)
MA = '_' & CStr(Month(Date)) & '_' & CStr(Year(Date)) 'définit la variable MA
'recherche de fichier
Set fs = Application.FileSearch
With fs
.LookIn = Chem 'dans le même dossier que celui de ce classeur
.SearchSubFolders = True 'cherche aussi dans les sous-dossiers
.Filename = CC & MA & '.xls' 'le classeur nommé : 'nom_de_ce_classeur_10_05.xls'
If .Execute() > 0 Then 'si ce classeur existe
GoTo fin 'sort de la procédure via la balise 'fin'
Else 'sinon
'enregistre ce classeur sous : 'nom_de_ce_classeur_10_05.xls'
ThisWorkbook.SaveAs Chem & CC & MA & '.xls'
'ouvre ce classeur
Application.Workbooks.Open (Chem & CC)
'ferme la copie
Application.Workbooks(CC & MA & '.xls').Close
End If
End With
fin: 'balise
End Sub