convertir en pdf avec adobe VBA

[sophie.baron]

Bonjour,

Je voudrais convertir un fichier excel en Pdf via une macro vba: jusqu'a là, pas de problème! Là ou je bloque, c'est que je voudrais transformer un fichier donné(pas celui sur lequel je suis), le mettre dans un dossier précis et le renommer.

Code :

1
2
3
4
5
6
7
Sub Imprimer()
Dim MonImprimanteParDéfaut
    MonImprimanteParDéfaut = Application.ActivePrinter
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", collate:=True  ', PrToFileName:="G:\Corporate Broking\Sophie\testimaj\taratatatata.pdf"
    'Ensuite, tu peux revenir sur 'MonImprimanteParDéfaut
    Application.ActivePrinter = MonImprimanteParDéfaut
End Sub

j'ai essayé avec PrToFileName:="G:\Corporate Broking\Sophie\testimaj\taratatatata.pdf" ou outputfilename:="G:\Corporate Broking\Sophie\testimaj\taratata.pdf" et cela ne marche pas non plus!

Si quelqu'un avait une petite idée, ça m'aiderai beaucoup!

Merci!

[sophie.baron]

En passant par un sendkeys, on peut enregistrer le fichier dans le dossier voulu:

SendKeys ThePath & TheFile + "~"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", collate:=True