Discussion :

[rider18]

Bonsoir,
Je voudrais savoir comment bloquer l'impression du document, si il y a rien devant un signet?
J'ai commencer un code mais ça marche pas!
Quelqu'un pourrais m'aider pour créer ce code?
Merci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Document_BeforePrint(Cancel As Boolean)
    If ActiveDocument.Bookmarks("SignetDate").Range.Text = "" Or ActiveDocument.Bookmarks("SignetDate").Range.Text.Value = "" Then
        Cancel = True
        MsgBox "Remplissez la Date pour pouvoir imprimer"
    End If
End Sub

[Heureux-oli]

Salut,

T'es certain de la gestion de ton évènement ?

http://heureuxoli.developpez.com/off...age=page2#L2-C

[rider18]

Salut, je sais pas trop.
J'ai repris un code que j'ai sur excel que j'ai modifié pour Word.

[Heureux-oli]

Salut,

Voilà un exemple de code qui devrait le faire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Public WithEvents appWord as Word.Application
 
Private Sub appWord_DocumentBeforePrint (ByVal Doc As Document, Cancel As Boolean)
 
   If ActiveDocument.Bookmarks("SignetDate").Range.Text = "" Or ActiveDocument.Bookmarks("SignetDate").Range.Text.Value = "" Then
        Cancel = True
        MsgBox "Remplissez la Date pour pouvoir imprimer"
    End If
 
End Sub

[rider18]

re,
J'ai essayé le code ça marche pas !!
Il faut le mettre dans un module ou dans Thisdocument?

[Heureux-oli]

Salut,

Thisdocument, mais il faut initialiser la gestion.

Donc, dans l'évènement Document_Open(), on utilise l'objet application.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public WithEvents appWord as Word.Application
 
Sub Document_Open()
Set appWord = Word.Application
End Sub
 
Private Sub appWord_DocumentBeforePrint (ByVal Doc As Document, Cancel As Boolean)
 
   If ActiveDocument.Bookmarks("SignetDate").Range.Text = "" Or ActiveDocument.Bookmarks("SignetDate").Range.Text.Value = "" Then
        Cancel = True
        MsgBox "Remplissez la Date pour pouvoir imprimer"
    End If
 
End Sub

[rider18]

Merci Heureux-oli ça marche

[rider18]

J'ai été un peu trop vite.Le code bloque bien l'impression mais quand j'écris devant le "SignetDate" il me bloque quand même l'impression.
ça marche peut être pas avec un signet?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Public WithEvents appWord As Word.Application
 
Sub Document_Open()
Set appWord = Word.Application
End Sub
 
Private Sub appWord_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
 
   If ActiveDocument.Bookmarks("SignetDate").Range.Text = "" Then
        Cancel = True
        MsgBox "Remplissez la Date pour pouvoir imprimer"
    End If
 
End Sub

[Heureux-oli]

Salut,

C'est à toi de voir pourquoi, j'ai juste recopié ton code, je n'ai pas regardé ce qu'il était sensé faire.

Il ne te reste qu'à tester le contenu du signet.

[rider18]

Merci je vais chercher le problème du signet.

[rider18]

Bonsoir , j'ai réussi mon code pour bloquer l'impression. Je suis passer par un champ.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public WithEvents appWord As Word.Application
 
Sub Document_Open()
Set appWord = Word.Application
End Sub
 
Private Sub appWord_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
 
If ActiveDocument.FormFields("Texte1").Result = "" Then
 
 Cancel = True
        MsgBox "Remplissez la Date pour pouvoir imprimer "
 
    End If
 
End Sub

A+