Discussion :

[gyver4000]

salut

je bloque volontairement l'impression de mes fichier excel de la façon suivante (en dur dans le fichier excel pour eviter quon ouvre le fichier sans passé par mon programme de vérification des cellule ...) :

Code :

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

1
2
3
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    cancel = true
End Sub

mon programme en vb.net verifie que certaines cellules sont bien remplies puis doit imprimer le fichier .

Le souci est que je ne sais pas comment remettre l'option cancel = False avec une commande vb.net

du genre :
j'ouvre fichier excel OK
je check mes cellule OK
j'autorise l'impression ????????
j'imprime OK
et je re-interdit l'impression ?????

Merci d'avance pour votre aide

[MABROUKI]

bonjour gyver4000
Tout n'est pas disponible dans l'api par exemple l'invere de l'evenement BeforePrint c.à.d AfterPrint
Mais tu peux mettre un boolean de telle maniere à desactiver l'evenement juste apres impression.
code:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Imports OXL = Microsoft.Office.Interop.Excel
 
Public Class Form1
    Private excelApp As OXL.Application
    Private WithEvents excelWbk As OXL.Workbook
    Private WithEvents excelSheet As OXL.Worksheet
    Dim activerImpression As Boolean
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAfficheExcel.Click
        Dim chFichier As String = ""
        Dim dlgOpen As OpenFileDialog = New OpenFileDialog
        If dlgOpen.ShowDialog + Windows.Forms.DialogResult.OK Then
            chFichier = dlgOpen.FileName
            If Len(chFichier) = 0 Then Return
            'nota bene
            activerImpression = False
            excelApp = New OXL.Application
            excelWbk = excelApp.Workbooks.Open(chFichier)
            excelSheet = excelWbk.Worksheets(2)
            excelApp.Visible = True
        End If
    End Sub
 
    Private Sub excelWBK_BeforePrint(ByRef Cancel As Boolean) Handles excelWBK.BeforePrint
        If Not activerImpression Then
            Cancel = True
        Else
            Cancel = False
        End If
 
    End Sub
 
    Private Sub btnImprime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprime.Click
        If excelWbk IsNot Nothing Then
            If excelWbk.Worksheets(2) IsNot Nothing Then
                activerImpression = True
                excelSheet = excelWbk.Worksheets(1)
                excelSheet.PrintOut(1, 4, 1, True, , , , )
            End If
        End If
        activerImpression = False
    End Sub
 
    Private Sub btnQuitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuitter.Click
        excelSheet = Nothing
        excelWbk = Nothing
        excelApp.Quit()
        excelApp = Nothing
 
    End Sub
End Class

bon code.....

[gyver4000]

merci bcp

j’essaie ce code dès que je peux

developpez.com j'adore


Bonne journée a toi