Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Modif de cellule à la "fermeture"

2 réponses
Avatar
j-pascal
Bonsoir,

Dans "Private Sub WorkBook_BeforeClose(Cancel As Boolean)",

j'ai un message qui s'affiche (ie) "Macros inactives ..."

Pb, le message s'affiche trop tôt !

En effet, si j'appuis sur "Annuler" (lorsqu'Excel demande si on veut
enregistrer, etc.), mon msg reste en place !

Est-il possible de modifier le contenu d'une cellule à l'extrême
fermeture ? J'ai essayé avec un "Application.ScreeUpDating = False",
mais ça ne change rien.

Merci pour vos lumières,

jp

2 réponses

Avatar
isabelle
bonjour Jp,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Range("A1") = Now
ActiveWorkbook.Close SaveChanges:=True
End Sub

isabelle

j-pascal a écrit :
Bonsoir,

Dans "Private Sub WorkBook_BeforeClose(Cancel As Boolean)",

j'ai un message qui s'affiche (ie) "Macros inactives ..."

Pb, le message s'affiche trop tôt !

En effet, si j'appuis sur "Annuler" (lorsqu'Excel demande si on veut
enregistrer, etc.), mon msg reste en place !

Est-il possible de modifier le contenu d'une cellule à l'extrême
fermeture ? J'ai essayé avec un "Application.ScreeUpDating = False",
mais ça ne change rien.

Merci pour vos lumières,

jp




Avatar
j-pascal
Bonsoir Isabelle,

Et merci !

jp

bonjour Jp,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Range("A1") = Now
ActiveWorkbook.Close SaveChanges:=True
End Sub

isabelle

j-pascal a écrit :
Bonsoir,

Dans "Private Sub WorkBook_BeforeClose(Cancel As Boolean)",

j'ai un message qui s'affiche (ie) "Macros inactives ..."

Pb, le message s'affiche trop tôt !

En effet, si j'appuis sur "Annuler" (lorsqu'Excel demande si on veut
enregistrer, etc.), mon msg reste en place !

Est-il possible de modifier le contenu d'une cellule à l'extrême fermeture
? J'ai essayé avec un "Application.ScreeUpDating = False", mais ça ne
change rien.

Merci pour vos lumières,

jp