Microsoft 365 Impression PDF d'un Word via une macro Excel

[Celesteb]

Bonjour à tous,

J'ai un fichier Excel qui doit alimenter un Word (contrat) par publipostage. De mon fichier Excel, je souhaite une macro qui permet par un bouton : d'ouvrir le Word, Publipostage à jour et s'enregistre en PDF à un lieu précis.

J'ai un code erreur qui s'affiche : Erreur d'exécution "91" : variable objet ou variable bloc with non définie

Voici mon code

Sub Fusion_Publipostage()
Dim wordDoc As Word.Document
Dim wordApp As Word.Application
Dim Nombase As String

Nombase = "T:\Céleste\Fiche client\Fiche client comp.xlsm"

Application.ScreenUpdating = False
Set appWord = New Word.Application
appWord.Visible = True
Set wordDoc = appWord.Documents.Open("T:\Céleste\Fiche client\CG FOURNITURE DE GAZ IND.docx")

With wordDoc.MailMerge
'La base Excel est dans le même répertoire que le doc Word.
'Les données sont dans la feuille nommée Pour publi condi.
.OpenDataSource Name:=Nombase, _
Connection:="Driver={Microsoft Excel Driver (*.xlsm)};" & _
"DBQ=" & Nombase & "; ReadOnly=True;", _
SQLStatement:="SELECT * FROM [Pour publi Condi$]"

.Destination = wdSendToNewDocument
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = 2
End With
.SuppressBlankLines = True
.Execute Pause:=False
End With

DoEvents
Set WdLType = wordApp.ActiveDocument 'Document obtenu par la fusion (quand il sera obtenu...)
'WdLType.PrintOut
'WdLType.SaveAs Filename:=" T:\Céleste\Fiche client\Contrat client.PDF" ' ^^^ !
DoEvents
WdLType.Close False
DoEvents
WdDoc.Close False
DoEvents
wordApp.Quit

Set WdLType = Nothing
Set WdDoc = Nothing
Set wordApp = Nothing
End Sub

Le problème semble être sur cette ligne :

Set WdLType = wordApp.ActiveDocument 'Document obtenu par la fusion (quand il sera obtenu...)

Pouvez-vous m'aider?

Merci par avance.

 

[patricktoulon]

re
bonjour je pige pas tres bien
c'est wordDoc que tu devrais utiliser pour imprimer non?
wordDoc.printout

 

[Celesteb]

Mon fichier Excel doit être complété par nos commerciaux pour alimenter automatiquement différents documents, y compris le Word qui est le contrat client. Nous ne voulons pas qu'ils ouvrent eux-mêmes le Word car ils ne sont pas très doués (encore moins que moi) et limiter les risque de modification sur le Word. Du coup, nous voulons qu'à partir de l'Excel (onglet de saisie), nous ayons un bouton qui lance le document Word et l'enregistre en PDF une fois le publipostage fait. La première partie de mon code fonctionne mais bloque au moment ou il doit s'enregistrer en PDF.

 

[Celesteb]

Nous voulons un PDF pour qu'ils puissent l'envoyer au client et différent services chez nous.

 

[Celesteb]

re
bonjour je pige pas tres bien
c'est wordDoc que tu devrais utiliser pour imprimer non?
wordDoc.printout

Mon fichier Excel doit être complété par nos commerciaux pour alimenter automatiquement différents documents, y compris le Word qui est le contrat client. Nous ne voulons pas qu'ils ouvrent eux-mêmes le Word car ils ne sont pas très doués (encore moins que moi) et limiter les risque de modification sur le Word. Du coup, nous voulons qu'à partir de l'Excel (onglet de saisie), nous ayons un bouton qui lance le document Word et l'enregistre en PDF une fois le publipostage fait. La première partie de mon code fonctionne mais bloque au moment ou il doit s'enregistrer en PDF.

 

[job75]

Bonjour à tous,

Je ne comprends pas trop car cette macro est vraiment évidente :

Sub Word_PDF()
Dim Wapp As Object, fichier$
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
On Error GoTo 0
If Wapp Is Nothing Then MsgBox "Ouvrez le document Word...": Exit Sub
fichier = ThisWorkbook.Path & "\Word_PDF.pdf"
Wapp.ActiveDocument.ExportAsFixedFormat fichier, 17
MsgBox "Le fichier '" & fichier & "' a été créé..."
End Sub

Elle doit être dans un fichier Excel enregistré sur disque dur.

A+

 

[Celesteb]

Bonjour à tous,

Je ne comprends pas trop car cette macro est vraiment évidente :

Sub Word_PDF()
Dim Wapp As Object, fichier$
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
On Error GoTo 0
If Wapp Is Nothing Then MsgBox "Ouvrez le document Word...": Exit Sub
fichier = ThisWorkbook.Path & "\Word_PDF.pdf"
Wapp.ActiveDocument.ExportAsFixedFormat fichier, 17
MsgBox "Le fichier '" & fichier & "' a été créé..."
End Sub

Elle doit être dans un fichier Excel enregistré sur disque dur.

A+

Bonjour, c'est ma première création de macro donc je n'y connais vraiment rien. j'ai essayé de coller votre macro à la place de la mienne mais cela ne fonctionne pas. Mon Word est au même endroit que le fichier Excel.

 

[job75]

Bonjour,

Il suffit d'ouvrir le document Word puis le fichier Excel et d'exécuter la macro.

A+

 

[Celesteb]

Bonjour,

Il suffit d'ouvrir le document Word puis le fichier Excel et d'exécuter la macro.

A+

Mais la demande de ma direction c'est que les commerciaux n'est pas à ouvrir le document Word. Il doit y avoir sur Excel un bouton rattaché à une macro, qui une fois lancé, ouvre le word pour que le publipostage se face, que le document s'enregistre en PDF à un emplacement précis et le word se ferme sans qu'aucune autre intervention ne soit à faire

 

[job75]

Le sujet de ce fil c'est la création du fichier PDF non ?

Le document Word étant ouvert quand vous faites le publipostage, c'est à ce moment-là que vous exécuterez la macro pour créer le fichier PDF.

 

[Celesteb]

Le sujet de ce fil c'est la création du fichier PDF non ?

Le document Word étant ouvert quand vous faites le publipostage, c'est à ce moment-là que vous exécuterez la macro pour créer le fichier PDF.

Ma macro ouvre le document word pour que le publipostage ce fasse mais le bug arrive à ce nivau :
Set WdLType = wordApp.ActiveDocument 'Document obtenu par la fusion (quand il sera obtenu...)

C'est cette partie qui bloque pour la création du PDF

 

[job75]

Eh bien dans votre macro testez en remplaçant :

DoEvents
Set WdLType = wordApp.ActiveDocument 'Document obtenu par la fusion (quand il sera obtenu...)
'WdLType.PrintOut
'WdLType.SaveAs Filename:=" T:\Céleste\Fiche client\Contrat client.PDF" ' ^^^ !
DoEvents
WdLType.Close False
DoEvents

par :

Word_PDF

ma macro étant placée dans le même module VBA.

PS : ceci est mon 40000 ème message !!!