Discussion :

[tom63400]

Salut à tous,
Je travaille actuellement avec ACCESS et je souhaiterai remplir des documents WORD avec des données provenant d'uen base access.

J'ai bien trouvé quelques codes mais je n'arrive pas à les mettre en oeuvre, auriez-vous une idée pour m'aider dans cette tâche ou connaitriez-vous un tuto sur cette fonction ...????

Merci

[random]

on n'a pas besoin d'une seule ligne de code pour faire du publipostage regarde ce mot dabs l'aide word et fait des recherches c'est d'une simplicité triviale

[tom63400]

En fait je recherche une méthode non pas pour faire du publipostage mais remplir 1 seul document avec plusieurs données .

[Muhad'hib]

voir les liens suivant :

http://bidou.developpez.com/faqvba/?page=2

http://access.developpez.com/faq/?page=Word

Tu verra comment créer une référence à un doc word et ainsi comment le remplir.

[tom63400]

J'ai bine trouver un code permettant de faire à peu près ce que je souhaite, le voici :

"
Private Sub CmdWORD_Click()

'Voici pour la déclaration du code:
Dim wdapp As Word.Application
Dim moncode

moncode = code.Value

'Démarrer Word
Set wdapp = CreateObject("Word.application")
' le code ci-dessous permet de faire apparaitre word
' en premier plan ou pas, false -> non et true -> oui
wdapp.Visible = False
'on ouvre le document
wdapp.Documents.Open "j:\Doc_Atelier\td138\td138_gdt.doc"
' avant d'affecter la valeur du champ code au signet code,
' je teste si le champ code est vide,
'car si oui cela posera probleme et dans ce cas j'affecte la valeur "."
If code.Value <> "" Then
wdapp.ActiveDocument.Bookmarks("code").Range.Text = code.Value
Else
wdapp.ActiveDocument.Bookmarks("code").Range.Text = "."
End If
' je sauvegarde le fichier sous un autre nom
wdapp.ActiveDocument.SaveAs "j:\Doc_Atelier\td138\" & moncode & ".doc"
' je ferme le fichier
wdapp.ActiveDocument.Close
' je ferme l'application
wdapp.Application.Quit SaveChanges:=wdDoNotSaveChanges
' et j'avertis l'utilisateur que le fichier word est crée
MsgBox "Le fichier WORD est crée !"
set wdapp=nothing
End Sub
"

Par contre, j'ai un pb au niveau de :
"If code.Value <> "" Then
wdapp.ActiveDocument.Bookmarks("code").Range.Text = code.Value
Else
wdapp.ActiveDocument.Bookmarks("code").Range.Text = "."
End If"

en fait je n'arrive à écrire les données provenant d'une base ou du formulaire de Access????

[Muhad'hib]

Essaye ce code :

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
 
 
Private Sub CmdWORD_Click()
Dim WdApp As Object
Dim Moncode
 
Moncode = code.Value
 
'Démarrer Word en ouvrant le document
Set WdApp = GetObject("D:\toto.doc")
' le code ci-dessous permet de faire apparaitre word
' en premier plan ou pas, false -> non et true -> oui
 
WdApp.Application.Visible = True
 
'test si existance du signet code
TestSignet WdApp, "code"
' avant d'affecter la valeur du champ code au signet code,
' je teste si le champ code est vide ou null,
'car si oui cela posera probleme et dans ce cas j'affecte la valeur "."
If Moncode & "" <> "" Then
WdApp.Bookmarks("code").Range.Text = code.Value
Else
WdApp.Bookmarks("code").Range.Text = "."
End If
' je sauvegarde le fichier sous un autre nom
If Moncode & "" <> "" Then
    WdApp.SaveAs "D:\toto " & Moncode & ".doc"
Else
    WdApp.SaveAs "D:\toto .doc"
End If
' je ferme l'application
WdApp.Application.Quit SaveChanges:=wdDoNotSaveChanges
' et j'avertis l'utilisateur que le fichier word est crée
MsgBox "Le fichier WORD est crée !"
Set WdApp = Nothing
 
End Sub

Avec la fonction suivante qui, le cas échéant, créé le signé Nom:

Code :

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

1
2
3
4
5
6
7
8
9
Public Sub TestSignet(ByRef Feuille As Object, Nom As String)
On Error GoTo TestSignet_Err
If Feuille.Bookmarks(Nom).Name & "" <> "" Then
End If
Exit Sub
 
TestSignet_Err:
Feuille.Bookmarks.Add Name:=Nom, Range:=Feuille.Range
End Sub

Bon courrage !