Enregistrer un document suivant nom

[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

 Dim Identifiant As String
    Identifiant = ActiveDocument.FormFields("FRUIT")
      ActiveDocument.SaveAs FileName:="Cuisine " & Identifiant & ".doc"

Merci d'avance

 

[CBernardT]

Re : Enregistrer un document suivant nom

Bonjour,


Si j'ai bien compris et rapidement sans essai :

Dim Identifiant As String
Identifiant = "FRUIT"
ActiveDocument.SaveAs FileName:="Cuisine " & Identifiant & ".doc"

 

[mromain]

Re : Enregistrer un document suivant nom

Bonjour Sophie11, CBernardT

Ne manque-t-il pas le chemin du fichier dans FileName ?

a+

 

[Sophie11]

Re : Enregistrer un document suivant nom

Non ce n'est pas ce que je veux, mon champs FRUITS corresponds à un champs de fusion, je suis donc obligé de l'indiqué quelques part...

J'ai essayé comme ceci mais sans succés:


ChangeFileOpenDirectory "C:\"
Dim Identifiant As String
With ActiveDocument.MailMerge.DataSource
Identifiant = .DataFields("FRUIT")
End With

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

 

[Guest]

Re : Enregistrer un document suivant nom

Bonjour Bernard, Sophie,

Sophie le texte des champs est dans .Result, il me semble me souvenir:

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

C'est le genre de question plutôt révervée à un forum Word.

A+​

 

[Sophie11]

Re : Enregistrer un document suivant nom

@MrRomain : non parceque j'indique :
ChangeFileOpenDirectory "C:\test" au dessus

 

[Sophie11]

Re : Enregistrer un document suivant nom

ok je me suis permise de re-poster ma question dans la bonne section du forum :
https://www.excel-downloads.com/threads/enregistrement-de-fichier-word-suivant-un-champs.147691/

désolé