Je voudrais exécuter une macro après enregistrement... mais je n'y
parviens pas. J'ai trouvé l'événement Workbook_BeforeSave mais cela ne
s'applique qu'à l'éxecution d'une macro avant enregistrement.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
HD
Info supplémentaire... je sais qu'il existe l'événement Workbook.AfterSave mais il ne s'applique qu'à Excel à partir des versions 2010. J'ai besoin de trouver une solution utilisable (si possible) des versions 97 à 2013.
@+ HD
Info supplémentaire... je sais qu'il existe l'événement
Workbook.AfterSave mais il ne s'applique qu'à Excel à partir des
versions 2010. J'ai besoin de trouver une solution utilisable (si
possible) des versions 97 à 2013.
Info supplémentaire... je sais qu'il existe l'événement Workbook.AfterSave mais il ne s'applique qu'à Excel à partir des versions 2010. J'ai besoin de trouver une solution utilisable (si possible) des versions 97 à 2013.
@+ HD
DanielCo
Bonjour, Essaie : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) SaveAsUI = False Cancel = True Application.EnableEvents = False ThisWorkbook.Save Application.EnableEvents = True DoEvents 'ici ta macro End Sub Cordialement. Daniel
Bonjour,
Je voudrais exécuter une macro après enregistrement... mais je n'y parviens pas. J'ai trouvé l'événement Workbook_BeforeSave mais cela ne s'applique qu'à l'éxecution d'une macro avant enregistrement.
Merci de votre aide
@+ HD
Bonjour,
Essaie :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
SaveAsUI = False
Cancel = True
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
DoEvents
'ici ta macro
End Sub
Cordialement.
Daniel
Bonjour,
Je voudrais exécuter une macro après enregistrement... mais je n'y parviens
pas. J'ai trouvé l'événement Workbook_BeforeSave mais cela ne s'applique qu'à
l'éxecution d'une macro avant enregistrement.
Bonjour, Essaie : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) SaveAsUI = False Cancel = True Application.EnableEvents = False ThisWorkbook.Save Application.EnableEvents = True DoEvents 'ici ta macro End Sub Cordialement. Daniel
Bonjour,
Je voudrais exécuter une macro après enregistrement... mais je n'y parviens pas. J'ai trouvé l'événement Workbook_BeforeSave mais cela ne s'applique qu'à l'éxecution d'une macro avant enregistrement.
Merci de votre aide
@+ HD
DanielCo
Ou plutôt : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = False Then Cancel = True Application.EnableEvents = False ThisWorkbook.Save Application.EnableEvents = True DoEvents 'ici ta macro End If End Sub Daniel
Bonjour, Essaie : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) SaveAsUI = False Cancel = True Application.EnableEvents = False ThisWorkbook.Save Application.EnableEvents = True DoEvents 'ici ta macro End Sub Cordialement. Daniel
Bonjour,
Je voudrais exécuter une macro après enregistrement... mais je n'y parviens pas. J'ai trouvé l'événement Workbook_BeforeSave mais cela ne s'applique qu'à l'éxecution d'une macro avant enregistrement.
Merci de votre aide
@+ HD
Ou plutôt :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If SaveAsUI = False Then
Cancel = True
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
DoEvents
'ici ta macro
End If
End Sub
Daniel
Bonjour,
Essaie :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
SaveAsUI = False
Cancel = True
Application.EnableEvents = False
ThisWorkbook.Save
Application.EnableEvents = True
DoEvents
'ici ta macro
End Sub
Cordialement.
Daniel
Bonjour,
Je voudrais exécuter une macro après enregistrement... mais je n'y parviens
pas. J'ai trouvé l'événement Workbook_BeforeSave mais cela ne s'applique
qu'à l'éxecution d'une macro avant enregistrement.
Ou plutôt : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = False Then Cancel = True Application.EnableEvents = False ThisWorkbook.Save Application.EnableEvents = True DoEvents 'ici ta macro End If End Sub Daniel
Bonjour, Essaie : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) SaveAsUI = False Cancel = True Application.EnableEvents = False ThisWorkbook.Save Application.EnableEvents = True DoEvents 'ici ta macro End Sub Cordialement. Daniel
Bonjour,
Je voudrais exécuter une macro après enregistrement... mais je n'y parviens pas. J'ai trouvé l'événement Workbook_BeforeSave mais cela ne s'applique qu'à l'éxecution d'une macro avant enregistrement.
