Erreur sauvegarde auto

Bonjour

j'ai un fichier excel avec des macros, en fermant il me donne ce message : la methode save de l'objet workbook a échoué

donc plus d'enregistrement automatique.

le code qui marchait avant est :

Private Sub Workbook_BeforeClose(Cancel As Boolean) For Each Sh In Sheets Next Sh ThisWorkbook.Save Worksheets("ACCUEIL").Activate End Sub

Que faire pour réparer ?

merci

Bonjour,

Pouvez-vous essayer ainsi :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Worksheets("ACCUEIL").Activate
ThisWorkbook.Save
End Sub

Cordialement,

Merci pour ta réponse mais le problème persiste.

Et ainsi peut-être :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Me.Saved = False Then Me.Save
End Sub

Toujours le même problème.

d'autres solutions SVP

Bonjour,

Honnêtement, en l'état, je n'ai pas d'idée. Mais il faudrait que tu déposes ton fichier pour qu'on puisse le tester et régler le problème.

Cordialement,

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Worksheets("ACCUEIL").Activate

ThisWorkbook.Save

End Sub

----------------------------------------------------------------------------------------------

Private Sub Workbook_Open ()

Worksheets("ACCUEIL").Activate

End Sub

J'ai trouvé le problème :)

j'ai supprimé la deuxième macro et ça marche