Chemin d'un fichierRésolu

Question

Bonjour a tous.

Je programme une application en vba sous access et j'ai un petit probleme.
Je fais sortir les donn&#233;es d'access et je fais une sorte de publipostage sous word gr&#226;ce &#224; un fichier .dot.
Le probl&#232;me, c'est que pour appeller le fichier, j'entre dans mon code le chemin entier, ca fait donc un truc du genre "F:\machin\poulet\frite\mayo\fichier.dot"
J'aimerais savoir s'il n'existe pas d'autres solutions pour appeler le fichier, sachant que le fichier access et le .dot sont dans le meme r&#233;pertoire, et que ce r&#233;pertoire est amen&#233; a changer souvent de place (d'ou mon probleme).

Merci d'avace,

Elpaulo

mrdep1978 · Accepted Answer

Ou tu fais "F2" (Explorateur d'objet) et tu recherches Path. Ca te dira sur quels objets existe la propri&#233;t&#233;

mrdep1978 · Answer

Essaie un 
CurrentDB.Path ou ThisDB.Path
ou un "Je ne sais plus quoi".Path (je n'ai pas Access sous la main dc je ne sais plus sur quel objet c'est.)
En Excel, il y a un ThisWorkbook.Path, en Word un ThisDocument.Path et sous VB6 un App.Path.

cs_wape · Answer

Bonjour,

Essaye qqch du genre :

Dim sName As String
Dim sPath As String
Dim sFile As String


'R&#233;cup&#233;rer le nom de la bd
sName = CurrentDb.Name


'R&#233;cup&#233;rer le chemin de la bd
sPath = Left(sName, Len(sName) - Len(Dir(sName)))


'Composer le nom du fichier
sFile = sPath & "fichier.dot"

wape

elpaulo · Answer

ok merci, j'ai trouv&#233; beaucoup plus simple :

Dim chemin As String
chemin = CurrentProject.Path & "\fichier.dot"

Et voila! Le chemin du fichier est dans "chemin" !

Merci quand meme!

Chemin d'un fichier

4 réponses

Discussions similaires