Chemin d'acces du modèle

[BasicInstinct]

Bonjour a tous

Je suis en train de développer une appli qui se lance a partir du modèle (installé n'importe ou). Comment puis-je recupérer le chemin d'acces de mon modèle ??

 

[Ti]

tu l'obtiens avec l'instruction suivante :

CheminModele = Application.TemplatesPath

 

[BasicInstinct]

ca marche pas :
ca me renvoie le chemin des modeles dans "Application data\microsoft\....."
& mon modele est sur le bureau

 

[Ti]

Désolé, je n'avais pas compris que tu voulais mettre ton modèle n'importe où (ce qui par ailleurs n'est pas forcément une bonne idée).

Voici une routine simplifiée qui te retourne le premier fichier rencontré sur le disque C: avec le critère de recherche que tu lui donnes.
Tu pourras facilement l'adapter et la compléter selon tes besoins. Pour plus de détails, consulte l'aide VBA sur l'objet FileSearch.

Function ChercheFichier(Fichier As String)
With Application.FileSearch
.NewSearch
.LookIn = "C:"
.Filename = Fichier
.SearchSubFolders = True
.FileType = msoFileTypeOfficeFiles
If .Execute() > 0 Then ChercheFichier = .FoundFiles(1)
End With
End Function

Sub test()
Dim MonFichier
MonFichier = ChercheFichier("couleurs.xls")
End Sub

 

[BasicInstinct]

merci.