petit coup de pouce pour amelioré un code (bonne année)

[creolia]

bonjour voila j'ai ce bout de code récupéré ici meme pour charger automatiquement une image dans un USF le probleme c'est que je suis obliger de mettre les images dans la racine du dossier ou se trouvent mon fichier xls

je souhaiterais si possible faire un nouveau dossier nomer image et que mon bout de code aille le chercher directement dedant pouvez vous m'aider merci et bonne année bonne santé joie et bonheur à tous



code:

comboA change ()
nom = Me.ComboA.Value
On Error Resume Next
Fichier = ActiveWorkbook.Path & "\" & nom & ".jpg"
Me.Image1.Picture = LoadPicture(Fichier)
End Sub

 

[kjin]

Re : petit coup de pouce pour amelioré un code (bonne année)

Bonjour,
Il suffit, par exemple, de remplacer "ActiveWorkbook.Path" par le chemin complet vers ton dossier "Images"

comboA change ()
nom = Me.ComboA.Value
RepImages = "C:\...\Images\" 'c'est un exemple à adapter !!
On Error Resume Next
Fichier = RepImages & nom & ".jpg"
Me.Image1.Picture = LoadPicture(Fichier)
End Sub

A+
kjin

 

[creolia]

Re : petit coup de pouce pour amelioré un code (bonne année)

Merci pour ta reponse fais en donnant le chemin d'accée precis sa ne marche pas j'ai tester c:/Image/

et il ne charge pas les image

saurais tu pourquoi


merci

 

[kjin]

Re : petit coup de pouce pour amelioré un code (bonne année)

Re,

....j'ai tester c:/Image/ ...
saurais tu pourquoi

Bah là c'est sûr

"c:[B][COLOR="Red"]\[/COLOR][/B]Image[COLOR="Red"][B]\[/B][/COLOR]"

c'est mieux
A+
kjin

 

[creolia]

Re : petit coup de pouce pour amelioré un code (bonne année)

Merci pour ton aides j'avais bien mis les slash c'etait une erreur d'ortographe

Images et Image

en tous cas merci