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

[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

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

pour modifier sa valeur :

ActiveDocument.Variables("MaVariable")=4

pour afficher les variables du document actif

 
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

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