Bonjour,

Je souhaite une bonne année à tot le monde.
J'ai trouver un code qui ne marche pas sur internet qui transforme un document word en pdf.
J'aimerais avoir une correction sur ce code et savoir s'il serait possible de faire plusieurs word en même temps?
Merci et bonne journée

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub test()
 
    Dim wdApp As Object
    Set wdApp = CreateObject("word.application")
 
    wdApp.Documents.Open ("C:\Users\Nouveau1.doc")
 
 
    wdApp.ActivePrinter = "PDFCreator"
 
    Dim FileNamePDF As String
    FileNamePDF = "C:\Users\\nouveau1.pdf"
 
    wdApp.DisplayAlerts = wdAlertsNone
    wdApp.PrintOut OutputFileName:=FileNamePDF, PrintToFile:=False
 
    wdApp.ActiveDocument.Close
    wdApp.Quit
    Set wdApp = Nothing
End Sub