Discussion :

[Arsene12]

Bonjour, j'ai un fichier que je converti en PDF en passant par WORD.

Code VBA :

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

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

[Arsene12]

Je pense qu'il doit falloir ajouter le nom du fichier après le print out :

Code VBA :

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

objWord.PrintOut True, , 4, , , , , 1, "2-", 0, , True, , , , 0, 0, 0, 0

quelque part entre deux virgules.