[VBA-E/W] publipostage a partir d'excel

**danielh** · 19/10/2006, 16h23

Bonjour,

J'ai fouiné dans les différents posts mais je n'ai pas trouvé mon bonheur.

Je voudrais, une fois une ligne saisie dans excel, qu'une macro m'ouvre word génère un publipostage, de la ligne en question uniquement, de façon à compléter ce courrier à façon.

Merci pour votre aide.

Daniel

**ouskel'n'or** · 19/10/2006, 17h55

Pour le principe :
Trois fichiers : La base de données.xls, un fichier xls temporaire, le .doc
Depuis ma base de données Excel, je crée un fichier xls avec entêtes de colonnes temporaire ne contenant que la ou les lignes de la base que je souhaite voir fusionnées.

Ta lettre type doit être réalisée
Elle doit être liée au nom du fichier temporaire (.xls) et les champs de fusion insérés dans ton texte

Pour ouvrir Word et lui demander d'ouvrir la lettre modèle

Code :

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

1
2
3
4
    paramètre = Chemin + "\" + NomFich ' + ".doc"
    n = "WINWORD.EXE " + paramètre
    DemWord = Shell(n, 3) '3 pour maximized
    AppActivate DemWord

Là, Word est ouvert sur la lettre désirée
Ici, tu as plusieurs solutions mais je te passe ce que j'ai fait : Une macro en auto_open, dans Word, lance la fusion.

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
39
40
41
42
43
44
45
46
47
48
Public NomLettreType
Sub AutoOpen()
    Main
End Sub
 
Public Sub Main()
    Fusionner
End Sub
 
Sub Fusionner()
Dim r, i
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .Execute
    End With
    'Un msgbox avec les boutons Oui et Annulé
    r = MsgBox("Fusion réalisée." & Chr(13) & "Souhaitez vous examiner le document avant impression ?" & Chr(13) & "(Annuler ferme Word et renvoie sur l'application Excel)", 51, "ÉDITER LE RÉSULTAT DE LA FUSION")
    If r = 6 Then
            Exit Sub
        ElseIf r = 2 Then
            quitter
    End If
    NomLettreType = ActiveDocument.Name
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=False, PrintToFile:=False
    quitter
End Sub
 
Sub quitter()
    If NomLettreType <> "" Then
        Set MonFichier = GetObject(NomLettreType)
        MonFichier.Activate
        MonFichier.Close SaveChanges:=wdDoNotSaveChanges
    End If
 
    Set MonFichierXls = GetObject("CheminFichierTemporaire\FichierTemporaire.xls")
    MonFichierXls.Activate
    MonFichierXls.Close SaveChanges:=False
 
    Set MonFichierXls = GetObject("D:\xls\FichierExcelAppelant.xls")
    MonFichierXls.Activate
    Set MonFichierXls = nothing
 
    Set MonAppli = Application
    MonAppli.Visible = True
    MonAppli.Quit SaveChanges:=wdDoNotSaveChanges
End Sub

La sortie de cette macro renvoie sur le fichier Excel du départ
Tu peux tout faire à partir d'Excel mais là, je n'ai pas le code sous la main

**danielh** · 25/10/2006, 09h54

Merci Ouskel'n'or,

Je regarde tout ça et je reviens

Daniel

**ouskel'n'or** · 26/10/2006, 18h04

NB - J'ai écrit cette macro en 98, tu pourras simplifier, c'est pas interdit (!) En attendant elle fonctionne telle quelle

A+

**SfJ5Rpw8** · 26/10/2006, 18h07

voir aussi :
Le publipostage Word-Excel

**danielh** · 05/12/2006, 12h18

Me revoila, depuis le temps !!!

Je constate un petit pb, une fois le publipostage effectué si je choisis :

- "oui" a la fenetre "editer le resultat de la fusion" il imprime mon courrier en 1 ex : OK, mais aussi le fichier de publipostage (avec les champs) en 4ex ? De plus une fois que je referme mes 2 fichiers word (la lettre et le fichier de publipostage) puis les 2 xls (la base de donnees et le temp) il m'ouvre une fenetre intitulée "fichier maintenant disponible" avec : "temp.xls est maintenant disponible pour modification" choix de "lecture-ecriture" ou "annuler"

