Discussion :

[hitmax]

Bonjour le forum,

Je suis sur une appli excel qui ouvre un document word et renseigne des DOCPROPERTY donc pour cela je fais:

Code :

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

1
2
3
4
5
6
wordDoc.CustomDocumentProperties("NomCli").Value = UserForm3.txtCliNom.Value
wordDoc.CustomDocumentProperties("...")
...
...
wordDoc.Fields.Update

wordDoc.Fields.Update met bien à jour tous mes champs sauf ceux qui se situent dans l'entête.

J'ai effectuer quelques recherches:

Code :

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

1
2
 
wordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Fields.Update

Malheureusement ça ne fonctionne pas..

Une petite idée pour accéder aux champs d'une entête word ?

[ouskel'n'or]

A tout hasard, teste ça

Code :

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

1
2
3
With wordDoc.Sections(1).Headers(wdHeaderFooterFirstPage)
    .Range.InsertAfter (UserForm3.txtCliNom.Value)
End With

[hitmax]

Merci de te pencher sur mon pb.

Nan, cela m'ajoute directement la valeur "A l'arrache" dans mon entête mais ca ne va pas mettre a jour lom docproperty

C'est juste un pb d'update pcq quand je vais dans le document clic droit sur mon variable, mettre à jour le champ ca marche

[ouskel'n'or]

As-tu regardé dans l'aide de Word à CustomDocumentProperties ?
J'en ai tiré ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test2()
    Nom = "UnNom"
    BlaBla = "Coucou"
    ActiveDocument.CustomDocumentProperties.Add _
        Name:=Nom, LinkToContent:=False, Value:=BlaBla, _
        Type:=msoPropertyTypeString
    Dim Pr As Object
    For Each Pr In ActiveDocument.CustomDocumentProperties
        MsgBox Pr.Name
        Pr.Delete
    Next
End Sub

En remplaçant ActiveDocument par wordDoc, ça devrait pouvoir fonctionner.
Pas testé depuis Excel

[hitmax]

On a bien accès à toutes les variables du document, mais ca ne met pas a jour pour autant...

Je vais essayer de voir si on peut faire un fields.update dans chaque section du document

[hitmax]

C'est tout fonctionne avec ce petit bout de 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
 
Dim J As Integer
Dim K As Integer
 
If ActiveDocument.Sections.Count > 2 Then
   For J = 3 To ActiveDocument.Sections.Count
      For K = 1 To ActiveDocument.Sections(J).Headers.Count
         ActiveDocument.Sections(J).Headers(K).Range.Fields.Update
      Next K
      For K = 1 To ActiveDocument.Sections(J).Footers.Count
         ActiveDocument.Sections(J).Footers(K).Range.Fields.Update
      Next K
   Next J
End If

Merci et longue vie au forum