Discussion :

[danielh]

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]

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]

Merci Ouskel'n'or,

Je regarde tout ça et je reviens

Daniel

[ouskel'n'or]

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

[SfJ5Rpw8]

voir aussi :
Le publipostage Word-Excel

[danielh]

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