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

[Llaurent]

Bonjour à toutes et à tous,

Je souhaite qu'une macro s'exécute lorsque l'utilisateur souhaite enregistrer son fichier Excel (la macro servira à vérifier si les données saisies par l'utilisateur sont valides, si elles le sont le fichier est enregistré sinon le fichier n'est pas enregistré et les erreurs s'affichent à l'écran). L'écriture du code permettant de vérifier les données ne me pose pas de problème, mais je ne sais pas comment faire pour que la macro s'exécute au moment où k'utikisateur essaye d'enregistrer son fichier. Il doit surement y avoir un nom spécifique à donner que je ne connais pas.
Je sais que c'est possible car je l'ai fait il y a trois ans mais je n'ai plus ce fichier.

Merci pour votre aide.

 

[Pierrot93]

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 :

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

End Sub

Bonne fin de journée.
@+

 

[Llaurent]

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

 

[Pierrot93]

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

Bonjour Laurent

Regarde le fichier ci joint


Bonne fin de journée
@+

 

[Llaurent]

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?

 

[Pierrot93]

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"

@+

 

[Llaurent]

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.

 

[Pierrot93]

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.
@+

 

[Llaurent]

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

 

[Pierrot93]

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.

@+

 

[Llaurent]

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

Effectivement ca marche!!!

Merci beaucoup, bonne semaine