Bonjour à tous,

Mes meilleurs voeux pour 2020 !

J'ai un souci avec un code qui plante de manière irrégulière (1 fois sur 3).
Je ne vois pas ce qui cause l'erreur...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Open()
Dim ws As Worksheet, Nom_Class As String
    On Error GoTo Suite
            Nom_Class = ThisWorkbook.FullName
            'Si le fichier de sauvegarde n'existe pas
            If Dir(REPERTOIRE_SAVE & Format(Date, "yyyy mm dd") & " " & NOM_FICHIER_SAVE) = "" Then _
                ThisWorkbook.SaveAs REPERTOIRE_SAVE & Format(Date, "yyyy mm dd") & " " & NOM_FICHIER_SAVE 'Je le créé
            'Mais comme je veux travailler sur mon fichier et pas sur la sauvegarde
            Application.DisplayAlerts = False
            'Je réenregistre ce fichier sous son nom et chemin initial
            ThisWorkbook.SaveAs Nom_Class    'Et c'est cette ligne qui bug régulièrement (mais pas systématiquement)
            Application.DisplayAlerts = True
Suite:
    On Error GoTo 0
Bien sur, en enlevant le "On Error Goto Suite" je vois bien l'erreur apparaitre (1 fois sur 2 ou 3 ou 4...) : Erreur 1004 : impossible d'accéder au fichier Nom_Class

Précision : j'ai bien les droits sur ce répertoire...

Merci d'avance.