Macro BeforeSave fait bugguer le classeur

[Laurentl]

Bonjour à tous,

J'ai beau retourner le code dans tous les sens, la macro enregistre bien le document à l'endroit souhaité, mais fait bugguer le classeur par la suite.
J'ai essayé en désactivant le rafraîchissement de l'écran (screenupdating false) mais ça ne change rien.
Ci-dessous le code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Set Sauvegarde = Range("sauvegarde")
ActiveWorkbook.SaveAs Filename:=Sauvegarde & Format(Date, "ddmmyy") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

End Sub

Ce code est tellement simple, je ne vois pas où ça coince, quelqu'un a-t-il une idée?

Merci beaucoup!

Laurentl

 

[eriiic]

Bonjour,

mais fait bugguer le classeur par la suite.

tu pourrais être plus explicite ?
eric

 

[Dranreb]

Bonsoir.
Ça coince probablement par saturation de la pile des appels !
Pourquoi faites vous ce SaveAs récursif alors qu'il est déjà forcément en voie de sauvegarde vu que ça s'exécute?