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.

[ouskel'n'or]

Tu peux tester, nous avons tous un N° de "canal" dès lors que nous avons plus d'une imprimante. Test ça

Code :

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

Msgbox Application.ActivePrinter

Dans le cas contraire (une seule imprimante) je ne sais pas.
A+

[will Igetit]

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

[Godzestla]

j'ai testé.... et chez moi cela ne marche pas comme je le préssentais.
(désolé d'insister).

Je n'ai pas de Pdfcreator, mais j'assimile cela à pas de Pdfcreator on Ne1, et je suppose que toi tu l'as.

le code me crache 10 fois ma liste sur l'imprimante par défaut.

C'est ce que je voulais dire par

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

il me semble que le code juste serait plutot :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
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 & ":"
    Loop While err.number <> 0 and i < 10
    On error goto 0
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub