fusion de données avec word

**fantomas75010** · 30/08/2006, 13h48

bonjour à tous,

j'ai un gros problème,

je suis en train de mettre en place une base Accès dans laquelle j'ai un formulaire, qui correspond à une table.

Je dois remplir automatiquement certaines informations dans des documents word, or, ces infos se trouvent dans l'enregistrement en cours d'affichage dans mon formulaire.

La fonction "fusionner vers word" est très obscure et je n'arrive pas à automatiser l'exportation des données.

En clair, je voudrais que les données figurant dans l'enregistrement d'une table soit automatiquement intégrées dans un fichier word, juste en cliquant sur un bouton de commande.

Comment faire ?

SVP helllpppp

**cafeine** · 30/08/2006, 14h20

Hello et bienvenue sur developpez,

vu que c'est ton premier message, je vais simplement éditer le titre.

Mais il est strictement interdit de mettre "au secours" dans le titre, merci.

**Pitou5464** · 30/08/2006, 14h34

salut,

sur ton bouton de commande tu met ce code:

Code :

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

1
2
3
4
5
6
7
8
9
    On Error GoTo Err_Commande70_Click
    Call export
    DoCmd.OpenTable ("WordMailMerge")
    DoCmd.RunCommand acCmdWordMailMerge
    DoCmd.Close acTable, ("WordMailMerge")
    Exit Sub
 
Err_Commande70_Click:
    MsgBox Err.Description

ensuite tu crée ta table nommé WordMailMerge avec les champs correspondants au nom de champs que tu as mis dans ta lettre:
style civil, nom, adresse, code_pos, ville
donc tu aura cinq champs dans ta table avec ses noms de champs

ensuite tu fait un nouveau sub sous le code de ton bouton

Code :

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

1
2
3
4
5
6
7
Public Sub export()
Dim str As String
str = "SELECT Table.CIVIL as [CIVIL], Table.NOM as [NOM],  ... FROM Table WHERE tes parametres
DoCmd.SetWarnings False
DoCmd.RunSQL str
DoCmd.SetWarnings True
End Sub

Table est le nom de ta table d'ou tu veut extraire les données

**jeanchcom** · 30/08/2006, 14h35

Si tu maitrises mieux Word qu'Access, as-tu essayer d'attaquer la base Access comme source d'un publipostage dans Word ?

**cafeine** · 30/08/2006, 14h39

Hello,

dans ton code, on dirait que tu veux faire un DoCmd.RunSQL sur une requête sélection ?

Envoyé par Pitou5464

salut,

sur ton bouton de commande tu met ce code:

Code :

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

1
2
3
4
5
6
7
8
9
    On Error GoTo Err_Commande70_Click
    Call export
    DoCmd.OpenTable ("WordMailMerge")
    DoCmd.RunCommand acCmdWordMailMerge
    DoCmd.Close acTable, ("WordMailMerge")
    Exit Sub
 
Err_Commande70_Click:
    MsgBox Err.Description

ensuite tu crée ta table nommé WordMailMerge avec les champs correspondants au nom de champs que tu as mis dans ta lettre:
style civil, nom, adresse, code_pos, ville
donc tu aura cinq champs dans ta table avec ses noms de champs

ensuite tu fait un nouveau sub sous le code de ton bouton

Code :

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

1
2
3
4
5
6
7
Public Sub export()
Dim str As String
str = "SELECT Table.CIVIL as [CIVIL], Table.NOM as [NOM],  ... FROM Table WHERE tes parametres
DoCmd.SetWarnings False
DoCmd.RunSQL str
DoCmd.SetWarnings True
End Sub

Table est le nom de ta table d'ou tu veut extraire les données

**Pitou5464** · 30/08/2006, 14h43

ouais comme ça il peut faire un publipostage sur plusieurs ou un contact, ça dépend de ses paramètres. enfin c comme ça que j'ai fait, je sais pas si il y a plus simple

**cafeine** · 30/08/2006, 14h50

Mais ... heu ... c'est impossible, on ne peut exécuter que des SQL action il me semble.

Envoyé par Pitou5464

ouais comme ça il peut faire un publipostage sur plusieurs ou un contact, ça dépend de ses paramètres. enfin c comme ça que j'ai fait, je sais pas si il y a plus simple

**Pitou5464** · 30/08/2006, 14h56

bah j'en sais rien il fonctionne mon code. il sélectionne des données de ma table grâce a la requète SQL et les insére dans la table wordmailmerge
ensuite ça lance le publipostage sur la table.

