gerer on error go/resume

Version imprimable

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:

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

Code:

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

02/10/2008, 14h28
Godzestla
Salut Will,

quelques remarques :

Code:

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 :aie:

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

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".:?

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:

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:

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

:mouarf:
Bon après-midi

Bonjour Ouskelnor,

il me semblait que ceci allait planter

Code:

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

Non ?:?

02/10/2008, 15h52
ouskel'n'or

Citation:

Envoyé par Godzestla

il me semblait que ceci allait planter
Non ?:?

Pas testé, tu l'as fait ?

Edit
Testé, pas de problème ;)
02/10/2008, 15h57
Godzestla
Citation:

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:

1 2 ActiveWindow.SelectedSheets.PrintOut Copies:=1
allait planter.

Bonne après-midi à toi.
02/10/2008, 16h01
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:

Msgbox Application.ActivePrinter

Dans le cas contraire (une seule imprimante) je ne sais pas.
A+
02/10/2008, 16h11
will Igetit

cela a fonctionne

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

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:

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:

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