Récupération de la localisation du programme

Question

Bonjour,

Dans mon programme j'ouvre des fichiers qui pour l'instant sur mon pc son à un endroit possible. 
Mais par la suite ce programme sera installé sur plusieurs ordinateur et les fichiers peuvent être mis n'importe où.
Alors je voudrais trouver où ils sont! 
Est ce que c'est possible quand on lance l'application de trouver ou elle se trouve et de récupérer le chemin d'acces au dossier contenant donc le programme et tous les fichiers associés?

Merci!

cs_Exploreur · Answer

Salut,

Je ne sais pas si en VBA, il y a cela, mais regarde du côté de : App.Path

A+
Exploreur

 Linux a un noyau, Windows un pépin

jmfmarques · Answer

Bonjour à tous les deux.
Je crois (mais je ne connais pas VBA) que sous VBA c'est Application.Path

cs_MPi · Answer

En VBA (Excel), ce serait ThisWorkbook.Path
qui donne le chemin de l'application en cours

Si les autres fichiers ne sont pas au même endroit, il faudra peut-être penser à utiliser un contrôle Common Dialog ou la méthode Application.GetOpenfilename et sauvegarder le ou les chemins dans un fichier ou la base de registre...

MPi

Satanas09 · Answer

et sous Word c'est 

ThisDocument.Path 

Satanas09 ..... Sapristi, saprista, souris grise et face de rat

Tiatia63 · Answer

Pff! je désespère! C'est le serpent qui se mort la queue!!
J'ai utiliser filetoopen mais ça va pas.
Comment savoir ou on est?
Je peux savoir ou on est d'accord. mais après comment enregistrer le chemin d'acces dans un fichier ou l'on ne sait pas ou il est!
J'ai regarder avec fileToOpen et j'ai fait ça
Dim ld() As String
fileToOpen = Application _
    .GetOpenFilename("Text Files (*.txt), fileToOpen.txt")
'Pour creer le fichier texte
Set FSys = CreateObject("Scripting.FileSystemObject")
Set CheminAcces = FSys.CreateTextFile("D:\....\Chemin d'accès.txt")
With CheminAcces 'Pour écrire dans le fichier texte
.writeLine fileToOpen 'Mettre write pour ne pas sauter à la ligne



End With

Mais je ne peux pas enregistrer la "réponse" a filetoopen dans un fichier qui se trouve dans le répertoire dont je suis en train de chercher le chemin!
Bon j'essaie de gratter en attendant votre réponse...
Merci

Tiatia63 · Answer

Aah! Ca a l'air de marcher! Voilà ce que j'ai fait:
Dim ld() As String
fileToOpen = Application _
    .GetOpenFilename("Text Files (*.txt), fileToOpen.txt")
'Pour creer le fichier texte
Set FSys = CreateObject("Scripting.FileSystemObject")
'Set CheminAcces = FSys.CreateTextFile("D:\...\Chemin d'accès.txt")
Set CheminAcces = FSys.CreateTextFile(fileToOpen)
With CheminAcces 'Pour écrire dans le fichier texte
.writeLine fileToOpen 'Mettre write pour ne pas sauter à la ligne


End With

Alors? Ca vous semble bien?
Merci de votre aide!

Tiatia63 · Answer

Et ben non ça va pas!
Pff! je me réponds toute seule enfin!
Non il faut juste que je récupère le nom du dossier.
Pour par la suite récupérer ce nom(qui peut changer en fonction de là ou on installe le programme) pour ensuite quand je fais référence a un fichier, juste mettre dans le programme par exemple "cheminacces\fichier.txt" avec cheminacces=le mon du dossier contenant tous les fichiers. 
Faut peut etre plutot utiliser autre chose? 
Est que vous pouvez m'aider

cs_MPi · Answer

Tu n'as pas vraiment expliqué sur quoi tu travailles. Tu as eu différentes méthodes de retracer le chemin de ton application
App.Path                            - VB6
ThisWorkbook.Path     - Excel
ThisDocument.Path      - Word

Ça équivaut à ton cheminacces, en principe

Pour écrire dans un fichier, tu n'as pas besoin d'utilise le FileSystemObject
Un simple Open MonFichier For Output as #1 suffit avec l'instruction Print ou Write
suivi d'un Close lorsque terminé

MPi

Tiatia63 · Answer

je suis sous visual basic 6.3.
Mon programme ne travaillera pas sous excel.
Donc j'essaie qqch avec app.path...

Tiatia63 · Answer

Ok, j'ai compris...
Merci beaucoup!

cs_MPi · Answer

VB 6.3 n'est pas VB6
C'est du VBA sous une application Office quelconque
Donc, App.Path ne devrait pas fonctionner dans ton cas.

MPi

Récupération de la localisation du programme

11 réponses

Votre réponse

Discussions similaires