Discussion :

[oligig]

Bonjour,

j'ai une macro pour mettre à jour les champs d'un document

Code :

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

1
2
3
Sub majChamps() 
      ActiveDocument.Fields.Update 
End Sub

mais celle-ci ne marche que pour le corps et non pour les en-tête et pieds de page. Auriez-vous une solution pour que la mise à jour puisse s'appliquer aux deux (c'est à dire vraiment tout le document) ?

[oligig]

j'ai trouvé en persévérant dans ma recherche

[Heureux-oli]

C'est une longue macro pour peu de chose.
Si c'est dans ton pied de page, il suffit d'atteindre le pied de page.

[Sepia]

Salut,

Attention pour être sûr de mettre à jour tous les pieds de page et les entêtes, il faut les atteindre mais avec beaucoup de section avec des entêtes et pieds de page différents, c'est vite galère.

La meilleure chose à effectuer est de passer ton document de mode page à mode normal ou réciproquement. C'est simple et facile.

@+

[oligig]

en prenant le code de du dernier post, c'est pas si long que ça (5-6 lignes) je trouve.
Merci pour vos commentaires

[Sepia]

Super

@+

[hitmax]

J'avais le meme problème, si jamais ca interesse:

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

[eugiba]

J'ai trouvé une nouvelle solution nécéssitant aucune macro, pour mettre à jours des champs dans Word.
Même les champs dans les en-têtes et pieds de page lorsque l'on a plusieurs sections, sont mis à jour.

1 - Il faut faire un aperçu avant impression (ce qui va mettre à jour les champs du document)
(si ce n'est pas le cas allez dans le Menu Outils-> Options -> Onglet Impression et cochez "Mettre à jour les champs")

2 - Refermer l'aperçu.
Si vous enregistrez à ce moment là, les champs n'auront pas été mis à jour pour de la prochaine ouverture (word n'a pas considéré cela comme une modification )

3 - Il faut faire une "réelle" modification de votre document puis enregistrer pour que word prenne aussi en compte la mise à jour.
Il suffit de d'ajouter un espace puis le supprimer et finalement enregistrer.

Dorénavant vos champs sont à jour!!

Une solution qui m'a bien rendu service !! Et rapide à faire

[Heureux-oli]

Salut

Juste que la question initial était la mise à jour des champs par macro !

Il est probable que le code donné n'est que petite partie du code utilisé.

Il y a encore plus facile, Ctrl + A suivi de F9 pour mettre les champs à jour !

[Sepia]

Salut Eugiba,

Ta solution fonctionne bien avec Word 2003 PC et Word 2004 mac mais ce n'est plus le cas avec Word 2007 (des sections sont récalcitrantes)

J'ai trouvé une nouvelle solution nécéssitant aucune macro, pour mettre à jours des champs dans Word.
Même les champs dans les en-têtes et pieds de page lorsque l'on a plusieurs sections, sont mis à jour.

1 - Il faut faire un aperçu avant impression (ce qui va mettre à jour les champs du document)
(si ce n'est pas le cas allez dans le Menu Outils-> Options -> Onglet Impression et cochez "Mettre à jour les champs")

2 - Refermer l'aperçu.
Si vous enregistrez à ce moment là, les champs n'auront pas été mis à jour pour de la prochaine ouverture (word n'a pas considéré cela comme une modification )

3 - Il faut faire une "réelle" modification de votre document puis enregistrer pour que word prenne aussi en compte la mise à jour.
Il suffit de d'ajouter un espace puis le supprimer et finalement enregistrer.

Dorénavant vos champs sont à jour!!

Une solution qui m'a bien rendu service !! Et rapide à faire

Moi aussi elle m'a bien rendu service (surtout avec des gros documents). Dernier point, il fallait se positionner sur la dernière section sinon si le document contenait des sections continues et des sections à saut de page sur des pages paires, ce n'était pas correctement mis à jour dans la table des matières (n° de page).

@+

[Sepia]

Salut Hitmax,

J'avais le meme problème, si jamais ca interesse:

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

