Discussion :

[pijaku]

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.

[pijaku]

Oups...
Désolé du dérangement...
L'aide VBA m'a aiguillé sur la méthode SaveCopyAs...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
            If Dir(REPERTOIRE_SAVE & Format(Date, "yyyy mm dd") & " " & NOM_FICHIER_SAVE) = "" Then _
                ThisWorkbook.SaveCopyAs REPERTOIRE_SAVE & Format(Date, "yyyy mm dd") & " " & NOM_FICHIER_SAVE

Cela n'explique pas le problème que j'avais, mais ça le contourne tout de même...

[Patrice740]

Bonjour et Bonne Année,

Essaies avec la sauvegarde avec SaveCopyAs , plus besoin d'enregistrer Thisworkbook

[pijaku]

Merci Patrice.

C'est très exactement ce que j'ai fait.

Je laisse ouvert cette discussion pour le cas ou quelqu'un aurait une explication logique de ces plantages…

[Patrice740]

Peut-être que l'enregistrement n'est pas terminé, quand la seconde commande est lancée. Avais-tu essayé un DoEvents entre les deux ?

[pijaku]

Bonjour Patrice,

Un DoEvents, dans ce cas pourrait aider (s'il s'agit d'attendre la fin de sauvegarde), mais ne résoudrait pas le problème (s'il est généré par une "surcharge" (saturation temporaire) de Windows).

Comme je ne m'y connais pas suffisamment, je vais opter pour SaveCopyAs qui, par ailleurs, correspond exactement à mon souhait.