Salut,
On pourrais utiliser une variable et celle qui me semble intéressante est la suivante : wdPropertyTitle
Pour récupérer les données, il suffit lors de l'ouverture de faire la manipulation inverse.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Dim stprop As String With ActiveDocument stprop = .FormFields(1).Range.Text & "-" stprop = stprop & .FormFields(2).Range.Text & "-" stprop = stprop & .FormFields(3).Range.Text & ".doc" End With ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle ) = stprop
Pour séparer les données, on peut utiliser la fonction Split. C'est pour cette raison que j'ai ajouté un - entre chaque données.
Tu retrouves ces méthodes ici http://heureuxoli.developpez.com/office/word/variables/
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Dim stSplit as string stSplit = Split(ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle ),"-") ....
Partager