Enregistrement de fichier word suivant un champs

[Sophie11]

Bonjour,
j'utilise du publipostage Word à partir de valeur Excel et je souhaite enregisrer mon fichier Word dont le nom correspond à la valeur d'un champs de fusion présent dans le document word (nom du champs: FRUIT)

Comment faire pour récupérer la valeur de ce champs ? Ci-dessous mon code qui ne marche pas :

ChangeFileOpenDirectory "C:\test"

Dim Identifiant As String
With ActiveDocument.MailMerge.DataSource
Identifiant = .DataFields("FRUIT").value
End With

ActiveDocument.SaveAs FileName:="Cuisine " & Identifiant & ".doc"

 

[Sophie11]

Re : Enregistrement de fichier word suivant un champs

merci de votre aide

 

[Guest]

Re : Enregistrement de fichier word suivant un champs

RE Sophie,

Alors as-tu testé? :

Identifiant = ActiveDocument.FormFields("FRUIT").Result

A+

 

[Sophie11]

Re : Enregistrement de fichier word suivant un champs

oui j'obtients une erreur : Run-time error 5941
The requested member of the collection does not exist.

 

[Guest]

Re : Enregistrement de fichier word suivant un champs

Re Sophy,

Alors, c'est que ma mémoire n'est pas bonne

Si tu as coché les références à Word dans ton projet, positionne ton curseur sur FormFields et F1 tu devrais pouvoir trouver la syntaxe exacte dans les propriétés de FormField.

A+

 

[Guest]

Re : Enregistrement de fichier word suivant un champs

RE,

Je viens de créer un .doc (word 2002) avec un champ de formulaire appelé FRUIT.
Puis j'y ai ajouté ces macros de test:

Sub truc()
    Dim f As FormField
    For Each f In ActiveDocument.FormFields
       MsgBox   f.Name, f.Result
    Next
End Sub
Sub Machin()
    ActiveDocument.FormFields("FRUIT").Result = "toto"
End Sub
Sub Bidule()
    MsgBox ActiveDocument.FormFields("FRUIT").Result
End Sub

Et toutes les 3 fonctionnent.

Alors je suppose que ton message d'erreur plus haut signifie que ton champ "FRUIT" n'est pas trouvé dans la collection des champs du document.

A+

 

[Sophie11]

Re : Enregistrement de fichier word suivant un champs

yes effectivement je te remercie beaucoup Hasco