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