MsgBox Suvegarde document après modification

[kohta]

Bonjour, j'aimerais créer une boite de dialogue avec un bouton permettant de sauvegarder le document, qui devrait se lancer à la fermeture d'une autre boîte de dialogue agissant sur les cellules.

Comment procéder?

Merci

Cordialement

 

[Kotov]

Re : MsgBox Suvegarde document après modification

Bonjour Khota,

Ne sachant pas exactement ce que tu souhaites faire pour la saisie de données, j'ai réalisé un exemple très basique te proposant de saisir une donnée dans la cellule active, assorti d'une proposition d'enregistrement.
La sauvegarde n'est réalisé que sur une réponse affirmative.

Sub ChgtCellules_Clic()
Dim v As Variant
Dim r As Byte
v = InputBox("Saisissez une valeur dans la cellule active", "Saisie..")
ActiveCell = v
r = MsgBox("Souhaitez-vous enregistrer le fichier ?", vbQuestion + vbYesNo, "Sauvegarde ..")
If r = 6 Then ActiveWorkbook.Save
End Sub

Bonne soirée
Kotov