PrintOut OutputFileName ne fonctionne pas en VBS

Bonjour,
je voudrais convertir en pdf un fichier nommé Test.docx placé sur mon bureau mais j'ai la fenêtre d'enregistrement du nouveau nom qui apparait. Savez-vous comment faire pour que mon fichier soit renommé automatiquement svp? J'ai rajouté OutputFileName= après PrintOut mais ça n'a pas marché.

Code:

---

1 2 3 4 5 6

Set objWord = CreateObject("Word.Application") Set net = WScript.CreateObject("WScript.Network") Set objDoc = objWord.Documents.Open("C:\Users\"+net.username+"\Desktop\Test.docx") objWord.ActivePrinter = "PDF Pro Virtual Printer" objWord.PrintOut OutputFileName="C:\Users\"+net.username+"\Desktop\Test2.pdf" objWord.Quit

---

lien

J'ai ajouté ceci après printout :

Code:

---

1 2 3

objWord.PrintOut() Wscript.Sleep 2000 objWord.SendKeys "~"

---

Ça me répond :

Code:

---

1 2 3

Cet objet ne gère pas cette propriété ou cette méthode objWord.SendKeys

---

Pour convertir un fichier word en pdf, il suffit d'utiliser ce code en powershell :

Code:

---

1 2 3 4 5 6 7

$File=”C:\Users\$env:username\Desktop\Test.docx” $Word=NEW-OBJECT –COMOBJECT WORD.APPLICATION $Doc=$Word.Documents.Open($File) $Doc.saveas([ref] (($File).replace(“Test.docx”,”Test2.pdf”)), [ref] 17) # changement de nom #$Doc.saveas([ref] (($File).replace(“docx”,”pdf”)), [ref] 17) #Conservation du nom $Doc.close() $Word.quit()

---

Je vais me contenter de ce code. Mais j'aurais aimé savoir comment prendre le contrôle de la fenêtre "enregistrer sous" en VBS ou Powershell.