OVH Cloud OVH Cloud

Publipostage

4 réponses
Avatar
Niko-la
Bonjour,

J'ai besoin d'une ame charitable pour résoudre un cas qui me parait difficile.

Au moment de la fusion d'un document publiposté, je voudrais que Word (97
dans mon cas) génère un document par résultat au lieu d'une feuille par
résultat.
Et si possible que ce document prenne le nom d'un des champs de fusion.
est ce possible ? Je suis prêt à faire une macro bien sur, mais je ne suis
pas très doué dans l'écriture de celles-ci.
Merci pour votre aide.
Nicolas

4 réponses

Avatar
Anacoluthe
Bonjour !

'Niko-la' nous a écrit ...
Au moment de la fusion d'un document publiposté, je voudrais que Word (97
dans mon cas) génère un document par résultat au lieu d'une feuille par
résultat.
Et si possible que ce document prenne le nom d'un des champs de fusion.
est ce possible ? Je suis prêt à faire une macro bien sur, mais je ne suis
pas très doué dans l'écriture de celles-ci.


Découper la fusion pour WD97 voyez cette notice :
http://support.microsoft.com/kb/216201/en-us
La version française a été supprimée au profit d'une
traduction zigotomatique que je vous déconseille :-p
Revenez s'il vous en faut plus, en particulier pour la
récupération d'un champ de fusion dans les noms de fichiers

Anacoluthe
« Celui qui veut les fruits ne doit pas couper les fleurs. »
- Proverbe mahrate

Avatar
Niko-la
Bonjour,

Merci beaucoup, la macro fonctionne parfaitement pour générer un document
par résultat de fusion.
Je veux bien que vous m'aidiez pour que chaque document s'enregistre avec le
nom d'un des champs de fusion.
Si vous avez un peu de temps à me consacrer bien sur.
Merci d'avance
Nicolas

"Anacoluthe" wrote:

Bonjour !

'Niko-la' nous a écrit ...
Au moment de la fusion d'un document publiposté, je voudrais que Word (97
dans mon cas) génère un document par résultat au lieu d'une feuille par
résultat.
Et si possible que ce document prenne le nom d'un des champs de fusion.
est ce possible ? Je suis prêt à faire une macro bien sur, mais je ne suis
pas très doué dans l'écriture de celles-ci.


Découper la fusion pour WD97 voyez cette notice :
http://support.microsoft.com/kb/216201/en-us
La version française a été supprimée au profit d'une
traduction zigotomatique que je vous déconseille :-p
Revenez s'il vous en faut plus, en particulier pour la
récupération d'un champ de fusion dans les noms de fichiers

Anacoluthe
« Celui qui veut les fruits ne doit pas couper les fleurs. »
- Proverbe mahrate




Avatar
Anacoluthe
Bonjour !

'Niko-la' nous a écrit ...
Merci beaucoup, la macro fonctionne parfaitement pour générer un document
par résultat de fusion.
Je veux bien que vous m'aidiez pour que chaque document s'enregistre avec le
nom d'un des champs de fusion.
Si vous avez un peu de temps à me consacrer bien sur.


Une méthode assez simple : faites en sorte que la première ligne
(paragraphe) de chaque fusion soit le nom que vous voulez donner
au fichier doc . Exemple: Facture <<Nom>> <<NumFacture>>

Ensuite dans la macro copiée depuis KB216201 remplacez
DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"
par

With ActiveDocument.Paragraphs(1).Range
NF = Left(.Text, Len(.Text) - 1) & ".doc"
.Delete ' supprime le 1er § avant d'enregistrer
ActiveDocument.SaveAs FileName:=NF
End With

Anacoluthe
« Nommer, c'est aussi sauver. »
- Claudio MAGRIS

Avatar
Niko-la
Bonjour,

Merci beaucoup, ca correspond exactemet a ce que je voulais.Ca fonctionne
très bien.
Je suis ravi.
Nicolas


Bonjour !

'Niko-la' nous a écrit ...
Merci beaucoup, la macro fonctionne parfaitement pour générer un document
par résultat de fusion.
Je veux bien que vous m'aidiez pour que chaque document s'enregistre avec le
nom d'un des champs de fusion.
Si vous avez un peu de temps à me consacrer bien sur.


Une méthode assez simple : faites en sorte que la première ligne
(paragraphe) de chaque fusion soit le nom que vous voulez donner
au fichier doc . Exemple: Facture <<Nom>> <<NumFacture>>

Ensuite dans la macro copiée depuis KB216201 remplacez
DocNum = DocNum + 1
ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc"
par

With ActiveDocument.Paragraphs(1).Range
NF = Left(.Text, Len(.Text) - 1) & ".doc"
.Delete ' supprime le 1er § avant d'enregistrer
ActiveDocument.SaveAs FileName:=NF
End With

Anacoluthe
« Nommer, c'est aussi sauver. »
- Claudio MAGRIS