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

Version imprimable

19/10/2006, 16h23
danielh

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

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

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:

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:

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 ;)

25/10/2006, 09h54
danielh

Merci Ouskel'n'or,

Je regarde tout ça et je reviens ;)

Daniel
26/10/2006, 18h04
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+
26/10/2006, 18h07
SfJ5Rpw8

voir aussi :
Le publipostage Word-Excel
05/12/2006, 12h18
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
05/12/2006, 13h17
ouskel'n'or

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 :mouarf:
Tu nous tiens au courant

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:

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:

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:

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

12/12/2006, 16h35
danielh

Bonjour,

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

Merci

Danielh
19/03/2007, 08h58
ouskel'n'or

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... ;)