Discussion :

[N3m0Xy]

Bonjour à tous! Voila vous allez peut etre éclaicir mon problème...

Grace à un code je copie sous Word le résultat d'une requete :

Code :

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

SELECT Monchamp FROM Matable WHERE Id = 1

Tout se passe bien jusque la mais je me retrouve sous Word avec le champ que j'ai sélectionné sous forme de tableau alors que je voudrais obtenir seulement la valeur du champ.
Je m'explique "SELECT Nom FROM Client WHERE Id =1" renvoie sous Word par exemple
--------
| Nom |
----------
| Durand |
----------

Je voudrais que ça renvoie seulement Durand...comment faire?!
Merci !

[cavo789]

Comment fais-tu pour envoyer les données vers Word ? Ce que tu as mis, c'est uniquement l'instruction SQL.

Christophe

[N3m0Xy]

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
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
Private Sub Commande10_Click()

Set Word_Application = GetObject(, "Word.Application")


Word_Ouvrir_document CurrentProject.Path & "\model.doc", True

 Dim stDocName As String
 
If (DCount("*", "test") > 0) Then
     Word_Atteindre_Signet "SituationNom"
     stDocName = "test"  'ma requete
 DoCmd.OutputTo acQuery, stDocName, acFormatRTF, CurrentProject.Path & "\model.rtf" 'récupération des données et exportation vers model.rtf
     Word_Insère_fichier CurrentProject.Path & "\model.rtf"
     
End If

 End Sub

 
 Public Sub Word_Atteindre_Signet(Optional Nom_signet As Variant)
    
 If Not IsNull(Nom_signet) Then
      Word_Application.Selection.GoTo What:=wdGoToBookmark, Name:=Nom_signet
End If


 End Sub



 Public Sub Word_Insère_fichier(NomFichier As String)


 Word_Application.Selection.InsertFile _
                         FileName:=NomFichier, _
                         Range:="", _
                         ConfirmConversions:=False, _
                         Link:=False, _
                         Attachment:=False


 End Sub


Public Sub Word_Ouvrir_document(Nom_Document As Variant, Visible As Boolean)

 With Word_Application
      .Visible = Visible
      .Documents.Open _
                     FileName:=Nom_Document, _
                     ConfirmConversions:=True, _
                     ReadOnly:=False, _
                     AddToRecentFiles:=False, _
                     PasswordDocument:="", _
                     PasswordTemplate:="", _
                     Revert:=False, _
                     WritePasswordDocument:="", _
                     WritePasswordTemplate:=""
 End With

 End Sub