Code :

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

str = "SELECT T_Abonne.NOM_PAR1, T_Abonne.CIVILITE as [CIVIL], T_Abonne.DIR_NOM, T_Abonne.DIR_PRENOM, T_Abonne.ADRESSE1, T_Abonne.CODE_POS, T_Abonne.VILLE INTO WordMailMerge FROM T_Abonne WHERE T_Abonne.DIR_NOM = '" & Me.DIR_NOM & "'"

**cafeine** · 30/08/2006, 14h58

Ok, il manquait le INTO, c'est bien un SQL action.

**Pitou5464** · 30/08/2006, 15h01

est ce que tu connais plus simple?

**cafeine** · 30/08/2006, 15h03

Envoyé par Pitou5464

est ce que tu connais plus simple?

depuis Access non

mais dans la plupart des cas, il est plus simple de travailler depuis Word ...

**fantomas75010** · 30/08/2006, 16h23

Envoyé par Pitou5464

salut,

sur ton bouton de commande tu met ce code:

Code :

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

1
2
3
4
5
6
7
8
9
    On Error GoTo Err_Commande70_Click
    Call export
    DoCmd.OpenTable ("WordMailMerge")
    DoCmd.RunCommand acCmdWordMailMerge
    DoCmd.Close acTable, ("WordMailMerge")
    Exit Sub
 
Err_Commande70_Click:
    MsgBox Err.Description

ensuite tu crée ta table nommé WordMailMerge avec les champs correspondants au nom de champs que tu as mis dans ta lettre:
style civil, nom, adresse, code_pos, ville
donc tu aura cinq champs dans ta table avec ses noms de champs

ensuite tu fait un nouveau sub sous le code de ton bouton

Code :

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

1
2
3
4
5
6
Public Sub export()
Dim str As String
str = "SELECT Table.CIVIL as [CIVIL], Table.NOM as [NOM],  ... FROM Table WHERE tes parametresDoCmd.SetWarnings False
DoCmd.RunSQL str
DoCmd.SetWarnings True
End Sub

Table est le nom de ta table d'ou tu veut extraire les données

qu'entends-tu par "tes paramètres",

je ne comprends pas à quel moment les données seront exportées dans word.

Comment configurer le fichier word afin d'y intégrer les champs ?

ce que je voudrais, c'est avoir dans ce fichier (word) l'enregistrement en cours d'affichage dans mon formulaire ?

merci à tous pour vos réponses

**Alexandre Sahli** · 30/08/2006, 16h36

bonjour,

Il existe une différence entre la fusion et le publipostage.
Pour la fusion il s'agit:

d'un document Word avec des signets

Puis le pilotage depuis access

personnellement j'utilise un code pour faire des fusions d'un enregistrement d'access vers Word:

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Dim appWd As Word.Application
Dim WordDoc As Word.Document
Dim erreur As Long
Dim Nix
 
erreur = 0
On Error Resume Next 'See if Word is running
 
 
 
    Set appWd = GetObject(, "Word.Application")
 
    If Err.Number <> 0 Then 'Word Not running
      Err.Clear   ' Clear Err object in case error occurred.
      'Create a new instance of Word
 
       'Set appWd = CreateObject("Word.Application.9")
       Set appWd = CreateObject("Word.Application")
      'Create an instance of Word
    Else
            appWd.Activate
   End If
 
 
 
 
    With appWd
        ' Vorlage als Dokument öffnen
        .Documents.Add Template:=Chr(34) & Me![Modele] & Chr(34)
 
        .ActiveDocument.Bookmarks("Adresse").Select
        If Err.Number = 5941 Then
            erreur = 1
            Err.Clear
        Else
 
             .Selection.InsertAfter Nz(Me![Titre]) & vbCrLf
            If Not Nz(Me![N_Nom]) = "" Then
                 .Selection.InsertAfter Nz(Me![N_Nom]) & vbCrLf
            End If
            If Not Nz(Me![N_Comp]) = "" Then
                 .Selection.InsertAfter Nz(Me![N_Comp]) & vbCrLf
            End If
            If Not Nz(Me![N_Comp2]) = "" Then
                 .Selection.InsertAfter Nz(Me![N_Comp2]) & vbCrLf
            End If
            If Not Nz(Me![N_Adresse]) = "" Then
                 .Selection.InsertAfter Nz(Me![N_Adresse]) & vbCrLf
            End If
            If Not Nz(Me![N_NPA]) = "" Then
                 .Selection.InsertAfter Nz(Me![N_NPA] & " " & Me![N_Localite])
            End If
 
      End If
 
         .ActiveDocument.Bookmarks("Titre1").Select
        If Err.Number = 5941 Then
            erreur = 1
            Err.Clear
        Else
            .Selection.InsertAfter Nz(Me![Titre])
        End If
 
        .ActiveDocument.Bookmarks("Titre2").Select
        If Err.Number = 5941 Then
            erreur = 1
            Err.Clear
        Else
            .Selection.InsertAfter Nz(Me![Titre])
        End If
 
        If erreur = 1 Then
            Nix = MsgBox("Dans le document choisi il manque des signets" & _
            vbCrLf & "Document choisi : " & Me![Modele], _
            vbCritical, "Message sur la fusion")
 
        End If
        .Visible = True
         'Maximieren
        .WindowState = wdWindowStateMaximize
        .ActiveDocument.Bookmarks("Adresse").Select
 '        .Quit
    End With
    Set appWd = Nothing

