[FAQ][VBA-W] Mémoriser la valeur de variables word [A publier]

[bbil]

Q : Comment mémoriser la valeur de variables dans un document WORD.
R : l'objet document Word posséde la collection Variables utilisable à cet effet, voici quelques exemples d'utilisation issues de l'aide en ligne :

Pour rajouter une variable au document actif

Code :

ActiveDocument.Variables.Add Name:="MaVariable", Value:=1

pour modifier sa valeur :

Code :

ActiveDocument.Variables("MaVariable")=4

pour afficher les variables du document actif

Code :

1
2
3
4
 
For Each myVar In ActiveDocument.Variables
    MsgBox "Nom =" & myVar.Name & vbCr & "Valeur = " & myVar.Value
Next myVar

PS : Discussion de référence : Sauvegarde en dur, merci à ptilo pour la solution...

[ouskel'n'or]

D'accord, je ne suis pas dans le bon forum mais j'ai bien le droit de m'amuser aussi

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub MémoriserLaValeurDeVariablesWordDansExcel()
Dim Wrd As Word.Application
Dim LeDoc, NewVar
Dim coucou
    'On Error Resume Next
    Set Wrd = CreateObject("Word.Application")
        Cells(1, 1).Value = Error(Err) & "  " & Err
        Wrd.Visible = False
        On Error GoTo 0
    DoEvents
    Set LeDoc = Wrd.Documents.Add
    DoEvents
    With LeDoc
        NewVar = .Variables.Add("MaVariable", "coucou")
        coucou = LeDoc.Variables("MaVariable")
    End With
    LeDoc.Close False
    Wrd.Quit
    Set LeDoc = Nothing
    Set Wrd = Nothing
    MsgBox "coucou = " & coucou
End Sub

Je me demande bien à quoi ça va pouvoir servir
M'en veux pas, bbil, c'est bientôt le WE