[résolu]récupération nom de dossier pour images

récupération nom de dossier pour images [résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 10-07-2006 à 14:52:35    

Bonjour à tous, :hello:  
pour penser à autre chose qu'au foot aujourd'hui, je vous propose de m'aider à résoudre un petit pb simple en soit, mais dont la ligne de prog m'échappe  :sweat:  
voila l'idée :
dans le cadre de mon mastermind, je joue avec des images sur les boutons, qui changent lorsqu'on clique dessus. Ce changement d'image est géré dans la macro, avec un loadpicture("E:\ etc..."& i & ".bmp" )
je charge donc un fichier bmp selon un numéro. Le problème, et c'est là ou je réfléchis pas assez à mon avis, c'est que lorsque je file cette macro à un copain, ca plante, normal, acr les images sont pas accessibles sur son ordi.
Aussi, et je finis ces longues lignes de blabla par ma question :
comment récupérer le nom du dossier dans lequel se situe la macro, et, en filant un dossier complet avec les images, comment peut-on écrire la fonction loadpicture sans qu'elle plante d'un ordi à un autre ??
 
Merci d'avance
mon jeu sera dispo pour les intéressés, me PM ;)


Message édité par jpcheck le 10-07-2006 à 15:20:21
Reply

Marsh Posté le 10-07-2006 à 14:52:35   

Reply

Marsh Posté le 10-07-2006 à 14:56:15    

la fonction .path est-elle suffisante pour retourner l'adresse du document ?

Reply

Marsh Posté le 10-07-2006 à 15:10:23    

ActiveWorkbook.Path te retourne le chemin où est le fichier actif.

Reply

Marsh Posté le 10-07-2006 à 15:12:10    

Paul Hood a écrit :

ActiveWorkbook.Path te retourne le chemin où est le fichier actif.


donc ca oblige le joueur a finir la partie sous peine de planter le jeu en cas de passage sous word par ex ?

Reply

Marsh Posté le 10-07-2006 à 15:15:29    

Non. tu peux récupérer le chemin du fichier souhaité :
Workbooks("Classeur 1" ).path

Reply

Marsh Posté le 10-07-2006 à 15:20:07    

Paul Hood a écrit :

Non. tu peux récupérer le chemin du fichier souhaité :
Workbooks("Classeur 1" ).path


oki super merci

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed