Discussion :

[gueulederack]

bonjour,

j'ai une erreur appel de procédure incorrect (erreur 5), qui appartait des la premiere ligne sur cette fonction

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub RensiegnementProprieteDocument()
  ActiveDocument.BuiltInDocumentProperties("wdPropertyTitle") = ActiveDocument.Bookmarks(titre).Range.Text
  ActiveDocument.BuiltInDocumentProperties("wdPropertyKeywords") = lThExperti.Caption
  ActiveDocument.BuiltInDocumentProperties("wdPropertyAuthor") = lReferent.Caption
  ActiveDocument.BuiltInDocumentProperties("wdPropertyCategory") = lCategorieDoc.Caption
  ActiveDocument.BuiltInDocumentProperties("wdPropertyComments") = ActiveDocument.Bookmarks(Commentaire).Range.Text
  ActiveDocument.BuiltInDocumentProperties("wdPropertySubject") = cible
End Sub

j'ai essayé plusieurs facon de l'appeler, juste avant le save

[gueulederack]

j'ai trouvé, en fait j'utilisais les noms de propriétés de word 2007, dans word 2010 c'est simplifié:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Sub RensiegnementProprieteDocument(ByVal cible As String)
  ActiveDocument.BuiltInDocumentProperties("Subject") = cible
  ActiveDocument.BuiltInDocumentProperties("Keywords") = lThExperti.Caption
  ActiveDocument.BuiltInDocumentProperties("Author") = lReferent.Caption
  ActiveDocument.BuiltInDocumentProperties("Category") = lCategorieDoc.Caption
  ActiveDocument.BuiltInDocumentProperties("Comments") = ActiveDocument.Bookmarks("Commentaire").Range.Text
  ActiveDocument.BuiltInDocumentProperties("Title") = ActiveDocument.Bookmarks("TitreDoc").Range.Text
  ActiveDocument.BuiltInDocumentProperties("Subject") = ActiveDocument.Bookmarks("NivLecture").Range.Text
End Sub