Discussion :

[Heureux-oli]

Salut,

On pourrais utiliser une variable et celle qui me semble intéressante est la suivante : wdPropertyTitle

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 récupérer les données, il suffit lors de l'ouverture de faire la manipulation inverse.

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.

Code :

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

1
2
3
4
5
 
Dim stSplit as string
 
stSplit = Split(ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle ),"-")
....

Tu retrouves ces méthodes ici http://heureuxoli.developpez.com/office/word/variables/

[Tinien]

n'est il pas plus simple de sauvegarder les contenues des textform pour que les données soient toujours presente et remodifiable a l'ouverture ?
Quelle est la commande pour sauvegardé le document dans un autre dossier ? merci

[Heureux-oli]

C'est ce que j'ai expliqué dans mon précédent post, comment écrire dans le document les données et ensuite comment à l'ouverture les récupérer avec la fonction split.

[Tinien]

Pourrais tu m'envoyé un document comme le premiersecondtroisieme.doc, avec en plus le code qui permet que les données reviennent dans les textform ?
merci

[Heureux-oli]

Voilà

[Tinien]

Super merci beaucoup, dsl de demander a chaque fois le travail complet mais j'apprend mieu avec les exemples
Encore merci,
j'aurais sans douute d'autre question mais on va attendre un peu ^^

[Tinien]

Heureux Oli, pourrait tu me dire si il est possible de faire pareil, en mettant des mots qui s'ajoutent directement dans les propriétés du document ??

[Heureux-oli]

Quoi comme mots ?

[Tinien]

des mots qui seront inséré dans des textform aussi comme pour l'enregistrement automatique.
C'est possible ?

[Heureux-oli]

Oui, on peut encore faire ce qu'on veut.

[Tinien]

ok, donc quel est le code pour que les textform s'enregistre dans les propriétés du document ??
Merci

[Heureux-oli]

Salut,

On pourrais utiliser une variable et celle qui me semble intéressante est la suivante : wdPropertyTitle

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 récupérer les données, il suffit lors de l'ouverture de faire la manipulation inverse.

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.

Code :

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

1
2
3
4
5
 
Dim stSplit as string
 
stSplit = Split(ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle ),"-")
....

Tu retrouves ces méthodes ici http://heureuxoli.developpez.com/office/word/variables/

Ce que je t'ai donné dans ce post ne fonctionne pas ?

[Tinien]

Ah excuse moi j'ai oublier ce poste je pensais qu'il avait rapport avec le titre je vais voir sa et je te dis si j'y arrive merci

[Tinien]

Me revoila ,
Bon le soucis est que ces deux informations doivent être dans un même document, et que lorsque je met les deux ils me manquent sans doute des informations dans mon code VBA, et que c'est le bazar a l'ouverture du document ..
Pourrais tu m'envoyé un exemple séparé ?
Merci

[Heureux-oli]

Tout se trouve dans les documents que j'ai déjà mis sur le forum.
Si tu ne veux pas que le code se déclenche à l'ouverture, il suffit de presser la touche Shift.

[Tinien]

Le probleme est que a l'ouverture si je rajoute le code c'est l'anarchie au niveau du contenu des text form donc comment faire ?

[Heureux-oli]

Si tu nous mettais une fois un code, on devrait pouvoir te dire ce qui coince.

[Tinien]

J'explique :
J'ai 3 textform qui fixe le nom du document, à l'ouverture elle revienne dans les textform, j'en ai 5 autre qui doivent s'enregistrer dans les propriétés du document ( mots clés plus précisement je pense que deja la ya un soucis) l'autre probleme c'est que lorsque je rouvre le document toutes les informations se mettent dans les mauvaises cases et certaines n'apparaissent pas du tout, j'ai fais des tests mais sans succés.
Merci de m'aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Option Explicit
 
 
Private Sub Document_Close()
 
Dim stName As String
 
Dim stprop As String
 
ActiveDocument.Unprotect
 
With ActiveDocument
 
    stName = .FormFields(1).Range.Text & "-"
    stName = stName & .FormFields(2).Range.Text & "-"
    stName = stName & .FormFields(3).Range.Text & ".doc"
 
With ActiveDocument
 
    stprop = .FormFields(4).Range.Text & " "
    stprop = stprop & .FormFields(5).Range.Text & " "
    stprop = stprop & .FormFields(6).Range.Text & " "
    stprop = stprop & .FormFields(7).Range.Text & " "
    stprop = stprop & .FormFields(8).Range.Text & " "
 
 
 
 
 
  End With
 ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) = stprop
 ActiveDocument.Protect wdAllowOnlyFormFields
 
ActiveDocument.SaveAs (stName)
MsgBox ("Document enregistrée")
 
End With
End Sub
 
Private Sub Document_Open()
 
Dim stSplit() As String
 
stSplit = Split(ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle), "-")
 
With ActiveDocument
 
    .FormFields(1).Result = stSplit(0)
    .FormFields(2).Result = stSplit(1) & "-" & stSplit(2) & "-" & stSplit(3)
    .FormFields(3).Result = stSplit(4)
 
End With
 
End Sub

[Heureux-oli]

Je pense que c'est logique tu ajoutes un " " et tu splittes sur un "-"

[Tinien]

Bon j'ai reussi d'une maniere différente et merci Oli pour tout ^^
dis moi si tu veut que je poste ce que j'ai reussi a faire