Publipostage VBA (depuis excel vers outlook)

Version imprimable

Bonjour à tous

Je sollicite votre aide car j'aimerais pouvoir automatiser un publipostage depuis une base de données excel via un document word pour envoyer in fine un email.

Avec les aides sur Internet, j'ai pu créer " manuellement" un publipostage dans word mais j'aimerais qu'en cliquant sur un bouton dans excel on puisse lancer automatiquement le publipostage.

J'utilise le code suivant mais cela ne fonctionne pas:
Il affiche une erreur à cette ligne "ActiveDocument.MailMerge.OpenDataSource Name"
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub Publiv2() Dim docWord As Object Dim appWord As Object ' Démarrer Word Set WordApp = CreateObject("word.application") With WordApp.Visible = True 'Ouverture du document principal Word Set docWord = WordApp.Documents.Open("C:\Documents and Settings\e.level\Bureau\Publipostage\Template v2.docx") ActiveDocument.MailMerge.OpenDataSource Name:="C:\Documents and Settings\e.level\Bureau\Publipostage\base de donnée.xlsx" ' Diriger le publipostage vers un nouveau document ActiveDocument.MailMerge.Execute End With ' Fermer et libérer les objets Set wdApp = Nothing End Sub
Merci bcp pour votre aide

26/11/2012, 11h20
Lilou51

Bonjour,

Essaie de modifier

ActiveDocument

par

docWord

Tu as affecté un nom (une variable) à ton document, autant t'en servir...

A+
Elise
26/11/2012, 11h44
krokos55

En changeant ActiveDocument par docWord il n'y a plus d'erreur mais aucun mail n'est envoyé
J'ai fais un test et je ne reçois aucun mail...
Merci pour votre aide
26/11/2012, 12h10
Lilou51

Ds ton code,l'envoi par mail n'est pas précisé

Code:

docWord.MailMerge.Destination = wdSendToEmail

reprends le tutoriel suivant ... tu trouveras sans doute ta réponse

http://heureuxoli.developpez.com/off...postage/#LIV-D

OUi , c'est à partir de ce tuto que j'ai essayé de construire mon code, mais je ne comprend pas très bien (je débute...)
J'ai essayé de remplacer ".execute" par docWord.MailMerge.Destination = wdSendToEmail

La macro que j'utilise est la suivante:
Code:

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 Sub Publiv2() Dim docWord As Object Dim appWord As Object ' Démarrer Word Set WordApp = CreateObject("word.application") With WordApp.Visible = True 'Ouverture du document principal Word Set docWord = WordApp.Documents.Open("C:\Documents and Settings\e.level\Bureau\Publipostage\Template v2.docx") docWord.MailMerge.OpenDataSource Name:="C:\Documents and Settings\e.level\Bureau\Publipostage\base de donnée.xlsm" ' Diriger le publipostage vers un nouveau document docWord.MailMerge.Destination = wdSendToEmail End With ' Fermer et libérer les objets Set wdApp = Nothing docWord.Close False WordApp.Quit End Sub
semble fonctionner car il n'y a pas de bug mais les mails n'ont pas l'air d’être envoyés...

Cela vient il du code ?
merci bcp !!

Bonjour,

Les lignes de codes s'ajoutent les unes aux autres... chacune a son intérêt, et il ne faut pas les substituer les unes aux autres ...

Il faut donc précisr ds la macro les éléments suivants :
- le destinataire
- le sujet du mail
- le type de destination (donc pour toi = outlook : wdSendToEmail)

- préciser la ligne de début
- préciser la ligne de fin

- exécuter
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 With docWord.MailMerge .MailAddressFieldName = "Email" 'correspond au nom du champ contenant les adresses mail .MailSubject = "Offre promotionnelle" 'correspond au sujet de ton mail .Destination = wdSendToEmail 'Ces lignes sont facultatives SI 1 ligne = 1 envoi, et que l'on fait toute la Base de données 'Sinon,il faut modifier le code... With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute End With
Bon courage !
Elise

Bonjour Elise

Grâce à votre aide, j'ai pu corriger la macro que j'utilise
La voici ci dessous.

