Discussion :

[will Igetit]

bonjour,
j'ecris un code que je veux faire fonctionner sur plusieurs postes mas qui du coup exige une synthaxe diffrrent pour cela j'ai tente les ccodes suivants

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
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
    On Error Resume Next
 
    Application.ActivePrinter = "PDFCreator on Ne02:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator on Ne01:", Collate:=True
 
Next: Application.ActivePrinter = "PDFCreator on Ne01:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator on Ne01:", Collate:=True
End Sub

ou

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
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
 
    On Error GoTo blabla
 
    Application.ActivePrinter = "PDFCreator on Ne02:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator on Ne01:", Collate:=True
 
blabla:Application.ActivePrinter = "PDFCreator on Ne01:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator on Ne01:", Collate:=True
End Sub

ni l'un ni l'aute ne fonctionne. quequ'un connaitrait il la synthaxe correcte?
merci d'avance, cheers

[Godzestla]

Salut Will,

quelques remarques :

Code :

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

on error resume next

Next n'est pas un label mais l'indication de reprendre en cas d'erreur à l'instruction suivant celle qui suit cette instructiuon.

Faut pas mélanger tout

je n'aime pas ce genre de code, c'est sale.
As-tu essayé de travailler avec ceci ?

Code :

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

1
2
3
4
5
6
7
8
 
 
    Application.ActivePrinter = "PDFCreator"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator", Collate:=True
 
 
End Sub

Si cela ne marche pas, il existe du code pour trouver les imprimantes installées et alors tu pourrais éviter ta gestion d'erreur un peu "spéciale".

[ouskel'n'or]

Je suppose que ce qui t'intéresse est d'utiliser l'imprimante correspondante quelque soit le poste... Pour celà, tu pourrais tester ça...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
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 Sub

A défaut de mieux.
Pourquoi limiter à 9 ? Parce qu'il serait bien étonnant que tu en aies plus mais aussi parce sinon ça complique le code :

Code :

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

        Application.ActivePrinter = "PDFCreator on Ne" & right("0" & i & ":",3)

Bon après-midi

[Godzestla]

Bonjour Ouskelnor,

il me semblait que ceci allait planter

Code :

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

1
2
3
4
        On Error Resume next
        Application.ActivePrinter = "PDFCreator on Ne0" & i & ":"
        ActiveWindow.SelectedSheets.PrintOut Copies:=1

Non ?

[ouskel'n'or]

il me semblait que ceci allait planter
Non ?

Pas testé, tu l'as fait ?

Edit
Testé, pas de problème

[Godzestla]

Testé, pas de problème

Parfait merci. Pas pu testé, car par ce genre de printer.
J'imaginais que sans PDFCREATOR on Ne1, l'instruction appelée par resume next,

Code :

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

1
2
 
ActiveWindow.SelectedSheets.PrintOut Copies:=1

allait planter.

Bonne après-midi à toi.

[will Igetit]

le code a fonctionne mais peut etre ccela est du a ce que nos"Ne" vont de 1 a8..