**Alexandre Sahli** · 30/08/2006, 16h41

bonjour,

Il existe une différence entre la fusion et le publipostage.
Pour la fusion il s'agit:

d'un document Word avec des signets

Puis le pilotage depuis access

personnellement j'utilise un code pour faire des fusions d'un enregistrement d'access vers Word:

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Dim appWd As Word.Application
Dim WordDoc As Word.Document
Dim erreur As Long
Dim Nix
 
erreur = 0
On Error Resume Next 'See if Word is running
 
 
' vérifie que word est ouvert sinon l'ouvre
    Set appWd = GetObject(, "Word.Application")
 
    If Err.Number <> 0 Then 'Word Not running
      Err.Clear   ' Clear Err object in case error occurred.
       Set appWd = CreateObject("Word.Application")
 
    Else
            appWd.Activate
   End If
 
 
 
 
    With appWd
        ' ouverture du document 
        .Documents.Add Template:=Chr(34) & Me![Modele] & Chr(34)
' sélection du signet "Adresse"
        .ActiveDocument.Bookmarks("Adresse").Select
        If Err.Number = 5941 Then
            erreur = 1
            Err.Clear
        Else
  ' remplissage du signet " adresse" dans le document word
             .Selection.InsertAfter Nz(Me![Titre]) & vbCrLf
            If Not Nz(Me![N_Nom]) = "" Then
                 .Selection.InsertAfter Nz(Me![N_Nom]) & vbCrLf
            End If
            If Not Nz(Me![N_Comp]) = "" Then
                 .Selection.InsertAfter Nz(Me![N_Comp]) & vbCrLf
            End If
            If Not Nz(Me![N_Comp2]) = "" Then
                 .Selection.InsertAfter Nz(Me![N_Comp2]) & vbCrLf
            End If
            If Not Nz(Me![N_Adresse]) = "" Then
                 .Selection.InsertAfter Nz(Me![N_Adresse]) & vbCrLf
            End If
            If Not Nz(Me![N_NPA]) = "" Then
                 .Selection.InsertAfter Nz(Me![N_NPA] & " " & Me![N_Localite])
            End If
 
      End If
      ' recherche d'autre signet
         .ActiveDocument.Bookmarks("Titre1").Select
        If Err.Number = 5941 Then
            erreur = 1
            Err.Clear
        Else
            .Selection.InsertAfter Nz(Me![Titre])
        End If
 
        .ActiveDocument.Bookmarks("Titre2").Select
        If Err.Number = 5941 Then
            erreur = 1
            Err.Clear
        Else
            .Selection.InsertAfter Nz(Me![Titre])
        End If
 
        If erreur = 1 Then
            Nix = MsgBox("Dans le document choisi il manque des signets" & _
            vbCrLf & "Document choisi : " & Me![Modele], _
            vbCritical, "Message sur la fusion")
 
        End If
        .Visible = True
         'Maximieren
        .WindowState = wdWindowStateMaximize
        .ActiveDocument.Bookmarks("Adresse").Select
 '        .Quit
    End With
    Set appWd = Nothing

c'est assez laborieu car il faut que les signets existent dans le document word pour être remplacé
c'est très utile par exemple pour remplir des adresses dans des lettres types et certaines valeurs

j'espère avoir éclairé ta lanterne

**fantomas75010** · 31/08/2006, 10h00

Envoyé par Alexandre Sahli

bonjour,

