Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Word mise à jour automatique champs

mise à jour automatique champs

8 réponses
Avatar
theophile
bonjour à tous,
je souhaite mettre à jour automatiquement tous les champs de mes documents
lors de l'ouverture des fichiers. Comment faire ?
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JièL Goubert
Bonjoir© theophile

Le 19/04/2006 11:21 vous avez écrit... :
bonjour à tous,
je souhaite mettre à jour automatiquement tous les champs de mes documents
lors de l'ouverture des fichiers. Comment faire ?


Ctrl+A, F9...
Simple, court et facile ;-)

de rien

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr

Avatar
theophile
Merci Jiel
en fait j'aimerais que l'action se déclanche seule au moment ou le fichier
s'ouvre


Bonjoir© theophile

Le 19/04/2006 11:21 vous avez écrit... :
bonjour à tous,
je souhaite mettre à jour automatiquement tous les champs de mes documents
lors de l'ouverture des fichiers. Comment faire ?


Ctrl+A, F9...
Simple, court et facile ;-)

de rien

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr




Avatar
AB
Bonjour,
Dans ce cas :

Sub AutoOpen()
'met à jour les champs à l'ouverture du document
Selection.WholeStory
Selection.Fields.Update
End Sub

A placer dans le document concerné
AB

"theophile" a écrit dans le message de
news:
Merci Jiel
en fait j'aimerais que l'action se déclanche seule au moment ou le fichier
s'ouvre


Bonjoir© theophile

Le 19/04/2006 11:21 vous avez écrit... :
bonjour à tous,
je souhaite mettre à jour automatiquement tous les champs de mes
documents
lors de l'ouverture des fichiers. Comment faire ?


Ctrl+A, F9...
Simple, court et facile ;-)

de rien

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr






Avatar
theophile
super, ça marche !
Si les champs à mettre à jour se trouvent dans l'entête et le pied de page
et non dans le corps du document, quelle commande dois je ajouter ?
merci AB


Bonjour,
Dans ce cas :

Sub AutoOpen()
'met à jour les champs à l'ouverture du document
Selection.WholeStory
Selection.Fields.Update
End Sub

A placer dans le document concerné
AB

"theophile" a écrit dans le message de
news:
Merci Jiel
en fait j'aimerais que l'action se déclanche seule au moment ou le fichier
s'ouvre


Bonjoir© theophile

Le 19/04/2006 11:21 vous avez écrit... :
bonjour à tous,
je souhaite mettre à jour automatiquement tous les champs de mes
documents
lors de l'ouverture des fichiers. Comment faire ?


Ctrl+A, F9...
Simple, court et facile ;-)

de rien

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr











Avatar
AB
Bonsoir,

Sub Mise_à_Jour_Champs()
' MAJ des champs de tout le document y compris les entêtes
Selection.WholeStory
Selection.Fields.Update
'là on a mis à jour les champs du corps du document, et on passe maintenant
aux entêtes
For i = 1 To ActiveDocument.Sections.Count
With ActiveDocument.Sections(i).Headers
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Fields.Update
End With
'on passe maintenant aux pieds de page
With ActiveDocument.Sections(i).Footers
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.Fields.Update
End With
Next i
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Selection.HomeKey Unit:=wdStory

End Sub

Cordialement,
AB

"theophile" a écrit dans le message de
news:
super, ça marche !
Si les champs à mettre à jour se trouvent dans l'entête et le pied de page
et non dans le corps du document, quelle commande dois je ajouter ?
merci AB


Bonjour,
Dans ce cas :

Sub AutoOpen()
'met à jour les champs à l'ouverture du document
Selection.WholeStory
Selection.Fields.Update
End Sub

A placer dans le document concerné
AB

"theophile" a écrit dans le message
de
news:
Merci Jiel
en fait j'aimerais que l'action se déclanche seule au moment ou le
fichier
s'ouvre


Bonjoir© theophile

Le 19/04/2006 11:21 vous avez écrit... :
bonjour à tous,
je souhaite mettre à jour automatiquement tous les champs de mes
documents
lors de l'ouverture des fichiers. Comment faire ?


Ctrl+A, F9...
Simple, court et facile ;-)

de rien

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr













Avatar
JièL Goubert
Bonjoir(c) AB

juste une petite interrogation : tu n'aurais pas eue intérêt à passer
par un simple aperçu que tu fermerais aussitôt, vu que les champs se
mettent à jour lors de l'impression (enfin si la case est cochée) ? oui,
bon, moi j'dis ça, j'dis rien ;-)

c'est surtout que je suis un sacré fainéant et que j'aurais cherché à
éviter d'écrire tout ça ;-)

NB : ici au moins on se fait pas bannir quand on propose une autre
solution ;-))))))

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr

Bonsoir,

Sub Mise_à_Jour_Champs()
' MAJ des champs de tout le document y compris les entêtes
Selection.WholeStory
Selection.Fields.Update
'là on a mis à jour les champs du corps du document, et on passe maintenant
aux entêtes
For i = 1 To ActiveDocument.Sections.Count
With ActiveDocument.Sections(i).Headers
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Fields.Update
End With
'on passe maintenant aux pieds de page
With ActiveDocument.Sections(i).Footers
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.Fields.Update
End With
Next i
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Selection.HomeKey Unit:=wdStory

End Sub

Cordialement,
AB

"theophile" a écrit dans le message de
news:
super, ça marche !
Si les champs à mettre à jour se trouvent dans l'entête et le pied de page
et non dans le corps du document, quelle commande dois je ajouter ?
merci AB


Bonjour,
Dans ce cas :

