VBA: récupérer l'emplacement d'un fichier

Bonjour !

'Bolderic' nous a écrit ...

je souhaiterais récupérer puis afficher dans un msgbox par exemple
l'emplacement non pas du document en cours d'utilisation mais du fichier
.dot qui a généré ce document.
En sachant que d'autres fichiers .dot peuvent porter le même nom dans
différents dossiers.

Public Sub QuiEstMonModele()
MsgBox "Ce document a pour modèle:" & vbCr & _
ActiveDocument.AttachedTemplate.FullName
End Sub

Anacoluthe
« On est plus ou moins maître de son modèle. »
- Paul CÉZANNE

Bonjour,

Une chtite macro comme ça :

Sub modele_attache()
Msg = "Le modèle utilisé est "
Set modele = ActiveDocument.AttachedTemplate
Message = MsgBox(Msg & modele.Path & modele.Name)
End Sub

Circé
http://faqword.free.fr

Le 22/01/2006, Anacoluthe a supposé :

Bonjour !

'Bolderic' nous a écrit ...

je souhaiterais récupérer puis afficher dans un msgbox par exemple
l'emplacement non pas du document en cours d'utilisation mais du
fichier
.dot qui a généré ce document.
En sachant que d'autres fichiers .dot peuvent porter le même nom
dans
différents dossiers.

Public Sub QuiEstMonModele()
MsgBox "Ce document a pour modèle:" & vbCr & _
ActiveDocument.AttachedTemplate.FullName
End Sub

Anacoluthe
« On est plus ou moins maître de son modèle. »
- Paul CÉZANNE

Bonjour,

Plus court:

on peut mettre
MsgBox Msg & modele.Path & modele.Name


au lieu de

Message = MsgBox(Msg & modele.Path & modele.Name)

Bien que le msgbox "en long" permette de récupérer et d'utiliser le bouton
que l'utilisateur a cliqué pour fermer la boîte de dialogue


"Circé" <circe@aea.gr> a écrit dans le message de news:
mn.b3ce7d61e9466a2f.20493@aea.gr...

Bonjour,

Une chtite macro comme ça :

Sub modele_attache()
Msg = "Le modèle utilisé est "
Set modele = ActiveDocument.AttachedTemplate
End Sub

Circé
http://faqword.free.fr

Le 22/01/2006, Anacoluthe a supposé :

Bonjour !

'Bolderic' nous a écrit ...

je souhaiterais récupérer puis afficher dans un msgbox par exemple
l'emplacement non pas du document en cours d'utilisation mais du fichier
.dot qui a généré ce document.
En sachant que d'autres fichiers .dot peuvent porter le même nom dans
différents dossiers.

Public Sub QuiEstMonModele()
MsgBox "Ce document a pour modèle:" & vbCr & _
ActiveDocument.AttachedTemplate.FullName
End Sub

Anacoluthe
« On est plus ou moins maître de son modèle. »
- Paul CÉZANNE