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 ?

[Heureux-oli]

Salut,

Il faut faire attention, si tu as plusieurs Sections, il faut toutes les parcourir.
Je te conseilles de faire une vérification des tes sections et entêtes.

[hitmax]

En effet, j'ai plusieurs sections.

Peut-on boucler sur toute les sections du document pour faire des update de mes champs ?

Car c'est juste un problème d'update si je rentre dans mon entete clic droit sur le champ, mettre à jour le champ la valeur se met à jour sans problème.

[Heureux-oli]

Oui, on peut boucler sur les sections.
Tu peux les compter et faire une boucle.

Code :

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

ActiveDocument.Sections.Count

Tu peux aussi boucler sur le type d'entête avec une structure décisionnelle si tu possèdes plusieurs types d'entête.

[hitmax]

Bon j'ai suivi tes conseils et je vais boucler sur toutes les sections a voir maintenant si ca va marcher (moin sur .. lol)

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

Edit: Ca marche merci forum