combobox => LIEN comme repertoire

[joums]

Bonjour,

Quel serait le code pour que les combobox utilisé servent de lien pour aller chercher un fichier dans le repertoire?

Je m'explique :
Mon fichier est dans le répertoire suivant D:TEST\ALPHA\GAMMA\fichier1.jpg
Si j'ai 3 combox dans la valeur est TEST\ALPHA\GAMMA
quel est le code pour dire que la valeur des combobox sert de lien

Je pensais à un truc du genre
On Error GoTo bug
Dim lien As String
lien = "D:\ComboBox1.Value & ComboBox2.Value & ComboBox3.Value & ".jpg"
Controls("Image1").Picture = LoadPicture(Filename:=lien)

Exit Sub
bug:
MsgBox "Je n'ai pas trouvé l'image sur le lien : " & lien

MAIS CA NE FONCTIONNE PAS

Merci de votre aide
Bonne journée

 

[Cousinhub]

Re : combobox => LIEN comme repertoire

Bonjour,

à tout hasard (non testé...)

Dim Lien As String
Dim Fichier As String
Fichier = "fichier1.jpg"
If ComboBox1.Value <> "" And ComboBox2.Value <> "" And ComboBox3.Value <> "" Then
    Lien = "D:\" & ComboBox1.Value & "\" & ComboBox2.Value & "\" & ComboBox3.Value & "\" & Fichier
End If

en supposant le nom du fichier fixe, sinon, il faudra un 4 ème combobox....

 

[joums]

Resolu : combobox => LIEN comme repertoire

Bonjour,

Un grand merci à bhbh,
c'est tout simple mais fallait y penser 😱

bonne journée

Bonjour,

à tout hasard (non testé...)

Dim Lien As String
Dim Fichier As String
Fichier = "fichier1.jpg"
If ComboBox1.Value <> "" And ComboBox2.Value <> "" And ComboBox3.Value <> "" Then
    Lien = "D:\" & ComboBox1.Value & "\" & ComboBox2.Value & "\" & ComboBox3.Value & "\" & Fichier
End If

en supposant le nom du fichier fixe, sinon, il faudra un 4 ème combobox....