Répertoire courant Résolu

Question

Hello !

Je dois modifier un code en VBA, qui contient des chemins de fichiers images ecris en dur.



Ces fichiers &#233;tant dans le m&#234;me repertoire que le fichier excel, je
souhaitais savoir si je pouvais faire r&#233;f&#233;rence &#224; ces fichiers sans
mettre par exemple

"D:\Profiles\cmora\Mes documents\excel VBA"

mais un truc du genre App.Path qui renverrait avec un executable en vb6, le chemin r&#233;el.



(jai dailleurs essay&#233; Application.Path qui donne le chemin du logiciel Microsoft Excel... cool)



merci d'avance !!!

macgyver49 · Accepted Answer

On t'a oblig&#233; &#224; prendre un fichier .xlt pour r&#233;aliser ton code VBA 

Car tu sais, t'as juste &#224; changer l'extension ! Tu le passes en xls et ton programme marcherait...

Faut que tu vois si tu peux le faire car sinon je pense que tu vas peiner &#224; le faire marcher (&#224; moins de copier le chemin en dur soit dans un fichier texte ou tu demandes le chemin dans l'interface)

A toi de voir...

Titi & Panpan

cs_franckydeluka · Answer

salut !
si j'ai bien compris tu veux r&#233;cup&#233;rer le m&#234;me chemin que celui de ton fichier Excel c'est &#231;a ?
Dans ce cas l&#224; tu d&#233;clare une variable globale o&#249; tu y met le chemin qui te permet d'acceder &#224; ton fichier excel et ensuite tu le passes en param&#232;tres &#224; ton code qui doit aller chercher les images



Deluka.

econs · Answer

Application.Path




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

cs_cmora · Answer

d&#233;sol&#233;... 

ces 2 solutions ne me conviennent pas :

- Application.path ne marche pas! : il donne le chemin de l'application Microsoft excel

- la solution de franckydelucka oblige encore &#224; mettre dans le code, le
chemin o&#249; se trouve le fichier excel : je veux pouvoir transporter
partout mon r&#233;pertoire contenant mon fichier excel et mes fichiers
images.

Il existe pas un truc genre Monfichierexcelquejeviensd'ouvrir.Path ?



merci de m'aider

cs_franckydeluka · Answer

Si tu d&#233;clare une variable globale que tu remet &#224; jour &#224; chaque fois que tu ouvre un fichier excel c'est pas bon ?



Deluka.

cs_cmora · Answer

je ne comprends pas bien comment cela peut marcher:

j'aurais une variable globale

dim CheminExcel as string



que je pourrais utiliser dans tous mon programme.



c'est exactement ce que je veux mais comment lui donnes-tu la valeur du chemin?

CheminExcel= "???"  (tu rentres dans le code vb a chaque fois et tu changes manuellement la valeur, c sa?)



tu as une solution?

cs_franckydeluka · Answer

tu lui donnes le CheminExcel comme lorsque tu ouvres ton fichier excel. (pour l'ouvrir tu lui donnes bien le r&#233;pertoire de ton fichier Excel)

Mais apparement tu ouvres peut-&#234;tre ton fichier excel non pas par ton application VB mais autrement alors dans ce cas ce que tu peux faire c'est mettre le chemin d'acc&#232;s dans un fichier .txt ou .ini que ton programme ira chercher

sinon je vois pas d&#233;sol&#233;



Deluka.

macgyver49 · Answer

Salut !

Si on a bien compris, tu souhaites avoir seulement le chemin de ton r&#233;pertoire o&#249; se situe  ton fichier Excel ?
On sait qu'avec VB6, on peut utiliser l'instruction "CurDir" qui renvoie le chemin o&#249; se situe le programme VB. Si &#231;a te convient, essaye le !

Cela donnerait: CheminExcel = CurDir

En esp&#233;rant que &#231;a r&#233;soudra ton probl&#232;me, &#224; bient&#244;t.

Titi & Panpan

cs_cmora · Answer

Oui j'ouvre mon fichier excel en double cliquant dessus (c'est un mod&#232;le .xlt)



Malheureusement CurDir ne renvoit pas le bon chemin... toujours "C:\ ... \mes documents"



donc toujours pas de solution...



Merci quand m&#234;me de m'avoir aid&#233;

macgyver49 · Answer

On ne voit pas ce que tu cherches exactement (ouais on n'est pas dou&#233;!). Tu souhaites avoir le chemins des images qui se trouvent avec ton .xlt ?

D&#233;cris nous les chemins que tu souhaites avoir avec celui de ton fichier Excel. Car on pense que tes images ne sont sous la racines de ton fichier Excel !

Titi & Panpan

cs_cmora · Answer

Je vais vous expliquer exactement :

dans mon code, je fais r&#233;f&#233;rence &#224; des images qui sont dans le meme
repertoire ("Formulaires") que mon fichier excel : logo =
"\menthe\FAQ_Formulaires\Formulaires" & Title   (sur un
serveur appel&#233; menthe et le nom de mon image est dans la variable Title)



Cela marche mais maintenant je voudrais faire la meme chose sans savoir
a lavance que ce sera "\menthe\FAQ_Formulaires" qu'il y aura avant.



Donc l'id&#233;al serait que lorque j'appui sur un bouton valider, le code
mette dans une variable l&#224; o&#249; se trouve mon R&#233;pertoire Formaulaire
contenant &#224; la fois les images et mon fichier xlt... Je saurais le
faire si c'est une application mais l&#224; c'est un fichier excel que
j'ouvre...

cs_franckydeluka · Answer

en clair il faudrait que ton programme VB sache &#224; partir de quel r&#233;pertoire un fichier (.xlt) est lui m&#234;me lanc&#233; par une autre application (Excel)?!
>>lololol &#231;a je sais pas faire d&#233;sol&#233;
&#224; moins qu'il existe une autre solution (et &#231;a doit exister) code l'adresse en dur ou bien dans un fichier annexe (du genre .txt)



Deluka.

macgyver49 · Answer

On ne connait rien sur VBA mais on a cherch&#233; un peu sur le net et on a trouv&#233; une instruction qui a l'air pas mal.


Essaie: Chemin = ActiveWorkbook.path & \Formulaires\

Titi & Panpan

macgyver49 · Answer

On ne connait rien sur VBA mais on a cherch&#233; un peu sur le net et on a trouv&#233; une instruction qui a l'air pas mal.


Essaie: Chemin = ActiveWorkbook.path & \Formulaires\

Titi & Panpan

cs_cmora · Answer

malheureusement, ActiveWorkbook.path n'a aucune valeur lorsque je l'affiche...

tant pis tant pis...

macgyver49 · Answer

D&#233;sol&#233;, on fait ce qu'on peut ! Mais encore un petit espoir: Titi poss&#232;de un livre sur VBA chez lui et on devrait r&#233;ussir &#224; trouver la solution &#224; ton probl&#232;me (en tout cas, on esp&#232;re !!!!). 

On te tient au courant demain matin.
 
Bonne journ&#233;e.

Titi & Panpan

cs_cmora · Answer

merci beaucoup quand m&#234;me, c'est vraiment sympa de pas m'abandonner

macgyver49 · Answer

Coucou, c'est nous !     

On a peut &#234;tre une solution (une de plus !). Voil&#224; ce que l'on a r&#233;ussi &#224; tester avec un chemin sur le dur. Donc &#231;a devrait marcher!

Voil&#224; le code:
Dim Chemin as string

With Application.FileSearch
        Chemin = ThisWorkbook.Path
End With

En esp&#233;rant que cela fonctionne !

Titi & Panpan

cs_cmora · Answer

C'&#233;tait une excellente id&#233;e mais, je n'y crois pas car la variable est toujours vide.

J'ai regard&#233; les autres propri&#233;t&#233;s de ThisWorkbook. J'ai r&#233;eussi &#224;
afficher, FullName, Name et d'autres infos mais rien ne s'affiche avec
Path... C'est &#224; d&#233;sesp&#233;rer.



Enfin, je dois quand m&#234;me vous remercier (la derni&#232;re solution avait
l'air vraiment bien pourtant...) pour avoir pass&#233; du temps &#224;
rechercher! &#224; bient&#244;t peut-&#234;tre !

macgyver49 · Answer

On a regard&#233; un peu plus en profondeur ton probl&#232;me, et on se pose une question:

 - Ton fichier .xlt est un mod&#232;le que tu souhaites afficher &#224; l'ouverture d'Excel (.xls)? 

Si c'est le cas, tu pourrais chercher le fichier .xlt &#224; partir du fichier .xls(le code pr&#233;c&#233;demment fonctionne avec le .xls mais pas avec .xlt comme tu nous le disais!). 

C'est bien &#231;a que tu veux faire ?

Titi & Panpan

Répertoire courant

26 réponses

Discussions similaires