MsgBox a l'enregistrement

[apdf]

Bonjour,

J'ai un bouton sur mon USF pour enregistrer mon classeur avec le code suivant:

Private Sub CommandButton1_Click()

ActiveWorkbook.Save
End Sub

J'aimerais que lorsque j'enregistre une MsgBox me confirme l'enregistrement.

Je vous remercie d'avance

 

[Pierrot93]

Re : MsgBox a l'enregistrement

Bonjour,

essaye ceci :

Private Sub CommandButton1_Click()
ActiveWorkbook.Save
MsgBox "enregistrement ok..."
End Sub

bonne journée
@+

 

[apdf]

Re : MsgBox a l'enregistrement

Bonjour Pierrot,

Je te remercie mais j'aurais aimé que le message se ferme seul au bout de quelque secondes est-il possible?

Bonne journée

 

[Pierrot93]

Re : MsgBox a l'enregistrement

Re,

utilise ceci :

CreateObject("WScript.Shell").Popup "Enregistrement ok....", 1, "Patienter...."

 

[apdf]

Re : MsgBox a l'enregistrement

Re,

Je te remercie et te souhaite une bonne journée

 

[Dranreb]

Re : MsgBox a l'enregistrement

Bonjour apdf, Pierrot.
Je m'étais fabriqué ce Userform pour couvrir ce besoin (entre autre)
Cordialement.

 

[apdf]

Re : MsgBox a l'enregistrement

Bonjour Dranreb

Sacré usine ..! merci et bonne journée

 

[degap05]

Re : MsgBox a l'enregistrement

Bonjour,

Suivant l'aide: fring_msgbox

Issu de la FAQ Excel (par SilkyRoad).
Il est possible d'afficher une MsgBox durant un temps prédéfini et de la supprimer automatiquement.
Exemple : la MsgBox s'affichera durant 3 secondes
Code VBA

CreateObject("Wscript.shell").Popup "Le Message", 3, "Le Titre", vbExclamation

A+

Doublon avec Pierrot93, désolé!