Il existe une différence entre la fusion et le publipostage.
Pour la fusion il s'agit:

d'un document Word avec des signets

Puis le pilotage depuis access

personnellement j'utilise un code pour faire des fusions d'un enregistrement d'access vers Word:

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Dim appWd As Word.Application
Dim WordDoc As Word.Document
Dim erreur As Long
Dim Nix
 
erreur = 0
On Error Resume Next 'See if Word is running
 
 
' vérifie que word est ouvert sinon l'ouvre
    Set appWd = GetObject(, "Word.Application")
 
    If Err.Number <> 0 Then 'Word Not running
      Err.Clear   ' Clear Err object in case error occurred.
       Set appWd = CreateObject("Word.Application")
 
    Else
            appWd.Activate
   End If
 
 
 
 
    With appWd
        ' ouverture du document 
        .Documents.Add Template:=Chr(34) & Me![Modele] & Chr(34)
' sélection du signet "Adresse"
        .ActiveDocument.Bookmarks("Adresse").Select
        If Err.Number = 5941 Then
            erreur = 1
            Err.Clear
        Else
  ' remplissage du signet " adresse" dans le document word
             .Selection.InsertAfter Nz(Me![Titre]) & vbCrLf
            If Not Nz(Me![N_Nom]) = "" Then
                 .Selection.InsertAfter Nz(Me![N_Nom]) & vbCrLf
            End If
            If Not Nz(Me![N_Comp]) = "" Then
                 .Selection.InsertAfter Nz(Me![N_Comp]) & vbCrLf
            End If
            If Not Nz(Me![N_Comp2]) = "" Then
                 .Selection.InsertAfter Nz(Me![N_Comp2]) & vbCrLf
            End If
            If Not Nz(Me![N_Adresse]) = "" Then
                 .Selection.InsertAfter Nz(Me![N_Adresse]) & vbCrLf
            End If
            If Not Nz(Me![N_NPA]) = "" Then
                 .Selection.InsertAfter Nz(Me![N_NPA] & " " & Me![N_Localite])
            End If
 
      End If
      ' recherche d'autre signet
         .ActiveDocument.Bookmarks("Titre1").Select
        If Err.Number = 5941 Then
            erreur = 1
            Err.Clear
        Else
            .Selection.InsertAfter Nz(Me![Titre])
        End If
 
        .ActiveDocument.Bookmarks("Titre2").Select
        If Err.Number = 5941 Then
            erreur = 1
            Err.Clear
        Else
            .Selection.InsertAfter Nz(Me![Titre])
        End If
 
        If erreur = 1 Then
            Nix = MsgBox("Dans le document choisi il manque des signets" & _
            vbCrLf & "Document choisi : " & Me![Modele], _
            vbCritical, "Message sur la fusion")
 
        End If
        .Visible = True
         'Maximieren
        .WindowState = wdWindowStateMaximize
        .ActiveDocument.Bookmarks("Adresse").Select
 '        .Quit
    End With
    Set appWd = Nothing

c'est assez laborieu car il faut que les signets existent dans le document word pour être remplacé
c'est très utile par exemple pour remplir des adresses dans des lettres types et certaines valeurs

j'espère avoir éclairé ta lanterne

éclairé ma lanterne , pas tout à fait , mais en effet , je commence à appercevoir de la lumière......

n'y connaissant pas grand chose en VBA en fait rien du tout, je me demmandais ou les données étaient prises, je suppose dans une table, mais ou apparait elle dans le code ?

j'ai un document qui s'appelle "fiche1" sous word. Sous Accès j'ai une table "données" j'integre mes données par un formulaire "saisie", je voudrais que les 10 champs du doc "fiche1" soit fusionnés avec l'enregistrement qui est en cours d'affichage dans mon formulaire.

Ensuite que ce document soit automatiquement enregistré et word refermé,

puis j'aimerai, si possible préparer un mail à une adresse prédeterminée avec ce fichier en pièce jointe, mail prêt à être expédié.

Le tout à partir d'accès (donc ton code me semble très approprié si j'arrive à l'adapter, et c'est là tout le problème......)

je précise que j'ai vraiment besoin de cette aplication......

merci beaucoup pour votre aide précieuse

**fantomas75010** · 31/08/2006, 16h09

ah j'oubliais,

je précise également que je n'y connais pas grand chose en programmation, mais je suis de bonne volontée ...... j'apprends .....

fusion de données avec word

Access

Discussions similaires

Partager

Partager