Discussion :

[Krimo_48]

Bonjour,

J'ai créé une VBA afin d'automatiser un processus de Publipostage. Je me retrouve face à deux problèmes:
- Lorsque je lance la VBA, Word bloque car il attend une réponse au message suivant : "L'ouverture de ce document éxecute la commande SQL suivante : SELECT*FROM 'BASE DE DONEE PUBLIPOSTAGE$' Des données de votre base de données seront insérées dans le document Voulez-vous continuer?"

Si je ne réponds pas, Excel me renvoie une boite de dialogue m'indiquant qu'il attend une réponse d'une action OLE ("Microsoft Excel attend la fin de l'exécution d'une action OLE d'une autre application");

- Une fois que je valide manuellement la requête, deux documents sont générés. Un intitulé "Lettre 1 type" qui présente un document tel qu'attendu et un document intitulé "Document 1" qui est vierge.

Ainsi, mes problèmes sont la boite de dialogue requête SQL et le document 1 que j'aimerais ne plus voir apparaitre.

Je souhaiterais également enregistré, dans un dossier spécifié, la "lettre type 1" en format PDF sous un nom de document sous le format - Prélèvement en date du "date" sur chantier "numéro de chantier" - (par ex: Prélèvement en date du 061219 sur chantier n°19-186) en fichier PDF

Ne sachant pas comment faire, si quelqu'un a des idées à me proposer, je suis preneur

merci d'avance.

Karim

[Krimo_48]

Ceci dit, j'ai un peu avancé.

Si quelqu'un pouvait m'aider sur la façon de nommer le fichier, ça m'enlèverait une grosse épine du pied

Mon code VBA mis à jour:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Publipostage()
'Enregistre le fichier au format.pdf
'N?cessite d'activer la r?f?rence "Microsoft Word xx.x Object Library"
Dim docWord As Word.Document
Dim appWord As Word.Application
Dim NomBase As String
 
NomBase = ThisWorkbook.FullName
Application.ScreenUpdating = False
Set appWord = New Word.Application
appWord.Visible = True
'Ouverture du document principal Word
Set docWord = appWord.Documents.Open("C:\Users\PC\Desktop\ProjetPublipostage\VI\PUBLIPOSTAGE RAPPORT V3.docx")
'fonctionnalit? de publipostage pour le document sp?cifi?
With docWord.MailMerge
'Ouvre la base de donn?es
.OpenDataSource Name:=NomBase, _
Connection:="Driver={Microsoft Excel Driver (*.xlsx)};" & _
"DBQ=" & NomBase & "; ReadOnly=True;", _
SQLStatement:="SELECT * FROM [BASE DE DONNEE PUBLIPOSTAGE$]"
With .DataSource
.FirstRecord = 1
.LastRecord = 1
End With
'Ex?cute l'op?ration de publipostage
.Execute
End With
' Sauvegarde du document publipost?
With appWord.ActiveDocument
.ExportAsFixedFormat OutputFileName:="C:\Users\PC\Desktop\ProjetPublipostage\VI\" & "New_name" & ".pdf", ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False
End With
Application.ScreenUpdating = True
'Fermeture du document Word
docWord.Close False
appWord.ActiveDocument.Close False
appWord.Quit
End Sub

Pour l'instant le hic se trouve ici:

Code :

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

1
2
With appWord.ActiveDocument
.ExportAsFixedFormat OutputFileName:="C:\Users\PC\Desktop\ProjetPublipostage\VI\" & "New_name" & ".pdf", ExportFormat:= _

Où il doit y avoir une ligne qui manque pour appeler le fichier Excel en cours et appeler les données de cellules AE2 et A2. Ainsi, New_name serait égale à

Code :

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

"Prèlevement n°" & "Range("A2").Value" & "effectué en date du " & "Range (AE2).Value"

Mais si je rentre la formule tel qu'elle, vu que je commence avec With appWord.ActiveDocument, le VBA ne trouve pas la référence (la feuille excel)

Une idée?

Merci d'avance.

[Krimo_48]

J'ai mis à jour ma VBA en suivant l'idée que j'avais dans mon précédent message en présentant la chose comme suit :

Code :

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

1
2
3
4
5
New_name = "Prélèvement n° " & Range("B2").Value & " effectué en date du " & Range("AE2") & " sur chantier n? " & Range("A2").Value
    With appWord.ActiveDocument
        .ExportAsFixedFormat OutputFileName:="C:\Users\PC\Desktop\ProjetPublipostage\VI\" & New_name & ".pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False
        End With

Cependant ça bug en surlignant cette partie:

Code :

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

1
2
 .ExportAsFixedFormat OutputFileName:="C:\Users\PC\Desktop\ProjetPublipostage\VI\" & New_name & ".pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False

Et en indiquant dans le message de la boite de dialogue :

"Erreur d'exécution '-2147467259 (80004005)

Le nom du dossier est incorrect"

Quelqu'un pourrait m'aider ?

Je joins les fichiers concerné

Merci d'avance.

[Krimo_48]

Finalement j'ai trouvé la solution :

[MAXALM]

Bonjour,

J'ai exactement le même problème que vous.
Je souhaite ouvrir via VBA mon document word incluant du publipostage.

Problème le message concernant la commande SQL.

Avez-vous trouver la solution pour valider ce message et ainsi ouvrir Word avec les champs de fusion à jour ?

Merci d'avance,