bonsoir,
je souhaiterais qu'un message apparaisse lorsqu'on essaye d'enregistrer 1
classeur, du style "avez-vous pensé à lancer l'analyse avant d'enregistrer ?"
et si la réponse est négative, bloquer la sauvegarde.( le but est de contrôler
ma secrétaire qui fait souvent n'importe quoi et enregistre ses bêtises,
rendant le programme inutilisable après )
merci.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Nicolas B.
Salut,
A placer dans ThisWorkbook :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If MsgBox("Pensez à çi à ça... Annuler l'opération ?", vbYesNo) = vbYes Then Cancel = True End Sub
bonsoir, je souhaiterais qu'un message apparaisse lorsqu'on essaye d'enregistrer 1 classeur, du style "avez-vous pensé à lancer l'analyse avant d'enregistrer ?" et si la réponse est négative, bloquer la sauvegarde.( le but est de contrôler ma secrétaire qui fait souvent n'importe quoi et enregistre ses bêtises, rendant le programme inutilisable après ) merci.
Salut,
A placer dans ThisWorkbook :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If MsgBox("Pensez à çi à ça... Annuler l'opération ?", vbYesNo) = vbYes Then
Cancel = True
End Sub
bonsoir,
je souhaiterais qu'un message apparaisse lorsqu'on essaye
d'enregistrer 1 classeur, du style "avez-vous pensé à lancer
l'analyse avant d'enregistrer ?" et si la réponse est négative,
bloquer la sauvegarde.( le but est de contrôler ma secrétaire qui
fait souvent n'importe quoi et enregistre ses bêtises, rendant le
programme inutilisable après )
merci.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If MsgBox("Pensez à çi à ça... Annuler l'opération ?", vbYesNo) = vbYes Then Cancel = True End Sub
bonsoir, je souhaiterais qu'un message apparaisse lorsqu'on essaye d'enregistrer 1 classeur, du style "avez-vous pensé à lancer l'analyse avant d'enregistrer ?" et si la réponse est négative, bloquer la sauvegarde.( le but est de contrôler ma secrétaire qui fait souvent n'importe quoi et enregistre ses bêtises, rendant le programme inutilisable après ) merci.
merci pour cette réponse rapide mais ça ne marche pas: j'ai fait 1 copier coller dans la fenêtre de code de this workbook puis j'ai fermé visual basic pour revenir dans excel mais qd je sauvegarde, ça enregistre normalement. qu'ai-je fait de mal?
merci pour cette réponse rapide mais ça ne marche pas:
j'ai fait 1 copier coller dans la fenêtre de code de this
workbook puis j'ai fermé visual basic pour revenir dans
excel mais qd je sauvegarde, ça enregistre normalement.
qu'ai-je fait de mal?
merci pour cette réponse rapide mais ça ne marche pas: j'ai fait 1 copier coller dans la fenêtre de code de this workbook puis j'ai fermé visual basic pour revenir dans excel mais qd je sauvegarde, ça enregistre normalement. qu'ai-je fait de mal?
Nicolas B.
C'est juste Outlokk Express qui m'a coupé les lignes :-(
Comme ça, c'est sûrement mieux, non ?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _ As Boolean, Cancel As Boolean) If MsgBox("Pensez à çi à ça... Annuler l'opération ?", _ vbYesNo) = vbYes Then Cancel = True End Sub
merci pour cette réponse rapide mais ça ne marche pas: j'ai fait 1 copier coller dans la fenêtre de code de this workbook puis j'ai fermé visual basic pour revenir dans excel mais qd je sauvegarde, ça enregistre normalement. qu'ai-je fait de mal?
C'est juste Outlokk Express qui m'a coupé les lignes :-(
Comme ça, c'est sûrement mieux, non ?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
If MsgBox("Pensez à çi à ça... Annuler l'opération ?", _
vbYesNo) = vbYes Then Cancel = True
End Sub
merci pour cette réponse rapide mais ça ne marche pas:
j'ai fait 1 copier coller dans la fenêtre de code de this
workbook puis j'ai fermé visual basic pour revenir dans
excel mais qd je sauvegarde, ça enregistre normalement.
qu'ai-je fait de mal?
C'est juste Outlokk Express qui m'a coupé les lignes :-(
Comme ça, c'est sûrement mieux, non ?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _ As Boolean, Cancel As Boolean) If MsgBox("Pensez à çi à ça... Annuler l'opération ?", _ vbYesNo) = vbYes Then Cancel = True End Sub
merci pour cette réponse rapide mais ça ne marche pas: j'ai fait 1 copier coller dans la fenêtre de code de this workbook puis j'ai fermé visual basic pour revenir dans excel mais qd je sauvegarde, ça enregistre normalement. qu'ai-je fait de mal?
Michel Pierron
Bonsoir Nicolas B. Pourquoi pas tout simplement: Private Sub Workbook_BeforeSave(ByVal SaveAsUI _ As Boolean, Cancel As Boolean) Cancel = MsgBox("Pensez à çi à ça... Annuler l'opération ?", _ vbYesNo) = vbYes End Sub
"Nicolas B." a écrit dans le message de news:%
C'est juste Outlokk Express qui m'a coupé les lignes :-(
Comme ça, c'est sûrement mieux, non ?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _ As Boolean, Cancel As Boolean) If MsgBox("Pensez à çi à ça... Annuler l'opération ?", _ vbYesNo) = vbYes Then Cancel = True End Sub
merci pour cette réponse rapide mais ça ne marche pas: j'ai fait 1 copier coller dans la fenêtre de code de this workbook puis j'ai fermé visual basic pour revenir dans excel mais qd je sauvegarde, ça enregistre normalement. qu'ai-je fait de mal?
Bonsoir Nicolas B.
Pourquoi pas tout simplement:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
Cancel = MsgBox("Pensez à çi à ça... Annuler l'opération ?", _
vbYesNo) = vbYes
End Sub
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le message de
news:%23u5BDXJ1DHA.2528@TK2MSFTNGP10.phx.gbl...
C'est juste Outlokk Express qui m'a coupé les lignes :-(
Comme ça, c'est sûrement mieux, non ?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
If MsgBox("Pensez à çi à ça... Annuler l'opération ?", _
vbYesNo) = vbYes Then Cancel = True
End Sub
merci pour cette réponse rapide mais ça ne marche pas:
j'ai fait 1 copier coller dans la fenêtre de code de this
workbook puis j'ai fermé visual basic pour revenir dans
excel mais qd je sauvegarde, ça enregistre normalement.
qu'ai-je fait de mal?
Bonsoir Nicolas B. Pourquoi pas tout simplement: Private Sub Workbook_BeforeSave(ByVal SaveAsUI _ As Boolean, Cancel As Boolean) Cancel = MsgBox("Pensez à çi à ça... Annuler l'opération ?", _ vbYesNo) = vbYes End Sub
"Nicolas B." a écrit dans le message de news:%
C'est juste Outlokk Express qui m'a coupé les lignes :-(
Comme ça, c'est sûrement mieux, non ?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _ As Boolean, Cancel As Boolean) If MsgBox("Pensez à çi à ça... Annuler l'opération ?", _ vbYesNo) = vbYes Then Cancel = True End Sub
merci pour cette réponse rapide mais ça ne marche pas: j'ai fait 1 copier coller dans la fenêtre de code de this workbook puis j'ai fermé visual basic pour revenir dans excel mais qd je sauvegarde, ça enregistre normalement. qu'ai-je fait de mal?
Nicolas B.
Salut Michel,
Pourquoi pas tout simplement: Cancel = MsgBox("Pensez à çi à ça... Annuler l'opération ?", _ vbYesNo) = vbYes
Bonsoir Nicolas B. Pourquoi pas tout simplement: Private Sub Workbook_BeforeSave(ByVal SaveAsUI _ As Boolean, Cancel As Boolean) Cancel = MsgBox("Pensez à çi à ça... Annuler l'opération ?", _ vbYesNo) = vbYes End Sub
"Nicolas B." a écrit dans le message de news:%
C'est juste Outlokk Express qui m'a coupé les lignes :-(
Comme ça, c'est sûrement mieux, non ?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _ As Boolean, Cancel As Boolean) If MsgBox("Pensez à çi à ça... Annuler l'opération ?", _ vbYesNo) = vbYes Then Cancel = True End Sub
Bonsoir Nicolas B.
Pourquoi pas tout simplement:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
Cancel = MsgBox("Pensez à çi à ça... Annuler l'opération ?", _
vbYesNo) = vbYes
End Sub
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news:%23u5BDXJ1DHA.2528@TK2MSFTNGP10.phx.gbl...
C'est juste Outlokk Express qui m'a coupé les lignes :-(
Comme ça, c'est sûrement mieux, non ?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
As Boolean, Cancel As Boolean)
If MsgBox("Pensez à çi à ça... Annuler l'opération ?", _
vbYesNo) = vbYes Then Cancel = True
End Sub
Bonsoir Nicolas B. Pourquoi pas tout simplement: Private Sub Workbook_BeforeSave(ByVal SaveAsUI _ As Boolean, Cancel As Boolean) Cancel = MsgBox("Pensez à çi à ça... Annuler l'opération ?", _ vbYesNo) = vbYes End Sub
"Nicolas B." a écrit dans le message de news:%
C'est juste Outlokk Express qui m'a coupé les lignes :-(
Comme ça, c'est sûrement mieux, non ?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI _ As Boolean, Cancel As Boolean) If MsgBox("Pensez à çi à ça... Annuler l'opération ?", _ vbYesNo) = vbYes Then Cancel = True End Sub
a écrit dans le message de news:08e601c3d494$36af91f0$
merci pour cette réponse rapide mais ça ne marche pas: j'ai fait 1 copier coller dans la fenêtre de code de this workbook puis j'ai fermé visual basic pour revenir dans excel mais qd je sauvegarde, ça enregistre normalement. qu'ai-je fait de mal?
Insulté ta secrétaire.
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:08e601c3d494$36af91f0$a001280a@phx.gbl...
merci pour cette réponse rapide mais ça ne marche pas:
j'ai fait 1 copier coller dans la fenêtre de code de this
workbook puis j'ai fermé visual basic pour revenir dans
excel mais qd je sauvegarde, ça enregistre normalement.
qu'ai-je fait de mal?
a écrit dans le message de news:08e601c3d494$36af91f0$
merci pour cette réponse rapide mais ça ne marche pas: j'ai fait 1 copier coller dans la fenêtre de code de this workbook puis j'ai fermé visual basic pour revenir dans excel mais qd je sauvegarde, ça enregistre normalement. qu'ai-je fait de mal?
Clément Marcotte
Ce serait plus intelligent de payer un peu de formation à la secrétaire.
"Lionel Masson" a écrit dans le message de news:
bonsoir, je souhaiterais qu'un message apparaisse lorsqu'on essaye d'enregistrer 1
classeur, du style "avez-vous pensé à lancer l'analyse avant d'enregistrer ?"
et si la réponse est négative, bloquer la sauvegarde.( le but est de contrôler
ma secrétaire qui fait souvent n'importe quoi et enregistre ses bêtises,
rendant le programme inutilisable après ) merci.
Ce serait plus intelligent de payer un peu de formation à la
secrétaire.
"Lionel Masson" <massonlafayette@aol.comnonspam> a écrit dans le
message de news:20040106145203.01665.00002475@mb-m18.aol.com...
bonsoir,
je souhaiterais qu'un message apparaisse lorsqu'on essaye
d'enregistrer 1
classeur, du style "avez-vous pensé à lancer l'analyse avant
d'enregistrer ?"
et si la réponse est négative, bloquer la sauvegarde.( le but est de
contrôler
ma secrétaire qui fait souvent n'importe quoi et enregistre ses
bêtises,
Ce serait plus intelligent de payer un peu de formation à la secrétaire.
"Lionel Masson" a écrit dans le message de news:
bonsoir, je souhaiterais qu'un message apparaisse lorsqu'on essaye d'enregistrer 1
classeur, du style "avez-vous pensé à lancer l'analyse avant d'enregistrer ?"
et si la réponse est négative, bloquer la sauvegarde.( le but est de contrôler
ma secrétaire qui fait souvent n'importe quoi et enregistre ses bêtises,
rendant le programme inutilisable après ) merci.
Daniel.M
:-)))))
Daniel M.
"Clément Marcotte" wrote in message news:
Insulté ta secrétaire.
a écrit dans le message de news:08e601c3d494$36af91f0$
merci pour cette réponse rapide mais ça ne marche pas: j'ai fait 1 copier coller dans la fenêtre de code de this workbook puis j'ai fermé visual basic pour revenir dans excel mais qd je sauvegarde, ça enregistre normalement. qu'ai-je fait de mal?
:-)))))
Daniel M.
"Clément Marcotte" <clement.marcotte@sympatico.ca> wrote in message
news:ewSmWrK1DHA.2888@tk2msftngp13.phx.gbl...
Insulté ta secrétaire.
<anonymous@discussions.microsoft.com> a écrit dans le message de
news:08e601c3d494$36af91f0$a001280a@phx.gbl...
merci pour cette réponse rapide mais ça ne marche pas:
j'ai fait 1 copier coller dans la fenêtre de code de this
workbook puis j'ai fermé visual basic pour revenir dans
excel mais qd je sauvegarde, ça enregistre normalement.
qu'ai-je fait de mal?
a écrit dans le message de news:08e601c3d494$36af91f0$
merci pour cette réponse rapide mais ça ne marche pas: j'ai fait 1 copier coller dans la fenêtre de code de this workbook puis j'ai fermé visual basic pour revenir dans excel mais qd je sauvegarde, ça enregistre normalement. qu'ai-je fait de mal?
