Discussion :

[Daguie]

Bonjour,

Je débute avec Access et je viens de crée une base de donnée.
j'aimerais transferer les données dans Word pour la création d'un contrat de travail.
Mais problème: je dois insérer les chantiers ou le personnel et affecter (4 ou 5 suivant les personnes)
J'ai bien pensée à utiliser le publipostage de Word mais ça ne fonctionne pas .
y a t'il une solution pour lié dans la même feuille Word le nom du salarié et les différent chantiers ? car a l'heure actuelle je me trouve avec un seul chantier par feuille et 4 à 5 feuille avec le même nom de salarié

merci de votre aide !

a bientôt

[Merryvor]

Voilà le code que moi j'ai fait pour exporter les données vers Word.
Dans mon cas, la trame type dépend d'un paramètre (d'où la fonction case, et ma requête qui contient des paramètres)
pour insérer dans le document word, il faut insérer des signets au préalable aux endroits où tu veux insérer les données.
Le While et le re.MoveNext peux te permettre de traiter l'ensemble des chantiers concernés. (Dans mon cas, il n'y avait qu'une réponse par requête)
La sauvegarde du fichier est nécessaire pour ne pas insérer consécutivement des champs sur un même signet.

J'espère que ce code pourra te faire avancer.

Code vb :

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
 
Sub MergeBM()
'Définitions
Dim sql As String
Dim database As DAO.database
Dim qry As DAO.QueryDef
Dim recordset As DAO.recordset
'Implémentations
Set database = Application.CurrentDb
Set qry = database.QueryDefs("RequêteTypePassage")
qry.Parameters("PARAM_NUM").Value = Forms!CréationConvention!Modifiable27
Set rs = qry.OpenRecordset
'Conditions
Debug.Print rs.Fields(0) 'pour afficher le résultat dans la fenêtre d'exécution
Select Case rs.Fields(0)
Case "façade"
    Call MergeFacade
Case "surplomb"
    Call MergeSurplomb
Case "souterrain"
    Call MergeSouterrain
Case "façade+boîtier"
    Call MergeFacadeBoitier
Case Else
    MsgBox ("Pas de trame type définie pour ce type de passage : " & Chr(34) & Forms!CréationConvention!SubChercheFiche!TypePassage & Chr(34))
End Select
End Sub
 
Sub MergeFacade()
'Déclaration des variables
Dim db As DAO.database
Dim query As DAO.QueryDef
Dim rs As DAO.recordset
Dim oAppli
Dim oDoc
'Affectation des objets d'accès aux données
Set db = Application.CurrentDb
Set query = db.QueryDefs("RequêtePublipostageFaçade")
query.Parameters("PARAM_NUM").Value = Forms!CréationConvention!Modifiable27
Set rs = query.OpenRecordset
Set oAppli = CreateObject("Word.Application")
Set oDoc = oAppli.Documents.Open("\\..\trame type\AccessFusionFaçade.dotm", False, True, False)
oAppli.Visible = True
'Boucle pour la récupération de données
While Not rs.EOF
    oDoc.SaveAs ("C:\Documents and Settings\All Users\Documents\" & rs.Fields(0) & ".doc")
    oDoc.Bookmarks("Commune").Range.Text = rs.Fields("Commune")
    oDoc.Bookmarks("Nom").Range.Text = rs.Fields("Nom")
    oDoc.Bookmarks("Commune2").Range.Text = rs.Fields("Commune")
    oDoc.Bookmarks("Adresse").Range.Text = rs.Fields("Adresse")
    oDoc.Bookmarks("Parcelle").Range.Text = rs.Fields("Parcelle")
    oDoc.Bookmarks("Parcelle2").Range.Text = rs.Fields("Parcelle")
    oDoc.Save
    rs.MoveNext
Wend
'Libération des objets
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub