Comment stopper un enregistrement avec macro?
moshojo
Messages postés
23
Statut
Membre
-
moshojo Messages postés 23 Statut Membre -
moshojo Messages postés 23 Statut Membre -
Bonjour à tous !
Dans un fichier excel, j'ai une macro qui m'ouvre une msgbox des que je clic sur enregistrer. Jaimerai pouvoir mettre une msgbox avec deux boutons, le premier qui laisserai l'enregistrement se faire et le deuxieme qui annulerai l'enregistrement.
mais je ne sais pas si on peut stopper l'enregistrement d'un fichier!
quelqu'un aurait-il une idée?
Merci d'avance !
Dans un fichier excel, j'ai une macro qui m'ouvre une msgbox des que je clic sur enregistrer. Jaimerai pouvoir mettre une msgbox avec deux boutons, le premier qui laisserai l'enregistrement se faire et le deuxieme qui annulerai l'enregistrement.
mais je ne sais pas si on peut stopper l'enregistrement d'un fichier!
quelqu'un aurait-il une idée?
Merci d'avance !
A voir également:
- Comment stopper un enregistrement avec macro?
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment couper un enregistrement audio - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Enregistrement mp3 gratuit - Télécharger - Streaming audio
- Jitbit macro recorder - Télécharger - Confidentialité
3 réponses
Bonjour,
Dans un fichier excel, j'ai une macro
Mais quel est donc le code de cette fameuse macro?
Cordialement,
Franck P
Dans un fichier excel, j'ai une macro
Mais quel est donc le code de cette fameuse macro?
Cordialement,
Franck P
Bonjour,
MsgBox avec 2 boutons.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
MsgBox avec 2 boutons.
Sub SauverOUI_NON()
If MsgBox("Confirmer sauver fichier", vbQuestion + vbYesNo, "Titre") = vbYes Then
'Sauver le fichier
Else
Exit Sub
End If
End Sub
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Select Case MsgBox("Voulez-vous enregistrer?")
Case vbYes
'procédure si click sur Oui
Case vbNo
procédure si click sur Non
End Select
End Sub
Select Case MsgBox("Voulez vous enregister?", vbYesNo, "Bonjour!")
Case vbYes
Module14.activmacro 'procédure si click sur Oui
Case vbNo
Module14.desactivmacro 'procédure si click sur Non
End Select
MsgBox(message[, boutons] [, titre] [, aide, context])
ou les arguments entre crochets sont facultatifs
Tu dois donc ajouter un argument bouton, dans ton cas oui - non. Tu peux te baser sur le code de Lermite222 (que je salues au passage!), le recopier intégralement ou adapter ton code. Au choix...
Ton code adapté :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Select Case MsgBox("Voulez-vous enregistrer?", vbQuestion + vbYesNo, "Titre") Case vbYes 'procédure si click sur Oui Case vbNo 'procédure si click sur Non End Select End SubEn cadeau, sisi ça fait plaisir!! un petit tuto super explicite...
Qu'est ce qui ne fonctionne pas dans ton code?