Discussion :

[merlubreizh]

Salut à tous !!

Je rencontre actuellement un petit problème. J'ai un formulaire dans lequel je rentre des coordonnées de clients. J'ai un bouton qui me permet de générer une attestation de présence au format Word. Je souhaiterais afficher dans la page Word les coordonnées du client. J'arrive à lancer Word mais pas à afficher les données. Quelqu'un peut-il m'aider ??

[Sinclar]

Salut,
Dans la FAQ et Sources il ya ce que tu cherches.

[merlubreizh]

J'ai essayé un code que j'ai trouvé dans la rubrique "Sources" et que j'ai adapté au mien. Voici mon 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
 
Private Sub C_GénérerDocs_Click()
On Error GoTo Err_C_GénérerDocs_Click
 
Dim wdapp As Word.Application
Dim monchamp
 
monchamp = L_NomClient.Value
 
'Démarrer Word
'Générer une attestation de présence
If Me.E_AttestationPresence.Value = True Then
  Set wdapp = CreateObject("Word.Application")
  'le code ci-dessous permet de faire apparaître word
  'en premier plan ou pas, false -> non et true -> oui
  wdapp.Visible = True
  'on ouvre le document
   wdapp.Documents.Open "C:\Documents and Settings\administrateur\Mes documents\Documents Word Formations\AttestationPrésence.doc"
   'avant d'affecter la valeur du champ L_NomClient au signet code,
   'je teste si le champ code est vide
   'car si oui cela posera problème et dans ce cas j'affecte la valeur "."
   If L_NomClient.Value <> "" Then
     wdapp.ActiveDocument.Bookmarks("L_NomClient").Range.Text = L_NomClient.Value
   Else
     wdapp.ActiveDocument.Bookmarks("L_NomClient").Range.Text = "."
   End If
End If
...
End Sub

Il m'affiche un message d'erreur que je ne comprends pas : "Le membre de la collection requis n'existe pas". Quelqu'un peut m'éclaircir ?

[merlubreizh]

Déjà c'est quoi une collection ?

[pgz]

Bonjour,

Comme tu ne le dis pas, je suppose que c'est cette ligne qui provoque une erreur:

Code :

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

wdapp.ActiveDocument.Bookmarks("L_NomClient").Range.Text = L_NomClient.Value

Une collection c'est une groupe d'objet. Par exemple Bookmarks est la collection des signets. D'où la première question :
As-tu placé un signet nommé L_NomClient dans le modèle de document C:...\AttestationPrésence.doc ?

Si l'erreur ne vient pas de là, tu pourrais essayer plutôt ça:

Code :

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

1
2
            .Selection.Goto What:=wdGoToBookmark, Name:="RC"
            .Selection.InsertBefore (strcom)

Voilà

Bonne journée,
pgz[/code]

[merlubreizh]

Non, mon L_NomClient est le nom d'une zone de liste de mon formulaire, ça doit être pour ça que je me suis planté. Par contre, je ne comprends la signification du code que tu me proposes. Tu peux expliquer ?

[merlubreizh]

Bon ben ça venait du signet que je n'avais pas inséré !! Merci pgz !!

[pgz]

Si tu n'a pas de signet, pas étonnant que ça ne marche pas. Tu as compris que tu devais le faire, et comment?

Mon code:
1ère ligne sélectionne le signet RC ( equivallent de chercher signet dans word) et la 2ème insère le texte strcom

Te voilà bientôt tiré d'affaire...

pgz