Macro enregistrer avec msgbox

[Picho]

Bonjour

J'ai un petit probleme avec cette macro,
Je commance seulement a apprendre le VB, je n'arrive pas a enchainer deux action, en l'ocurrence et sauvegarder et msgbox.

Merci d'avance


Sub sauvegarde()

rep = MsgBox("Voulez vous sauvegarder votre trvail ?", vbYesNo)
If rep = vbYes Then MsgBox "Votre travail viens d'etre enregistré"
ElseIf rep = vbYes Then ActiveWorkbook.Save
If rep = vbNo Then MsgBox "Votre travail n'a pas été sauvegardé"
End Sub

 

[petchy]

bonjour le forum

Picho,essaye d'enlever le "Else"

Sub sauvegarde()

rep = MsgBox("Voulez vous sauvegarder votre travail ?", vbYesNo)
If rep = vbYes Then MsgBox "Votre travail viens d'etre enregistré"
If rep = vbYes Then ActiveWorkbook.Save
If rep = vbNo Then MsgBox "Votre travail n'a pas été sauvegardé"
End Sub

@ plus
petchy

 

[Robert]

Salut Picho, salut le forum,

essaie comme ça :

Sub sauvegarde()
rep = MsgBox("Voulez vous sauvegarder votre travail ?", vbYesNo)
If rep = vbYes Then
ActiveWorkbook.Save
MsgBox "Votre travail viens d'être sauvegardé."
End If
If rep = vbNo Then MsgBox "Votre travail n'a pas été sauvegardé."
End Sub

À plus,

Robert

 

[Robert]

re Picho, le forum, salut Petchy,

Désolé Petchy j'avais pas actualisé...

À plus,

Robert