Sub AutoOpen()
'met à jour les champs à l'ouverture du document
Selection.WholeStory
Selection.Fields.Update
End Sub

A placer dans le document concerné
AB

"theophile" a écrit dans le message
de
news:
Merci Jiel
en fait j'aimerais que l'action se déclanche seule au moment ou le
fichier
s'ouvre


Bonjoir© theophile

Le 19/04/2006 11:21 vous avez écrit... :
bonjour à tous,
je souhaite mettre à jour automatiquement tous les champs de mes
documents
lors de l'ouverture des fichiers. Comment faire ?
Ctrl+A, F9...

Simple, court et facile ;-)

de rien

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr
















Avatar
AB
Ho Jean-Louis !
Arrête de dire que tu es un fainéant : on n'a déjà pas bien bonne réputation
dans notre Provence !
D'autant que ce n'est pas moi qui ai écrit ça. Je ne sais plus qui c'est,
depuis le temps...
A+
André

"JièL Goubert" a écrit dans le
message de news: uD23ij$
Bonjoir(c) AB

juste une petite interrogation : tu n'aurais pas eue intérêt à passer par
un simple aperçu que tu fermerais aussitôt, vu que les champs se mettent à
jour lors de l'impression (enfin si la case est cochée) ? oui, bon, moi
j'dis ça, j'dis rien ;-)

c'est surtout que je suis un sacré fainéant et que j'aurais cherché à
éviter d'écrire tout ça ;-)

NB : ici au moins on se fait pas bannir quand on propose une autre
solution ;-))))))

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr

Bonsoir,

Sub Mise_à_Jour_Champs()
' MAJ des champs de tout le document y compris les entêtes
Selection.WholeStory
Selection.Fields.Update
'là on a mis à jour les champs du corps du document, et on passe
maintenant aux entêtes
For i = 1 To ActiveDocument.Sections.Count
With ActiveDocument.Sections(i).Headers
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Fields.Update
End With
'on passe maintenant aux pieds de page
With ActiveDocument.Sections(i).Footers
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.Fields.Update
End With
Next i
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Selection.HomeKey Unit:=wdStory

End Sub

Cordialement,
AB

"theophile" a écrit dans le message
de news:
super, ça marche !
Si les champs à mettre à jour se trouvent dans l'entête et le pied de
page
et non dans le corps du document, quelle commande dois je ajouter ?
merci AB


Bonjour,
Dans ce cas :

Sub AutoOpen()
'met à jour les champs à l'ouverture du document
Selection.WholeStory
Selection.Fields.Update
End Sub

A placer dans le document concerné
AB

"theophile" a écrit dans le
message de
news:
Merci Jiel
en fait j'aimerais que l'action se déclanche seule au moment ou le
fichier
s'ouvre


Bonjoir© theophile

Le 19/04/2006 11:21 vous avez écrit... :
bonjour à tous,
je souhaite mettre à jour automatiquement tous les champs de mes
documents
lors de l'ouverture des fichiers. Comment faire ?
Ctrl+A, F9...

Simple, court et facile ;-)

de rien

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr

















Avatar
theophile
un grand merci à tous

c'était ma première macro dans word,
je vais essayer de creuser un peu
cordialement
a+



Ho Jean-Louis !
Arrête de dire que tu es un fainéant : on n'a déjà pas bien bonne réputation
dans notre Provence !
D'autant que ce n'est pas moi qui ai écrit ça. Je ne sais plus qui c'est,
depuis le temps...
A+
André

"JièL Goubert" a écrit dans le
message de news: uD23ij$
Bonjoir(c) AB

juste une petite interrogation : tu n'aurais pas eue intérêt à passer par
un simple aperçu que tu fermerais aussitôt, vu que les champs se mettent à
jour lors de l'impression (enfin si la case est cochée) ? oui, bon, moi
j'dis ça, j'dis rien ;-)

c'est surtout que je suis un sacré fainéant et que j'aurais cherché à
éviter d'écrire tout ça ;-)

NB : ici au moins on se fait pas bannir quand on propose une autre
solution ;-))))))

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr

Bonsoir,

Sub Mise_à_Jour_Champs()
' MAJ des champs de tout le document y compris les entêtes
Selection.WholeStory
Selection.Fields.Update
'là on a mis à jour les champs du corps du document, et on passe
maintenant aux entêtes
For i = 1 To ActiveDocument.Sections.Count
With ActiveDocument.Sections(i).Headers
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Fields.Update
End With
'on passe maintenant aux pieds de page
With ActiveDocument.Sections(i).Footers
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.Fields.Update
End With
Next i
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Selection.HomeKey Unit:=wdStory

End Sub

Cordialement,
AB

"theophile" a écrit dans le message
de news:
super, ça marche !
Si les champs à mettre à jour se trouvent dans l'entête et le pied de
page
et non dans le corps du document, quelle commande dois je ajouter ?
merci AB


Bonjour,
Dans ce cas :

Sub AutoOpen()
'met à jour les champs à l'ouverture du document
Selection.WholeStory
Selection.Fields.Update
End Sub

A placer dans le document concerné
AB

"theophile" a écrit dans le
message de
news:
Merci Jiel
en fait j'aimerais que l'action se déclanche seule au moment ou le
fichier
s'ouvre


Bonjoir© theophile

Le 19/04/2006 11:21 vous avez écrit... :
bonjour à tous,
je souhaite mettre à jour automatiquement tous les champs de mes
documents
lors de l'ouverture des fichiers. Comment faire ?
Ctrl+A, F9...

Simple, court et facile ;-)

de rien

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr