Discussion :

[agd92500]

Bonjour,

Voila, j'ai un fichier excel qui permet de créer des documents word depuis un template.
les documents word contiennent des propriétés personalisées.

La création et le renseignements des propriétés fonctionnent tres bien.

Maintenant je cherche a proposer une option depuis le fichier Excel qui consiste a modifier le titre du document à partir d'un formulaire
Voici le code

Code :

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

1
2
3
4
5
6
 
            Set objWord = CreateObject("word.Application")
            objWord.Visible = True
            objWord.Documents.Open CHEMIN_DOC & NEW_DOC
            objWord.Activate
            objWord.BuiltinDocumentProperties("Title").Value = B_MODIF_FP.TextBox1.Value

Sauf que sur la dernière ligne, j'ai le message erreur suivant :
Erreur d’exécution : 438
Propriété ou méthode non gérée par cet objet.

Apparement j'ai oublié quelquechose mais je sais pas quoi !!

une idée quelqu'un ?

Merci d'avance.
Agd

[kiki29]

Problème pour lire propriété doc word depuis Excel

plutôt écrire non ?

Salut, à lire : Lire et modifier les propriétés des classeurs et autres fichiers

[agd92500]

Salut,
OK. J'avais déclaré l'objet Word mais pas le doc.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
            Name Chemin As New_Chemin
            Set objWord = CreateObject("word.Application")
            Set DocWord = objWord.Documents.Open(CHEMIN_DOC & NEW_DOC)
            DocWord.Activate
            DocWord.BuiltinDocumentProperties("Title").Value = B_MODIF_FP.TextBox1.Value
            DocWord.Sections(1).Headers(wdHeaderFooterPrimary).Range.Fields.Update
            DocWord.Sections(2).Headers(wdHeaderFooterPrimary).Range.Fields.Update
            DocWord.Save
            objWord.ActiveDocument.Close
            Set DocWord = Nothing
            Set objWord = Nothing

Merci
Agd