Discussion :

[Arsene12]

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

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

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

[Arsene12]

J'ai ajouté ceci après printout :

Code :

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

1
2
3
objWord.PrintOut()
Wscript.Sleep 2000
objWord.SendKeys "~"

Ça me répond :

Code :

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

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

[Arsene12]

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

Code POWERSHELL :

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

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.