Message d'avertissement avant sauvegarde d'une fichier
2 réponses
Rsalsa
Bonjour,
Est-il possible, avant la sauvegarde d'un fichier excel, de faire apparaître
un message d'avertissement pour prévenir l'utilisateur de revérifier les
saisies qu'il a effectué ?
Autre cas surlequel je me creuse la tête : comment empêcher la sauvegarde
d'un document excel tant qu'une cellule considérée obligatoire n'a pas été
saisie, et comment avertir l'utlisateur via un message d'avertissement que la
sauvearde n'est pas possible parce ...
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
papou
Bonjour Tu peux utiliser l'évènement Worbook_BeforeSave : Pour un message : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If MsgBox("Avez-vous bien vérifié vos saisies ?", vbYesNo, "Vérifiez !") = vbNo Then Cancel = True End If End Sub
Pour une vérif sur une cellule donnée (à adapter) : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Me.Worksheets("Feuil1").Range("A1") = "" Then Cancel = True MsgBox "La cellule A1 de la feuille Feuil1 n'est pas saisie" _ & vbLf & "la sauvegarde n'est pas possible", vbExclamation, "Erreur" End If End Sub
Cordialement Pascal
"Rsalsa" a écrit dans le message de news:
Bonjour,
Est-il possible, avant la sauvegarde d'un fichier excel, de faire apparaître un message d'avertissement pour prévenir l'utilisateur de revérifier les saisies qu'il a effectué ?
Autre cas surlequel je me creuse la tête : comment empêcher la sauvegarde d'un document excel tant qu'une cellule considérée obligatoire n'a pas été saisie, et comment avertir l'utlisateur via un message d'avertissement que la sauvearde n'est pas possible parce ...
D'avance merci pour vos aides
Bonjour
Tu peux utiliser l'évènement Worbook_BeforeSave :
Pour un message :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If MsgBox("Avez-vous bien vérifié vos saisies ?", vbYesNo, "Vérifiez !") =
vbNo Then
Cancel = True
End If
End Sub
Pour une vérif sur une cellule donnée (à adapter) :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Me.Worksheets("Feuil1").Range("A1") = "" Then
Cancel = True
MsgBox "La cellule A1 de la feuille Feuil1 n'est pas saisie" _
& vbLf & "la sauvegarde n'est pas possible", vbExclamation, "Erreur"
End If
End Sub
Cordialement
Pascal
"Rsalsa" <Rsalsa@discussions.microsoft.com> a écrit dans le message de news:
2D9C744C-6D74-4196-B38D-C1D468797F39@microsoft.com...
Bonjour,
Est-il possible, avant la sauvegarde d'un fichier excel, de faire
apparaître
un message d'avertissement pour prévenir l'utilisateur de revérifier les
saisies qu'il a effectué ?
Autre cas surlequel je me creuse la tête : comment empêcher la sauvegarde
d'un document excel tant qu'une cellule considérée obligatoire n'a pas été
saisie, et comment avertir l'utlisateur via un message d'avertissement que
la
sauvearde n'est pas possible parce ...
Bonjour Tu peux utiliser l'évènement Worbook_BeforeSave : Pour un message : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If MsgBox("Avez-vous bien vérifié vos saisies ?", vbYesNo, "Vérifiez !") = vbNo Then Cancel = True End If End Sub
Pour une vérif sur une cellule donnée (à adapter) : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Me.Worksheets("Feuil1").Range("A1") = "" Then Cancel = True MsgBox "La cellule A1 de la feuille Feuil1 n'est pas saisie" _ & vbLf & "la sauvegarde n'est pas possible", vbExclamation, "Erreur" End If End Sub
Cordialement Pascal
"Rsalsa" a écrit dans le message de news:
Bonjour,
Est-il possible, avant la sauvegarde d'un fichier excel, de faire apparaître un message d'avertissement pour prévenir l'utilisateur de revérifier les saisies qu'il a effectué ?
Autre cas surlequel je me creuse la tête : comment empêcher la sauvegarde d'un document excel tant qu'une cellule considérée obligatoire n'a pas été saisie, et comment avertir l'utlisateur via un message d'avertissement que la sauvearde n'est pas possible parce ...
D'avance merci pour vos aides
Rsalsa
Sympa merci déjà de répondre aussi vite.
J'essaie semaine prochaine
A+
"papou" wrote:
Bonjour Tu peux utiliser l'évènement Worbook_BeforeSave : Pour un message : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If MsgBox("Avez-vous bien vérifié vos saisies ?", vbYesNo, "Vérifiez !") = vbNo Then Cancel = True End If End Sub
Pour une vérif sur une cellule donnée (à adapter) : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Me.Worksheets("Feuil1").Range("A1") = "" Then Cancel = True MsgBox "La cellule A1 de la feuille Feuil1 n'est pas saisie" _ & vbLf & "la sauvegarde n'est pas possible", vbExclamation, "Erreur" End If End Sub
Cordialement Pascal
"Rsalsa" a écrit dans le message de news:
Bonjour,
Est-il possible, avant la sauvegarde d'un fichier excel, de faire apparaître un message d'avertissement pour prévenir l'utilisateur de revérifier les saisies qu'il a effectué ?
Autre cas surlequel je me creuse la tête : comment empêcher la sauvegarde d'un document excel tant qu'une cellule considérée obligatoire n'a pas été saisie, et comment avertir l'utlisateur via un message d'avertissement que la sauvearde n'est pas possible parce ...
D'avance merci pour vos aides
Sympa merci déjà de répondre aussi vite.
J'essaie semaine prochaine
A+
"papou" wrote:
Bonjour
Tu peux utiliser l'évènement Worbook_BeforeSave :
Pour un message :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If MsgBox("Avez-vous bien vérifié vos saisies ?", vbYesNo, "Vérifiez !") =
vbNo Then
Cancel = True
End If
End Sub
Pour une vérif sur une cellule donnée (à adapter) :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
If Me.Worksheets("Feuil1").Range("A1") = "" Then
Cancel = True
MsgBox "La cellule A1 de la feuille Feuil1 n'est pas saisie" _
& vbLf & "la sauvegarde n'est pas possible", vbExclamation, "Erreur"
End If
End Sub
Cordialement
Pascal
"Rsalsa" <Rsalsa@discussions.microsoft.com> a écrit dans le message de news:
2D9C744C-6D74-4196-B38D-C1D468797F39@microsoft.com...
Bonjour,
Est-il possible, avant la sauvegarde d'un fichier excel, de faire
apparaître
un message d'avertissement pour prévenir l'utilisateur de revérifier les
saisies qu'il a effectué ?
Autre cas surlequel je me creuse la tête : comment empêcher la sauvegarde
d'un document excel tant qu'une cellule considérée obligatoire n'a pas été
saisie, et comment avertir l'utlisateur via un message d'avertissement que
la
sauvearde n'est pas possible parce ...
Bonjour Tu peux utiliser l'évènement Worbook_BeforeSave : Pour un message : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If MsgBox("Avez-vous bien vérifié vos saisies ?", vbYesNo, "Vérifiez !") = vbNo Then Cancel = True End If End Sub
Pour une vérif sur une cellule donnée (à adapter) : Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Me.Worksheets("Feuil1").Range("A1") = "" Then Cancel = True MsgBox "La cellule A1 de la feuille Feuil1 n'est pas saisie" _ & vbLf & "la sauvegarde n'est pas possible", vbExclamation, "Erreur" End If End Sub
Cordialement Pascal
"Rsalsa" a écrit dans le message de news:
Bonjour,
Est-il possible, avant la sauvegarde d'un fichier excel, de faire apparaître un message d'avertissement pour prévenir l'utilisateur de revérifier les saisies qu'il a effectué ?
Autre cas surlequel je me creuse la tête : comment empêcher la sauvegarde d'un document excel tant qu'une cellule considérée obligatoire n'a pas été saisie, et comment avertir l'utlisateur via un message d'avertissement que la sauvearde n'est pas possible parce ...
