[VBA] Connaître le répertoire du fichier Normal.Dot

Bonjour.
La macro suivante ne fonctionne pas sous XL2007. Elle met un certain temps à
s'exécuter. Tu dois connaître le disque logique sur lequel se trouve le
fichier (ici : C:) :

Sub test()
Dim Fichier As String
With Application.FileSearch
.NewSearch
.LookIn = "C:"
.Filename = "Normal.dot"
.SearchSubFolders = True
.Execute
If .FoundFiles.Count > 0 Then
MsgBox .FoundFiles(1)
End If
End With
End Sub

Cordialement.
Daniel
"HD" <hd@anti.spam.fr> a écrit dans le message de news:
f0qdcb$1mjc$1@biggoron.nerim.net...

Bonjour,

Comment peut on retrouver le répertoire où se situe le fichier Normal.dot
(qui est le fichier modèle dans Word) et ce quelque soit la version de
Windows et de Word ?

Tout celà parce qu'avant de lancer une macro VBA Excel qui doit piloter
Word
il me faut vérifier la version du Normal.dot pour être certain qu'il
s'agisse bien de mon Normal.dot maison.

Merci d'avance pour votre aide
--
@+
HD

Elle met un certain temps à s'exécuter.
With Application.FileSearch

Ouille... C'est une rechercher de fichier... Je pensais plus à une variable
d'environnement ou quelque chose du genre pour en avoir un accès direct...

Dans le cas où une telle variable n'existerais pas alors je pense que je
mettrais une macro recherchant le Normal.dot (comme tu l'as écris) et
stockant le chemin du répertoire dans un fichier. Comme celà la macro
vérifie d'abord si le fichier avec le chemin existe et si ce n'est pas le
cas lance la recherche...

A moins qu'il y'ai une possibilité avec la base de registre ?

--
@+
HD