Discussion :

[will Igetit]

bonjour j'ai un code qui permet de sauver une version pdf automattiquement . le probleme est le suivant :ce dernnier ne marche que sur mon poste et pas sur celui de mes collegues Y a til un code generique qui permettrtrait de contourne ce probleme sachant que nous utilisons le meme template( je ne peux pas aller sur le poste de caunn et reecrire le code pour leur pdf creator)
voici le code

Code :

Code :

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

1
2
3
4
Private Sub Workbook_BeforeClose(Cancel As Boolean)Application.ActivePrinter = "PDFCreator on Ne01:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator on Ne01:", Collate:=True
end sub

[tirex28]

Bonsoir,

ce dernnier ne marche que sur mon poste et pas sur celui de mes collegues

Cela ne nous dit pas quel est le message d'erreur. D'autre part ca devrait pouvoir s'ecrire comme ceci:

Code :

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

1
2
3
4
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDFCreator on Ne01:", Collate:=True
End Sub

ou comme cela:

Code :

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

1
2
3
4
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ActivePrinter = "PDFCreator on Ne01:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

A l'aveuglette on peut simplement supposer que tes collegues ne disposent pas de l'imprimante que tu essaye d'imposer.

Cordialement,

Tirex28/

[kiki29]

Salut, Ton probleme vient de "PDFCreator on Ne01:" ou NeXY change suivant le poste sur lequel la macro s'exécute
voir http://www.developpez.net/forums/d43...bat-distiller/
ou le probleme pour Acrobat Distiller est le même , à adapter à ton contexte