Bonjour à tous,
J'avais une macro sous Excel pour faire du publipostage entre deux fichiers Word. Cela fonctionnait très bien.
Maintenant, je souhaite protégé le fichier Word qui sert de document principal de fusion pour éviter qu'il soit modifié par un utilisateur car ce fichier engage ma responsabilité. J'ai donc ajouté un mot de passe en lecture et écriture via le menu option de Word.
Ma première macro était:
Nom = ThisWorkBook.path &"\Publi.doc"
Documents.Open filename:=Nom
Set DocWord = AppWord.Documents.Open(Nom)
.......
En utilisant cette macro, à l'ouverture du fichier Word, il me demande de saisir les mots de passe (MDP dans l'exemple ci-dessous).
J'ai modifié ma macro comme suit pour ne pas que les utilsateurs s'occupent des mots de passe:
Nom = ThisWorkBook.path &"\Publi.doc"
Documents.Open filename:=Nom, Password:="MDP", WriteResPassword:="MDP"
Set DocWord = AppWord.Documents.Open(Nom, Password:="MDP", WriteResPassword:="MDP")
.......
Le problème est qu'il me surligne le premier Password en me disant que l'argument nommé est introuvable!!!!
Je présice que je suis avec Word 2000.
Comme faire pour qu'à ma macro fonctionne à nouveau?
Merci pour vos futurs conseils
Xavier
J'avais une macro sous Excel pour faire du publipostage entre deux fichiers Word. Cela fonctionnait très bien.
Maintenant, je souhaite protégé le fichier Word qui sert de document principal de fusion pour éviter qu'il soit modifié par un utilisateur car ce fichier engage ma responsabilité. J'ai donc ajouté un mot de passe en lecture et écriture via le menu option de Word.
Ma première macro était:
Nom = ThisWorkBook.path &"\Publi.doc"
Documents.Open filename:=Nom
Set DocWord = AppWord.Documents.Open(Nom)
.......
En utilisant cette macro, à l'ouverture du fichier Word, il me demande de saisir les mots de passe (MDP dans l'exemple ci-dessous).
J'ai modifié ma macro comme suit pour ne pas que les utilsateurs s'occupent des mots de passe:
Nom = ThisWorkBook.path &"\Publi.doc"
Documents.Open filename:=Nom, Password:="MDP", WriteResPassword:="MDP"
Set DocWord = AppWord.Documents.Open(Nom, Password:="MDP", WriteResPassword:="MDP")
.......
Le problème est qu'il me surligne le premier Password en me disant que l'argument nommé est introuvable!!!!
Je présice que je suis avec Word 2000.
Comme faire pour qu'à ma macro fonctionne à nouveau?
Merci pour vos futurs conseils
Xavier
