Private Sub Workbook_Open()
Dim Rech
Dim Chemin, NomFichier, FichierExiste As Boolean
Dim NewFichier As Workbook, ClasseurActif As Workbook
Set ClasseurActif = ThisWorkbook
Set Rech = CreateObject("Scripting.FileSystemObject")
Chemin = "U:\missionBPUS\Macros\sauvegarde stats test\"
NomFichier = "stats_FSHO" & "_" & Format(Now, "yyyy-mm") & ".xlsx"
FichierExiste = IIf(Rech.FileExists(Chemin & NomFichier), True, False)
If Not FichierExiste Then
Set NewFichier = ActiveWorkbook
ClasseurActif.Sheets("stats_FSHO").Copy
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
ActiveWorkbook.SaveAs Chemin & NomFichier
ActiveWorkbook.Close True
ClasseurActif.Sheets("stats_FSHO").Range("A2:F45000,H2:H45000").ClearContents
End If
End Sub