Macro s'exécutant suite à l'action "Enregistrer"

Pierrot93

XLDnaute Barbatruc

• 17 Novembre 2006

• #2

Re : Macro s'exécutant suite à l'action "Enregistrer"

Bonjour Laurent

Dans le module de code de "ThisWorkbook", tu mets ton code dans l'évènement "BeforeSave" comme ci dessous :

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'ton code
'ton code

End Sub

Bonne fin de journée.
@+

 

Vote positif 0 Vote négatif

L

Llaurent

XLDnaute Nouveau

• 18 Novembre 2006

• #3

Re : Macro s'exécutant suite à l'action "Enregistrer"

Merci pour ton aide, mais je n'arrive pas à m'en servir (je suis novice en VBA).
Comment faire un truc tout simple comme afficher "toto" lorsque l'utilisateur souhaite enregistrer?

Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Novembre 2006

• #4

Re : Macro s'exécutant suite à l'action "Enregistrer"

Bonjour Laurent

Regarde le fichier ci joint


Bonne fin de journée
@+

 

Pièces jointes

• classeur1.xls

  17.5 KB · Affichages: 72
• classeur1.xls

  17.5 KB · Affichages: 76
• classeur1.xls

  17.5 KB · Affichages: 81

Vote positif 0 Vote négatif

L

Llaurent

XLDnaute Nouveau

• 18 Novembre 2006

• #5

Re : Macro s'exécutant suite à l'action "Enregistrer"

Merci Pierrot ca marche comme je veux, mais comment j'accéde au code de la macro que tu as fait?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 18 Novembre 2006

• #6

Re : Macro s'exécutant suite à l'action "Enregistrer"

Re Laurent

tu fais ALT F11, tu arrives dans l'éditeur VBA, tu double clique dans le projet portant le nom du classeur, puis double clique dans "microsoft Excel objets", puis double clique dans "ThisWorkbook"

@+

 

Vote positif 0 Vote négatif

L

Llaurent

XLDnaute Nouveau

• 19 Novembre 2006

• #7

Re : Macro s'exécutant suite à l'action "Enregistrer"

Salut,

Encore merci pour ton aide, j'ai une dernière question (enfin j'espère lol), lorsque l'utilisateur voudra enregistrer, la macro s'exécutera et vérifiera si il y a des erreurs de saisie, si il n'y a pas d'erreur le fichier s'enregistre sinon le fichier ne doit pas s'enregistrer.
Une partie du code ressemblerait à ca:

Si NbErreur = 0 Alors
le fichier s'enregistre
Sinon
le fichier ne s'enregistre pas
Fin Si

Ce qui donne:

If NbErreur = 0 Then
ActiveWorkbook.Save
Else
??????????????????
End If

Merci.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Novembre 2006

• #8

Re : Macro s'exécutant suite à l'action "Enregistrer"

Bonjour Laurent

Toujours dans l'évènement "BeforeSave", si tu passes l'argument "cancel" à "True", l'action est annulée. J'ai rajouté la ligne dans le classeur.

Bon dimanche.
@+

 

Pièces jointes

• classeur1.xls

  18 KB · Affichages: 69
• classeur1.xls

  18 KB · Affichages: 73
• classeur1.xls

  18 KB · Affichages: 70

Vote positif 0 Vote négatif

L

Llaurent

XLDnaute Nouveau

• 19 Novembre 2006

• #9

Re : Macro s'exécutant suite à l'action "Enregistrer"

Ok merci, pour tester j'ai remplacé la valeur "x" par "a" dans la cellule A1, normalement le fichier ne devrait pas s'enregistrer or il s'enregistre. Ne manque t'il pas quelque chose dans le code que tu m'as transmis?

Encore merci pour ton aide

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 19 Novembre 2006

• #10

Re : Macro s'exécutant suite à l'action "Enregistrer"

Re Laurent

et quand le fichier est ré ouvert, en A1 tu as quoi, moi je viens de tester a priori ca marche, il ne m'enregistre pasle a.

@+

 

Vote positif 0 Vote négatif

L

Llaurent

XLDnaute Nouveau

• 19 Novembre 2006

• #11

Re : Macro s'exécutant suite à l'action "Enregistrer"

Effectivement ca marche!!!

Merci beaucoup, bonne semaine

 

Vote positif 0 Vote négatif