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
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