'Je souhaiterai qu'a l'ouverture de mon fichier, la macro recherche
'si un fichier avec le meme nom que celui-ci + l"année et le mois existe déjà,
'si non, qu 'elle enregistre le contenu de la feuille "Stats_FSHO"
'sur un fichier avec le meme nom + l'année et le mois de la sauvegarde,
'puis efface le contenu de la feuille "stats_FSHO" afin qu'elle redevienne vierge.
Sub test()
Dim Rech
Dim Chemin$, NomFichier$, FichierExiste As Boolean
Dim NewFichier As Workbook, ClasseurActif As Workbook
Set ClasseurActif = ThisWorkbook
Set Rech = CreateObject("Scripting.FileSystemObject")
Chemin = "C:\TEMP\"
NomFichier = "test" & "_" & Format(Now, "yyyy-mm") & ".xls"
FichierExiste = IIf(Rech.FileExists(Chemin & NomFichier), True, False)
If Not FichierExiste Then
ClasseurActif.Sheets(1).Copy
Set NewFichier = ActiveWorkbook
NewFichier.SaveAs Chemin & NomFichier
NewFichier.Close True
ClasseurActif.Sheets(1).Range("A2:F45,H2:H45").ClearContents
End If
End Sub