[VBA WORD] Mailmerge et protection formulaire

Bonjour,

Je dois ajouter un document dans une application utilisant ; les documents qui y sont présents sont classiques avec des champs de fusion, une macro se charge de déclencher la fusion:
Le document que je souhaite rajouter répond aux mêmes critères que les précédents, sauf qu'il est établi comme un formulaire de façon à ne pas dépasser un certain nombre de caractères dans les champs à remplir; j'ajoute par là dessus une protection pour que l'on ne puisse modifier le formulaire lui-même.

Le problème est le suivant:
quand la macro est lancée, mes champs de fusion sont correctement remplis, mais les champs de formulaire ont disparu avec leurs restrictions!.

Le principe utilisé dans la macro est:
- déprotéger le formulaire (ActiveDomain.Unprotect)
- la macro habituelle (MailMerge)
- reprotéger le formulaire avec permission pour les champs formulaires

J'ai regardé à gauche et à droite dans un certain nombre de FAQs, aides ... mais je n'ai pas (su?) trouvé(er) la solution.

Quelqu'un d'entre vous saurait-il?

@+

Voici la macro pour être plus clair (les modifs sont notées en remarque).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub Fusion() ' ' Fusion Macro ' Fusionne des fichiers pour produire des lettres types, étiquettes de publipostage, enveloppes et catalogues   ' Modif déprotection If ActiveDocument.ProtectionType <> wdNoProtection Then ActiveDocument.Unprotect Password:=""   ' Macro Fusion WordBasic.MailMergeToDoc WordBasic.WindowList 1 WordBasic.EditSelectAll WordBasic.WW6_EditClear WordBasic.WindowList 2 WordBasic.EditSelectAll WordBasic.EditCopy WordBasic.WindowList 1 WordBasic.EditPaste WordBasic.MailMergeReset WordBasic.WindowList 2 WordBasic.FileClose 2 WordBasic.FileSave   'Modif re protection ActiveDocument.Protect Password:="", NoReset:=False, Type:= _ wdAllowOnlyFormFields[/color]   End Sub

---

Je compte sur vous ...

Bonjour,
Personne n'aurait donc d'idée?