Très bien, mais tu as recopié du code que tu utilises par ailleurs car tu commences à la 3ième section pour la mise à jour ==>

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
   Dim aI As Integer
   Dim aJ As Integer
 
   For aI = 1 To ActiveDocument.Sections.Count
      For aJ = 1 To ActiveDocument.Sections(aI).Headers.Count
         ActiveDocument.Sections(aI).Headers(aJ).Range.Fields.Update
      Next
      For aJ = 1 To ActiveDocument.Sections(aI).Footers.Count
         ActiveDocument.Sections(aI).Footers(aJ).Range.Fields.Update
      Next
   Next
End If

@+

[canary]

Bonjour,

Je remonte ce post car j'ai un souci similaire.
Le code proposé à savoir :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
   Dim aI As Integer
   Dim aJ As Integer
 
   For aI = 1 To ActiveDocument.Sections.Count
      For aJ = 1 To ActiveDocument.Sections(aI).Headers.Count
         ActiveDocument.Sections(aI).Headers(aJ).Range.Fields.Update
      Next
      For aJ = 1 To ActiveDocument.Sections(aI).Footers.Count
         ActiveDocument.Sections(aI).Footers(aJ).Range.Fields.Update
      Next
   Next

permet bien de mettre à jour les entêtes et pieds de page.

Cependant, j'ai une forme (un carré brun) avec un texte dedans, contenant un champ.

Existe-t-il un "ActiveDocument.Sections(aI).QUELQUECHOSE" qui me permette de mettre à jour également ce texte dans la forme ?

En vous remerciant par avance,

[Heureux-oli]

Salut,

Ta forme est soit un IlineShape, soit un Shape.
On atteint son contenu avec ShapeRange.

[canary]

Bonjour,

Je pense que je n'ai pas été claire. En fait la forme n'est pas dans un formulaire mais bien dans Word, sous forme d'un carré, d'où le souci de mise à jour.

[Heureux-oli]

Salut,

Ta forme est soit un Sahpe soit un InlineShape et y accès avec un ShapeRange.

[canary]

Excusez-moi mais je n'ai toujours pas compris. Où puis-je voir ce paramètre ? que faut-il que je change ? est-ce dans les paramètres de la forme ou bien y a-t-il quelque chose à écrire dans le code ?
En vous remerciant par avance,

[Heureux-oli]

Salut,

Ce n'est pas un paramètre, c'est le principe même des objets graphiques dans un document.
Un objet graphique, que ce soit une zone de texte, une image, ... n'a que deux "états", soit c'est un Shape, soit un InlineShape.

Si tu ne sais pas sii c'est un Shape ou un InlineShape, il suffit de les compter.

Code :

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

1
2
MsgBox "Shapes = " & ActiveDocument.Shapes.Count
MsgBox "InlineShapes = " & ActiveDocument.InlineShapes.Count

Ce qui est contenu dans un objet graphique ne fait pas partie de la MainStory de Word, il faut donc adresser le range de l'objet.

Voilà comment accéder au contenu d'un objet Shape.

Code :

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

1
2
3
Activedocument.Shapes(1).Select
selection.ShapeRange(1).Select
selection.Fields(1).Update

[canary]

Merci, j'ai donc pu déterminer qu'il y avait 3 Shape.

Dans le code fourni :

Code :

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

1
2
3
Activedocument.Shapes(1).Select
selection.ShapeRange(1).Select
selection.Fields(1).Update

Je suppose qu'il faille remplacer le "1" par quelque chose car ça lève une erreur "Argument ou appel de procédure incorrect"

Je suis vraiment désolée, je suppose que ce que je demande fait partie des bases...

Merci par avance,

[Heureux-oli]

Salut,

Ton champ se trouve dans un des trois shapes.

Le 1 représente l'idex du shape, son adresse.

[canary]

Si cela représente mes 3 Shapes, j'ai donc testé avec 1, 2 et 3 puisque je ne savais pas laquelle c'était. Or, l'erreur est toujours soulevée quelque soit l'index choisi. Manquerait-il quelque chose ?