Bonjour,
Dans le cadre professionnel, je créé des modèles qui sot utilisés par un progiciel pour réaliser des publipostages par les utilisateurs sur des sites distants.
Pour un de ces modèles, je dois créer des macros pour remplacer des caractères. Là n'est pas mon problème.
Pour que cette macro soit disponible à l'issue du publipostage je dois intégrer cette macro au fichier normal.dot de chaque utilisateur.
J'ai tenté ce code mais il ne fonctionne pas :
Il indique erreur d'execution 5940 - impossible de copier l'élément du projet.
Avez-des solutions à me proposer ?
Merci.
dieu08
Dans le cadre professionnel, je créé des modèles qui sot utilisés par un progiciel pour réaliser des publipostages par les utilisateurs sur des sites distants.
Pour un de ces modèles, je dois créer des macros pour remplacer des caractères. Là n'est pas mon problème.
Pour que cette macro soit disponible à l'issue du publipostage je dois intégrer cette macro au fichier normal.dot de chaque utilisateur.
J'ai tenté ce code mais il ne fonctionne pas :
Code:
Private Sub Document_Open()
Y = 0
For Each X In NormalTemplate.VBProject.VBComponents
If X.Name = "Modif" Then Y = 1
Next
If Y = 0 Then
Application.OrganizerCopy _
Source:=ActiveDocument.FullName, _
Destination:=NormalTemplate.FullName, _
Name:="Mod", Object:=wdOrganizerObjectProjectItems
End If
End SubIl indique erreur d'execution 5940 - impossible de copier l'élément du projet.
Avez-des solutions à me proposer ?
Merci.
dieu08