Discussion :

[DicDoc]

Bonjour,

J'ai développé une petite macro à l'ouverture d'un document Word
dans la partie du document Word MS WOrd Objects\This document se trouve l'appel à la macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Document_Open()
getpath
End Sub

le but de la macro est le suivant :
à l'ouverture de certains documents Word dans lequel elle est contenue, J'ai besoin que la macro passe dans le presse-papiers le chemin dans lequel se trouve le document


Voici le code de la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub getpath()
'
' getpath Macro
'
'
 
Dim MyData As MSForms.DataObject
 
Set MyData = New DataObject
MyData.SetText ""
MyData.PutInClipboard
 
Dim Chemin As String
Chemin = ThisDocument.Path
 
MyData.SetText Chemin
MyData.PutInClipboard
End Sub

pour cela j'ai du activer manuellement sous OUtils\References une ressource externe dénommée Microsoft Word Microsoft Office 15.0 Object LIbrary

Le toute tourne sur un terminal serveur et la Ressources est disponible pour tout le monde sous system32\FM20.dll

Au début cela fonctionnait correctement, puis, quand j'ai tout fermé l'application et redémarré pour simuler les conditions d'utilisation réelle, j'ai obtenu le message d'erreur : « Type défini par l'utilisateur non défini »

Il faut savoir que cette macro se trouve sur un document Word qui fonctionne au sein d'une GED. Ce document fait office de modèle dans un répertoire spécial de la GED au format ".docm". Ainsi chaque utilisateur peut créer un nouveau document basé sur mon document de base, en contenant des noms de clients différents.

Y a-t-il un autre moyen de faire appel au presse-papiers de manière à pouvoir transférer le répertoire d'enregistrement du document vers le presse-papiers ?

Merci d'avance pour votre aide

[Heureux-oli]

Salut,

Juste une remarque, c'est plus simple de gérer les dotm, c'est pareil qu'un docm sauf qu'on doit donner un nouveau nom au nouveau document créé, ce qui est l'action par défaut d'un modèle de document.

Pour le problème de librairie, essaie de passer par du latebinding, on déclare des objets que l'on affecte ensuite.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim MyData As Objet
 
Set MyData = CreateObject("MSForms.DataObject")

De cette manière, tu ne dois pas déclarer la bibliothèque dans ton projet, mais elle doit rester disponible pour tous les utilisateurs.