[Word 2000] Mise à jour automatique d'un champ

[texas2607]

Salut à tous,
Je suis sous word 2003 et je dois suivre "l'évolution" de plusieurs documents. J'ai mis un champ contenant date/heure et version sur ces documents sous la forme :
yyyymmddhhmm - v14

Comment faire pour que ce champ se mette à jour tout seul lors de l'enregistrement du document (cad si il y a eu une modif).
La date devrait prendre celle du jour et la version faire un +1

Un doc avec le champ 200705041245 - v14
si ce document est modifié et enregistré le 05 Sept à 15h12 alors il faudrait que le champ devienne :
200709051512 - v15

Merci si vous avez une solution.
Amicalement
Fred

[Heureux-oli]

Tu peux stocker cette valeur dans variable du document, faire une incrémentation.

Code :

1
2
3
4
5
6
7
8
9
10
Sub VariableTest()
Dim myVersion As Integer
 
 
If ActiveDocument.Variables.Count = 0 Then ActiveDocument.Variables.Add "myvers", 0
myVersion = ActiveDocument.Variables("myvers").Value
myVersion = myVersion + 1
ActiveDocument.Variables("myvers").Value = myVersion
Debug.Print ActiveDocument.Variables("myvers").Value
End Sub

Pour la date de la dernière sauvegarde, elle se trouve dans les propriétés du document.

[texas2607]

Salut et merci,
Je vais tester pour la variable de version.

Mais concernant la date et l'heure est t'il possible de la rajouter dans le champ tel que je pensais la mettre ou pas?

Elles n'apparaitrons pas sur le document que je dois imprimer. Ce champ nous servira lorsque il y aura des "ajouts" afin de savoir si le document en notre possession est à jour ou pas, c'est pour cela que j'avais pensé au format date - version pour le champ ( qui sera imprimé avec le document)

[Heureux-oli]

Rien ne t'empêche de mettre une variable en plus pour la date.

On peut utiliser plusieurs variables de document.

[texas2607]

RE..
Problème!!!
J'ai créé un champ VariableDoc avec le nom myvers,
j'ai copié ton code.

1ere question : Le champ ne se met pas à jour
2/ Sur quel action copier le code car je voudrais qu'il se mette à jour sur ENREGISTREMENT du document ou lorsque l'utilisateur le ferme et réponde oui à sauvegarder les modif,
3/ Rien n'apparait dans le champ, c'est vierge à l'affichage (sauf si je suis en 'Basculer en codes de champ')

merci de ton aide car VB sur Word dur dur pour moi

PS : capture1 = Boite d'insertion du champ
capture2 = Feuille ou théoriquement le champ apparait
capture3 = Le code

AMicalement
Fred

[Heureux-oli]

Essaie de faire F9 avant de basculer les code de champ.

Je viens de refaire la manip pour être sûr et ça fonctionne.

Pour l'évènement, je te laisse choisir dans la liste.
Word peut détecter certains évènements et y réagir.

Regarde là :FAQ

J'ai mis en fichier joint un fichier avec une variable alimentée en VBA et affichée dans le document au départ d'un champ.
Le fichier est un .doc, mais ça fonctionne aussi en .docx

[texas2607]

Je viens de charger ton fichier et effectivement l'incrémentation se fait si par ex je mets le code dans document_Open, mais :

1/ il faut obligatoirement faire F9 pour actualiser l'affichage
2/ Mon souci est de faire faire l'incrémentation que si il y à eu modif et enregistrement du doc.
Sur le lien que tu m'a donné rien n'existe dans ce sens, il y à AutoClose, AutoExit, Document_Close, mais que le doc soit modifé ou pas l'incrémentation est faites.
Dur dur, mais, merci déjà pour le champ.

[Heureux-oli]

Essaie le champ { REVNUM }, je pense que c'est ce que tu cherches.

[texas2607]

Salut,
Alors je viens de regarder REVNUM, d'après la doc effectivement il insère le nombre de fois où le document à été enregistré mais :
Dans le cas (par ex) ou cette valeur est égal à 1 :

1/ j'ouvre le document et je l'imprime, alors la version du document à l'impression sera bien 1 -> CORRECT

2/ j'ouvre le document, je fais une modif de texte et j'imprime. Alors là, la valeur est toujours à 1 car il faut un F9 pour actualiser la champ alors que la vrai version imprimée devrait être 2 -> NON CORRECT

3/ j'ouvre le document, je fais F9 alors là, la valeur est incrémentée, je ferme et là j'ai la boite de dialogue "Voulez vous enregistrer les modifications...." alors que je n'ai fais aucune modif sur le texte. -> NON CORRECT

Bref c'est la panique totale.
Je continu de fouiller mais sans grande conviction, merci A+
Fred

[Heureux-oli]

Sur ouverture du document, il faut mettre ce code :

Code :

1
2
3
4
5
6
 
Dim fld as Field
For Each fld in ActiveDocument.fields
fld.select
Selection.Fields.Update
next fld

Tu auras la mise à jour des champs.

[texas2607]

Salut,
Merci Heureux-oli, j'ai rajouté le code sur l'ouverture du document et c'est ok, le champ se met à jour automatiquement lors de l'ouverture.
Par contre cette mise à jour est considéré comme une modification donc lors de la fermeture Word demande si on veut enregistrer ou pas. Si j'enregistre alors l'incrémentation est faite alors que je n'est fait aucune modif sur le document

Est t'il possible que si le seul changement dans le doc c'est le champ alors pas de demande d'enregistrement sinon effectivement demande d'enregistrement.
Fred

[Heureux-oli]

Tu exagères !!

tu peux sur l'évènement fermeture du document, ne pas sauvegarder, mais dans ce cas, il ne va pas poser la question si changement il y a.

Autre possibilité, mettre le champ à jour avant la sauvegarde.

[texas2607]

Oui je sais, j'exagère

mais je disais ca car je suis sur que certains vont ouvrir le doc, le lire et enregistrer à la demande et automatiquement le numéro de version sera faux et voire même il va prendre des proportions énormes si à chaque ouverture ils enregistrent.