Etat ==> Word.

**GarsDuCalvados** · 11/10/2006, 14h22

Bonjour,
Est-il possible d'envoyer un état ACCESS sous word afin de le modifier et si oui comment dois-je faire.
Merci
Cordialement GarsDuCalvados.

**GarsDuCalvados** · 11/10/2006, 14h47

J'ai essayé de créé un bouton qui envoie directement l'état dans un fichier txt (le bouton est dans le formulaire de saisie). Le hic c'est que meme aprés avoir saisi toutes les informations il me demande les valeurs des champs lorsque je clic sur le bouton.

Mais ce n'est pas le seul probleme, le truc c'est que j'aimerai que lorsque je clic sur le bouton cela m'ouvre word et m'importe l'état en question.
Merci.

**Herman** · 12/10/2006, 08h09

y'a un tuto là dessus dans la faq

**GarsDuCalvados** · 12/10/2006, 09h19

oui il y a un tutorial dessus, mais c'est pour exporter vers un fichier pdf.
Et moi ce que je veux c'est exporter l'état vers word afin de le modifier comme on veut.

Aidez moi SVP.

**Domi2** · 12/10/2006, 09h30

Bonjour,

Tu as regardé ce lien là ?

http://access.developpez.com/faq/?page=Report#ExportRTF

Le problème, avec le format rtf, c'est que tu vas perdre la mise en forme.

Mais sauf erreur de ma part, c'est la seule possibilité existante

Je ne sais pas ce que tu veux faire exactement...

S les utilisateurs ne doivent faire que des modifications minimes avant l'impression de l'état, tu peux peut-être envisager de cacher / afficher certaines portions de texte et formater ton état en utilisant des options lors de l'ouverture. Et même songer à passer du texte en paramètre...

Mais bon...

L'autre solution à envisager, c'est de créer un / des document(s) Word et de leur passer les infos depuis Access.

Regarde dans la FAQ, il existe diverses solutions. il y'en a bien une qui conviendra à ton projet.

Domi2

**GarsDuCalvados** · 12/10/2006, 14h47

En fait ce que je veux c'est rajouter des civilité du genre directeur docteur etc...

J'ai essayé ce que tu m'a filé ça m'enregistre bien un document word là ou j'ai voulu mais le truc, c'est que lorsque j'ai bien saisie toutes les informations du formulaire et cliqué sur mon icone d'exportation vers word, il me redemande les valeurs des champs.
Je comprend pas.

De plus j'aimerais que word s'ouvre directement dés que l'utilisateur à cliqué sur l'icone d'exportation avec dedans l'état.
Merci

**Herman** · 12/10/2006, 14h49

le plus simple serait d'avoir un fichier Word préformaté comme ton etat, puis d'envoyer les infos d'Access vers les bons "champs" Word

**GarsDuCalvados** · 12/10/2006, 14h57

Ha ouais c'est possible ça???
Comment dois-je procédé?
Merci

**Herman** · 12/10/2006, 15h00

1/ Tu préformate ton fichier Word
2/ Tu place des signets dans ton fichier Word à l'endroit ou tes champs Access seront exportés : insertion ==> signet
3/ Dans Access :

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
Dim CharacterNumber As Integer
Dim Font As Object
Dim Unicode As Object
Dim Bias As Object
 
[...]
 
' Ouvrir Word
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
 
' Ouvrir le document word
Set doc = oApp.Documents.Open("C:\LeFichierWord.doc")
 
' Remplacer les signets par les valeurs du Recordset
With doc
    .Bookmarks("NomDuSignet").Range.text = Nz(rst("TonChampsAccess"))
[...]

4/ C'est fini

**GarsDuCalvados** · 12/10/2006, 15h03

Ok je vais essayé, si j'ai un probleme je te tiens au courant.
Merci à toi ;-)

**GarsDuCalvados** · 12/10/2006, 15h28

ça correspond à quoi ==> Nz(rst("TonChampsAccess")

**Herman** · 12/10/2006, 15h31

le champs de ta données dans Access

**GarsDuCalvados** · 12/10/2006, 15h32

je me suis embrouillé :
Voilà ce que j'ai mis :

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
Dim characterenumber As Integer
Dim font As Object
Dim unicode As Object
Dim bias As Object
 
'Ouvrir Word
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
 
'Ouvrir le document word
Set doc = oap.Documents.Open("c:\tmp.doc")
 
'Remplacer les signets par les valeurs du recordset
 
With doc
    .bookmarks("civilite").range.Text = Nz(rst("civilite.value"))
    .bookmarks("civilite2").range.Text = Nz(rst("civilite.value"))
    .bookmarks("civilite3").range.Text = Nz(rst("civilite.value"))
    .bookmarks("entreprise").range.Text = Nz(rst("entreprise.value"))
    .bookmarks("ville").range.Text = Nz(rst("ville.value"))
    .bookmarks("objet").range.Text = Nz(rst("objet.value"))
    .bookmarks("boite_postal").range.Text = Nz(rst("boite_postal.value"))
    .bookmarks("adresse").range.Text = Nz(rst("adresse.value"))
    .bookmarks("code_postal").range.Text = Nz(rst("code_postal.value"))
    .bookmarks("date_rpt").range.Text = Nz(rst("date_rpt.value"))

Il y a un probleme sur l'ouverture de word au niveau du debogage.