Discussion :

[ValentinLFs]

Bonjour,

Voici mon problème, je possède un fichier excel fonctionnant avec plusieurs Userforms, TextBox, etc..

Certain Userform sont munis d'un Objet "Image" permettant d'afficher une image par le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Userform_Initialize()
Me.Image1.Picture = LoadPicture("Y:\BLABLA1\BLABLA2\BLABLA3\DossierSource\image.jpg", 900, 600)
End Sub

Le DossierSource comprend mon fichier excel ainsi que toute les images utilisés.

J'aimerais que lorsque ce DossierSource change de place, que je ne soit pas obligé de changer manuellement le chemin d'accès dans mon code. Sachant que plusieurs personnes utiliseront ce "logiciel" sur leur ordinateur et qu'ils ne connaissent pas l'univers du VBA, ils ne seront donc pas en mesure de pouvoir changer le chemin d'accès eux même.

Je vous remercie d'avance !

[Jean-Philippe André]

Salut,

les deux solutions que je vois pour te simplifier le travail :
- remplacer toutes les iterations en dur par UNE constante globale
- dans la mesure ou tes users n'iront pas dans le code, leur dire que le folder doit etre dans une cellule precise de ton classeur, et que tu recuperes cette valeur par le code.

[joe.levrai]

Bonjour,

si j'ai bien compris ton explication, les images et le classeur qui les utilise sont dans le même dossier ?

dans ce cas là, autant définir ce chemin relatif en fonction de ce paramètre, ainsi si tu déplaces ton dossier (et que tes images conservent le même nom), tu n'as pas de modification de chemin à faire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Userform_Initialize()
Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\image.jpg", 900, 600)
End Sub

En reprenant ton exemple, Thisworkbook.Path = "Y:\BLABLA1\BLABLA2\BLABLA3\DossierSource"

Si tu décides de déplacer DossierSource pour le mettre dans BLABLA2, alors Thisworkbook.Path devient "Y:\BLABLA1\BLABLA2\DossierSource"

[ValentinLFs]

Merci jpcheck et joe.levrai !!

J'ai continué à chercher également de mon coté et j'ai trouvé l'objet ImageList qui permet également utiliser une liste de photo sans passer par un chemin d'accès.

Cependant ta solution joe est également très bien, je vais d'ailleurs utiliser cela !

Je vous remercie !

Bonne journée

[joe.levrai]

Si un jour tu souhaites utiliser le contrôle ImageList, il faut savoir qu'il n'as pas compatible sur tous les environnements (pas de MAC, pas de version 64bits également il me semble).

pour un projet suceptible d'être déployé sur plusieurs postes de travail, il est préférable de rester sur des contrôles de base

d'où la raison pour laquelle je n'ai pas proposé ce contrôle pratique pour charger une bibliothèque d'image directement dans ton projet VBA

[ValentinLFs]

Ah d'accord, c'est bon à savoir en effet ! Je n'avais pas du tout penser à la compatibilité. Je te remercie pour tes infos