[Automation]Problème avec la valeur envoyé vers un doc word

Version imprimable

12/04/2007, 13h47
ludovicparis

[Automation]Problème avec la valeur envoyé vers un doc word

Bonjour à tous,

J'ai une zone de liste modifiable qui permet de sélectionner un câble. Lors du choix, une seule colonne de la requête est visible. L'utilisateur ne voit donc qu'une colonne.
Le câble sélectionné ne fait pas partie de la colonne liée que possède ma zone de liste modifiable et je ne peux pas changer le numéro de la colonne liée.
Mon problème est que, dans le document Word qui est créé avec l'utilisation de signet, le signet me renvoi la valeur de la colonne liée et non la valeur que l'utilisateur a sélectionnée.

J'aimerais que le câble qu'à choisit l'utilisateur soit exporté vers Word et non la ligne de la colonne liée associé à ce câble. Si je change le numéro de ma colonne liée et que j'attribue le numéro de la colonne que voie l'utilisateur cela fonctionne très bien mais je ne peux absolument pas changer ce numéro car il est liée à d'autres champs.

Avez-vous une idée sur comment résoudre ce problème?

J'espère que je suis compréhensible.
12/04/2007, 14h05
Heureux-oli

Comment se fait l'export vers Word ?

Voici le code

Code:

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
Dim WdApp As Object
    Dim strWordDoc As String
    Dim Termini1 As String
    Dim Termini2 As String
    Dim Longueur As String
 
 
        strWordDoc = "U:\BUSINESS UNIT AEROMIL\SALES\EQUIPE SALES SUPPORT\Ludovic PARIS\Autres documents (ordering information, base de donnée access...)\access (définition d'une référence Harnais ELIO)\Mise_en_plan_word\ST2-Elio.doc"
 
        Termini1 = Me.ChT1.Value
        Termini2 = Me.ChT2.Value
        Nomination = Me.ChC.Value
        Longueur = Me.Longueur.Value
 
 
        Set WdApp = CreateObject("Word.Application")
 
        With WdApp
            .Visible = True
            .Documents.Add Template:=strWordDoc, NewTemplate:=False, DocumentType:=0
            .Activate
        End With
 
        WdApp.ActiveDocument.Bookmarks("Termini1").Range.Text = ChT1
        WdApp.ActiveDocument.Bookmarks("Termini2").Range.Text = ChT2
        WdApp.ActiveDocument.Bookmarks("Longueur").Range.Text = Longueur
        WdApp.ActiveDocument.Bookmarks("Nomination").Range.Text = ChC

12/04/2007, 14h11
ludovicparis

Mon problème concerne la valeur que prend le signet nomination, il prend la valeur de ChC seulement il prend la valeur de la colonne liée et non la valeur que l'utilisateur à choisit, or c'est cette information que je veux dans mon document word.

Merci
12/04/2007, 14h12
Heureux-oli

La zone déroulante est laquelle ?

Si tu la connais, il suffit de faire

Code:

Me.MonCombo.column(1)

Sachant que la numérotation des colonnes commence à 0
12/04/2007, 14h29
ludovicparis

Effectivement cela fonctionne, ayant appris Access sur le tas il y a vraiment des choses de base que je ne connais pas!!!

Merci beaucoup pour ton aide