Event Before Save

Version imprimable

Event Before Save

Bonjour tout le monde,

Je me sens très bête car ej n'arrive pas à utiliser l'évènement beforeSave...

J'ai écris le code suivent dans le module ThisWorkbook
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Workbook_BeforeSave(Cancel As Boolean) Dim MistakePlace As String Dim WarningMsg As String MistakePlace = Range("cc11").Value If MistakePlace <> "" Then WarningMsg = MsgBox("There's a wrong input in the cell " & MistakePlace & " ! Please make adjustements and save again.") Cancel = True Else Cancel = False End If End Sub
J'aimerais que l'on ne puisse pas sauver si la valeur de la cellule CC11 est différente de ""

Maintenant, qd je veux sauver, j'ai le msg d'erreur suivent:

"Compile error
Procedure declaration does not match description event"

Qqn peut-il m'aider et me dire ce qui n'est pas bon dans mon code ????

Merci bcp pour votre aide

;)

14/01/2008, 10h31
myrddin772

C'est certainement parce que l'appel se fait comme ça :

Code:

Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Ensuite, je te conseille de préciser la feuille dans laquelle tu prend la cellule.

Saliut
Pour en revenir à Excel, soit feignant

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
Dim MistakePlace As String
MistakePlace = Range("cc11")
 
If MistakePlace <> "" Then
    MsgBox ("There's a wrong input in the cell " & MistakePlace & " ! Please make adjustements and save again.")
    Cancel = True
End If
 
End Sub

testes-la
A+

Citation:
Envoyé par Gorfael
Saliut
Pour en revenir à Excel, soit feignant
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim MistakePlace As String MistakePlace = Range("cc11") If MistakePlace <> "" Then MsgBox ("There's a wrong input in the cell " & MistakePlace & " ! Please make adjustements and save again.") Cancel = True End If End Sub
testes-la
A+
Parfait ca fonctionne correctement !

Merci bcp, et à l'avenir j'essaierai d'être encore plus fainéante la prochaine fois !

:D