Discussion :

[Poisson17]

Bonjour,

Je souhaite lors de l'ouverture d'un fichier avoir une boite de dialogue qui reprend le Service (défini dans Propriétés avancées du fichier) afin de le modifier.

Merci de votre retour.

[mromain]

Bonjour Poisson17, le forum

Tu peux tester avec ce code à mettre à l'ouverture du document :

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
Dim custProp As DocumentProperty
Dim newVal As String
 
    'récupérer
    On Error Resume Next
     Set custProp = ThisDocument.CustomDocumentProperties("Service")
    On Error GoTo 0
    If custProp Is Nothing Then Exit Sub
 
    'demander la nouvelle valeur
    newVal = InputBox("Nouvelle valeur :", "Saisie", custProp.Value)
 
    'mettre à jour la valeur
    If newVal <> vbNullString Then custProp.Value = newVal
 
    Set custProp = Nothing

A+