Discussion :

[canary]

Bonjour à tous,

J'ai un formulaire en ouverture de Word avec 4 boutons radio (lié par un GroupName identique) et le fait de cocher un bouton va déterminer 2 variables.
Ensuite j'affiche ces 2 variables séparément dans Word via l'insertion d'un champ "DOCVARIABLE".

Voici comment j'ai codé cela :

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
' Mes variables
Dim Variable1 As String
Dim Variable1 As String
 
' Affectation des valeurs suivant le choix du bouton
If Me.OptionButton_B1 = True Then
    Variable1 = 11
    Variable2 = 12
ElseIf Me.OptionButton_B2 = True Then
    Variable1 = 21
    Variable2 = 22
ElseIf Me.OptionButton_B3 = True Then
    Variable1 = 31
    Variable2 = 32
ElseIf Me.OptionButton_B4 = True Then
    Variable1 = 41
    Variable2 = 42
End If
 
' Insertion de la variable dans Word via le champ DOCVARIABLE
ActiveDocument.Variables.Add ("CHOIX1"), Value:=Variable1
ActiveDocument.Variables.Add ("CHOIX2"), Value:=Variable2

Ensuite dans Word j'insère les champs suivants :

Code :

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

1
2
{DOCVARIABLE "CHOIX1" \* MERGEFORMAT}
{DOCVARIABLE "CHOIX2" \* MERGEFORMAT}

Malheureusement les champs restent vides.
Pourriez-vous me dire où est la faute dans le code svp ?

Merci par avance !

[Heureux-oli]

Salut,

Premier problème.

Code :

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

Dim Variable1 As String

Et tu lui attribue un nombre

Code :

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

Variable1 = 11

Dans cette ligne,

Code :

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

ActiveDocument.Variables.Add ("CHOIX1"), Value:=Variable1

pourquoi seul un des deux arguments est-il nommé ?

Code :

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

activedocument.Variables.Add Name:="", Value:=""

On accède au contrôle non pas par Me par mais par activedocument

Code :

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

activedocument.OptionButton3

[canary]

Bonjour,

Merci pour cette réponse.

Repartons sur de bonnes bases :

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
' Mes variables
Dim Variable1 As String
Dim Variable1 As String
 
' Affectation des valeurs suivant le choix du bouton
If Me.OptionButton_B1 = True Then
    Variable1 = "AB"
    Variable2 = "CD"
ElseIf Me.OptionButton_B2 = True Then
    Variable1 = "EF"
    Variable2 = "GH"
ElseIf Me.OptionButton_B3 = True Then
    Variable1 = "IJ"
    Variable2 = "KL"
ElseIf Me.OptionButton_B4 = True Then
    Variable1 = "MN"
    Variable2 = "OP"
End If
 
' Insertion de la variable dans Word via le champ DOCVARIABLE
ActiveDocument.Variables.Add Name:="CHOIX1", Value:="Variable1"
ActiveDocument.Variables.Add Name:="CHOIX2", Value:="Variable2"

Pour le problème du "activedocument", n'est-il pas possible de le définir au départ par un "Me" pour raccourcir le code ? car il y a vraiment beaucoup de "activedocument" dans le fichier...

Et pour en revenir au coeur du problème, malheureusement ces changements ne résolvent pas le problème.
Le message d'erreur est : "erreur d'éxecution 5903, Le nom de la variable existe déjà"

Avez-vous une idée ?

[Heureux-oli]

Salut,

Il y a une instruction.

Code :

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

1
2
3
4
With ActiveDocument
   If .OptionButton1 .....
 
End With

Mais on peut très bien utiliser une variable, mais pas me qui est un mot réservé.

Code :

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

1
2
3
4
5
Dim myd As Document
 
set myD = ActiveDocument
 
myD.Optionbutton

Pour le message d'erreur

Le message d'erreur est : "erreur d'éxecution 5903, Le nom de la variable existe déjà"

C'est la première fois que tu en parles.

Si la variable de document existe déjà, on ne peut en créer une identique, il faut simplement lui attribuer une valeur.

Donc, tu dois teste la variable, si elle existe, lui attribuer une valeur, si ce n'est pas le cas, la créer.

[canary]

Merci pour cette réponse.

Pour le activedocument... c'est à placer dans quelle fonction svp ?

Ensuite, pour mon problème d'affectation de valeur aux variables : je ne trouve vraiment pas le problème. Existe-t-il un moyen d'avoir un listing de toutes les déclarations qui ont été faites dans le projet ?

[Heureux-oli]

Salut,

Pour la variable, c'est dans ton code.

Code :

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

ActiveDocument.Variables.Add Name:="CHOIX1", Value:="Variable1"

Si tu fais fonctionner deux fois ce code, à la première fois, la variable est créée, à la seconde, comme elle existe déjà, ton code lève une erreur.

http://heureuxoli.developpez.com/office/word/variables/

Pour le activedocument... c'est à placer dans quelle fonction svp ?

Comme tu ne donnes pas de fonction, je suis un peu perdu par ta question.