En revanche, en exécutant, j'ai un message d'erreur sur la ligne

Code:

.MailAddressFieldName = "Mail"

En fait, ma macro excel se situe dans un doc excel qui sert de base de données aux mots clés que je veux changer dans le mail publiposté. L'exemple type du mail publiposté est lui situé dans un doc word (dans lequel j'ai crée un publipostage manuel à l'aide de l'onglet "Publipostage")
Les adresses mail sont situés dans la base de données excel avec comme titre de colonne "Mail"

mais cela ne semble pas fonctionner avec le code ci dessous

Merci bcp pour votre aide précieuse...

Code:

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
39
40
41
42
43
44
45
Sub Pulbiv3()
 
 
    'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
    Dim docWord As Object
    Dim appWord As Object
    Dim NomBase As String
 
    NomBase = "C:\Documents and Settings\e.level\Bureau\Publipostage\base de donnée.xlsm"
 
    Application.ScreenUpdating = False
    Set appWord = CreateObject("Word.Application")
    appWord.Visible = True
    'Ouverture du document principal Word
    Set docWord = appWord.Documents.Open("C:\Documents and Settings\e.level\Bureau\Publipostage\Template v2.docx")
 
    'fonctionnalité de publipostage pour le document spécifié
 
       With docWord.MailMerge
        .MailAddressFieldName = "Mail" 'correspond au nom du champ contenant les adresses mail
        .MailSubject = "Offre promotionnelle" 'correspond au sujet de ton mail
        .Destination = wdSendToEmail
 
'Ces lignes sont facultatives SI 1 ligne = 1 envoi, et que l'on fait toute la Base de données
'Sinon,il faut modifier le code...
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
 
        .Execute
    End With
 
 
 
 
    Application.ScreenUpdating = True
 
    'Fermeture du document Word
    docWord.Close False
    appWord.Quit
 
 
 
End Sub

Bonjour,

En fait, même si on commence sa macro depuis le classeur source, Word, lui, n'a pas établit la liaison avec sa source !

Pour tester qu'il n'a pas sa liaison, on peut écrire en ligne 16 :

Code:

MsgBox docWord.MailMerge.DataSource.Name

Il va faire une pop-up toute vide !

Il faut donc le lui dire : En ligne 20, avant de spécifier le nom du champ, il faut écrire :
Code:

1 2 3 4 .OpenDataSource Name:=NomBase, _ Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _ "DBQ=" & NomBase & "; ReadOnly=True;", _ SQLStatement:="SELECT * FROM [Feuil1$]"
Et là, si on refaire la msgbox, il donne bien le nom !

Désolée, j'aurais dû le spécifier avant... je pars rarement d'excel pour faire du publipostage...

Et c'est là que ça devrait normalement fonctionner... ou au moins avec

Code:

.Destination = wdSendToNewDocument

Mais chez moi, ça ne fonctionne pas... sorry... approfondis l'écriture de la source... je suppose...

Sinon... pourquoi ne pars tu pas d'un code sur Word ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub PublipostageDepuisWord() With ActiveDocument.MailMerge .MailAddressFieldName = "Adresse" .MailSubject = "Offre promotionnelle" .Destination = wdSendToEmail ' With .DataSource ' .FirstRecord = wdDefaultFirstRecord ' .LastRecord = wdDefaultLastRecord ' End With .Execute End With End Sub
Bon courage
Elise

Pourquoi pas lancer la macro depuis word mais si je mets comme code vba dans word le code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub PublipostageDepuisWord()
 
    With ActiveDocument.MailMerge
        .MailAddressFieldName = "Adresse"
        .MailSubject = "Offre promotionnelle"
        .Destination = wdSendToEmail
'        With .DataSource
'            .FirstRecord = wdDefaultFirstRecord
'            .LastRecord = wdDefaultLastRecord
'        End With
        .Execute
    End With
 
End Sub

Il ne se passe rien...

Merci pour votre aide

05/12/2012, 10h49
krokos55

Bonjour ,

Quelqu'un aurait il des pistes s'il vous plait?
merci bcp pour votre aide