Discussion :

[will Igetit]

bonjour , jai un code qui permet de sauvegarder un pdf de document via un bouton.
le probleme est le suivant sur un des postes au lieu d faire un sauvegarde comme les auter il lance une impression de 10 copies du document ... etrange
est ce que quelqu un saurait pourquoi?

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
Private Sub CommandButton2_Click()
 
 
 
Dim nom As String
 
nom = InputBox("enter the name of the file:")
 
If nom = "" Then
ThisWorkbook.Close False
 
 Else: ThisWorkbook.SaveAs Filename:="\\smb2lonib\" & nom & ".xls"
 
 
 
Dim i As Integer
    Do
        Err.Clear
        i = i + 1
        On Error Resume Next
        Application.ActivePrinter = "PDFCreator on Ne0" & i & ":"
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Loop While Err.Number <> 0 And i < 10
    On Error GoTo 0
 
 
 End If
 
 
End Sub

[ucfoutu]

Bonjour,

Ah, les joies de On Error Resume Next ....

Au bout d'un moment ===>> imprimante par défaut... 10 fois (puisque 10 fois allons-y même si erreur...)

[will Igetit]

ce code est cense lancer pdf creator pour enregistrer le document . En aucun cas l'imprimer . je n'ai d'ailleurs pas de probleme sur les autres postes..

[casavba]

PDF Creator est Bien installé dans les autres postes ??

[ucfoutu]

ce code est cense lancer pdf creator pour enregistrer le document . En aucun cas l'imprimer . je n'ai d'ailleurs pas de probleme sur les autres postes..

Ah ...
et que fait ceci :

Code :

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

 ActiveWindow.SelectedSheets.PrintOut Copies:=1

lorsque "ton" imprimante n'étant pas trouvée, le On Error Resume Next ignore cet échec, sinon exécuter sur l'imprimante par défaut ?

[ucfoutu]

Un exemple (je ne veux pas écrire ton code) pour alimenter ta réflexion :

3 boutons de commande.

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
Private Sub Command1_Click()
  Dim i As Integer
    Do
        Err.Clear
        i = i + 1
        On Error Resume Next
        toto = 1 / 0 'donc erreur générée ici
        MsgBox "coucou " & i & " fois l'exécutuin en dépit de l'erreur"
    Loop While Err.Number <> 0 And i < 10
    On Error GoTo 0
   MsgBox "j'ai essayé " & i & " fois et ai lancé autant de fois la msgbix indûment"
End Sub
 
Private Sub Command2_Click()
  Dim i As Integer
    Do
        Err.Clear
        i = i + 1
        On Error Resume Next
        toto = 1 / 0 'donc erreur générée ici
        If Err = 0 Then
          MsgBox "coucou " & i & " fois"
          Exit Do
        End If
    Loop While i < 10
   MsgBox "j'ai essayé " & i & " fois mais n'ai pour autant jamais lancé la msgbox"
End Sub
 
Private Sub Command3_Click()
  Dim i As Integer
    Do
        Err.Clear
        i = i + 1
        On Error Resume Next
        toto = 1 / 2 'donc pas d'erreur provoquée
        If Err = 0 Then
          MsgBox "coucou " & i & " fois"
          Exit Do
        End If
    Loop While i < 10
   MsgBox "j'ai essayé " & i & " fois mais n'ai pour autant jamais lancé la msgbox 10 fois !"
End Sub

compare les 3 effets... analyse, comprends et sers-t-en

[decondelite]

Juste par rapport à ce que tu as écrit ucfoutu: ne serait-il pas plus pertinent de réinitialiser le code d'erreur à l'intérieur du test de code d'erreur avec un else?

Pour ma part je fais systématiquement le err.clear dans cette condition, car il est sémantiquement plus logique de dire au programme qu'il n'y a plus d'erreur puisqu'on vient de la traiter.

Après, chacun sa façon de faire, mais pour ma part je privilégie la sémantique à la simplicité et aux "trucs bricolés".