Attribuer nom du fichier à enregistrer
Bonjour, j'ai un fichier que je converti en PDF en passant par WORD.
Code:
1
2
3
4
5
6
7
8
9
10
11
| Set objWord = CreateObject("Word.Application")
Set net = WScript.CreateObject("WScript.Network")
Set objDoc = objWord.Documents.Open("C:\Users\"+net.username+"\Desktop\Test.docx")
strDefault = objWord.ActivePrinter
objWord.ActivePrinter = "Microsoft Print To PDF"
objWord.PrintOut
objWord.ActivePrinter = strDefault
objWord.Quit |
Lorsque j'exécute le programme, une fenêtre s'ouvre me demandant de taper le nouveau nom du fichier. Pourriez-vous me dire comment faire pour indiquer le nouveau nom à enregistrer svp?
Merci d'avance de votre aide.
Arsène
