Excel VBA impression pdf avec PDF995 Fermé

Question

Bonjour, 

J'ai quelques soucis a automatiser mon impression pfd d'une feuille excel.

voici ma macro:

Sub Macro1()

Application.ActivePrinter = "PDF995 on Ne00:"
ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:= _
"PDF995 on Ne00:", Collate:=True, _
PrToFileName:="C:\Documents and Settings\Stephane.Dupre\Desktop\coucou"

End Sub

Cela me créer bien un fichier, mais sans extention. Lorsque je rajoute .pdf au nom du fichier il me dit que le fichier une extention non reconnu ou que le fichier est endommagé.

Ca fait un moment que je cherche comment faire mais la je bloque. 

Si quelqu'un a une solution je suis tout ouie.

Mercie d'avance


Configuration: Windows XP / Firefox 9.0.1

Mrfrize · Answer

Boujour a tous,

J'ai trouvé une maniere de faire, mais je vous préviens c'est tres moche.


Dim Sauvegarde As String

Sauvegarde = "D:\coucou"

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
    "PDFCreator sur Ne01:", Collate:=True

    
    Start = Timer
    Do
        DoEvents
        Loop Until Timer > Start + 5
            Application.SendKeys (Sauvegarde) 'envoye le chemin de sauvegarde
            Application.SendKeys ("{RETURN}") 'fait enter
     
    Start = Timer
    Do
        DoEvents
        Loop Until Timer > Start + 5
            Application.SendKeys ("%{F4}") 'ferme avec  altF4


End Sub



Si quelqu'un a une maniere de faire qui serai mieux je suis preneur parce que la ca marche mais ca ne me parais pas tres fiable comme facon de faire.

Merci d'avance