- "non" : même résultat en sortie de fichiers avec le pb de temp.xls

- "annuler" : il referme les 2 words, les 2 xls, mais même pb pour le temp.xls

Merci

Danielh

**ouskel'n'or** · 05/12/2006, 13h17

Quelle solution as-tu retenu ? Si c'est la mienne, je n'ai jamais eu ce type d'incident, à moins que dans ton "modèle.doc" tu aies une valeur par défaut pour le nombre d'éditions (je parle de "en 4ex"). Pour l'édition du modèle, je ne vois pas et je n'ai pas ça.
A+

Autre possibilité : Si tu ne nettoies pas le fichier xls temporaire entre tes essais et que tu en fais 4 fois de suite, tu auras 4 exemplaires. Le prochain essai, tu en auras 5

Tu nous tiens au courant

**danielh** · 05/12/2006, 15h16

Récapitulatif de la procédure :

Fichiers de travail :

Base de donnée : RECAPITULATIFoctobre.xls
fichier de travail xls : temp.xls
fichier de publipostage : docpublipostage.doc

j'ouvre ma base de données "RECAPITULATIFoctobre.xls", je me positionne sur la ligne que je veux copier dans mon fichier "temp.xls" et j'execute la macro suivante qui me copie ma ligne, ferme le "temp.xls", et me repositionne sur la base de donnée :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub copie2()
   Set MonFichierXls = GetObject("C:\genevieve\temp.xls")
    ActiveSheet.Select
    Selection.Copy
    Windows("temp.xls").Activate
    Rows("5:5").Select
    ActiveSheet.Paste
    MonFichierXls.Close SaveChanges:=True
End Sub

Ensuite j'execute la macro de fusion en question, à savoir :

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Public NomLettreType
Sub AutoOpen()
    Main
End Sub
 
Public Sub Main()
    Fusionner
End Sub
 
Sub Fusionner()
Dim r, i
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .Execute
    End With
    'Un msgbox avec les boutons Oui et Annulé
    r = MsgBox("Fusion réalisée." & Chr(13) & "Souhaitez vous examiner le document avant impression ?" & Chr(13) & "(Annuler ferme Word et renvoie sur l'application Excel)", 51, "ÉDITER LE RÉSULTAT DE LA FUSION")
    If r = 6 Then
                Exit Sub
        ElseIf r = 2 Then
            quitter
    End If
    NomLettreType = ActiveDocument.Name
    Application.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=False, PrintToFile:=False
    quitter
End Sub
 
Sub quitter()
 
    If NomLettreType <> "" Then
        Set MonFichier = GetObject(NomLettreType)
        MonFichier.Activate
        MonFichier.Close SaveChanges:=wdDoNotSaveChanges
    End If
 
    Set MonFichierXls = GetObject("C:\genevieve\temp.xls")
    MonFichierXls.Activate
    MonFichierXls.Close SaveChanges:=False
    'MonFichierXls.Close SaveChanges:=True
 
    Set MonFichierXls = GetObject("C:\genevieve\RECAPITULATIFoctobre.xls")
    MonFichierXls.Activate
    'Set MonfichierXls = False
    Set MonFichierXls = Nothing
 
    Set MonAppli = Application
    MonAppli.Visible = True
    MonAppli.Quit SaveChanges:=wdDoNotSaveChanges
End Sub

Le fichier "temp.xls"contient la macro suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Sub lettre()
 
paramètre = "c:\genevieve\docpublipostage.doc"
    n = "WINWORD.EXE " + paramètre
    DemWord = Shell(n, 3) '3 pour maximized
    AppActivate DemWord
'
End Sub

Voila, si vous voyez d'ou vient ma boulette !!

Merci

**danielh** · 12/12/2006, 16h35

Bonjour,

Est ce qu' Ouskel'n'or voit le pb ? ou qqun d'autre ?

Merci

Danielh

**ouskel'n'or** · 19/03/2007, 08h58

Regarde là, y'a (enfin) la solution
http://www.developpez.net/forums/sho...02#post1864802
Désolé de ne pas y avoir pensé plus tôt... Mais je ne suis pas sûr de ne pas avoir déjà vu la réponse...

[VBA-E/W] publipostage a partir d'excel

Macros et VBA Excel

Discussions similaires

Partager

Partager