P
Picho
Guest
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
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