Code erreur 75 - Recherche chemin

[OUIZEMANN]

Bonjour à tous,
J'ai trouvé sur le net un formulaire comprenant une listbox comprenant un moteur de recherche.
Je souhaite y ajouter la possibilité de lier un nom à une photo située sur mon disque (le chemin est dans la colonne G).
Quand j'effectue une recherche séquentielle via la listbox, la macro va bien chercher le chemin repris par la textbox.
En revanche, quand j'effectues une recherche via le moteur de recherche, le nom est bien trouvé mais quand je , cliques sur la sélection de listbox, j'ai le code erreur 75.
Malgré mes nombreuses recherches, je bloque.
Pouvez-vous m'aider.
Par avance, merci.

Voici la macro qui nécessite une correction :
Private Sub TextBox8_Change()
Dim chemin As String
chemin = TextBox8.Value
UserForm1.Image1.Picture = LoadPicture(chemin)
End Sub

NB : les données sont fictives

 

[sousou]

Bonjour et bonne fête.
pas le temps d'analyser, mais un espace est insérer en début du champ chemin!

 

[job75]

Bonjour OUIZEMANN,

Des espaces se glissent dans le chemin d'accès et je ne sais pas pourquoi

Alors supprimons-les avec Trim :

Private Sub TextBox8_Change()
Dim chemin As String
chemin = Trim(TextBox8)
Image1.Picture = LoadPicture(chemin)
End Sub

Edit : salut sousou, on a vu tous les deux le problème.

A+

 

[OUIZEMANN]

Merci Sousou et Job75 d'avoir pris le temps de solutionner ma problématique.
C'était subtil.
Bravo et Merci !
Passez de bonnes fêtes de fin d'année.

 

[job75]

Re,

Bon j'ai compris que c'est la macro TextBox1_Change qui introduit ces espaces superflus, il faut la revoir en ajoutant un Trim :

For k = 1 To Ncol: b(i + 1, k) = Trim(a(k - 1)): Next k

A+

 

[Modeste geedee]

Bonjour OUIZEMANN,
Des espaces se glissent dans le chemin d'accès et je ne sais pas pourquoi
Alors supprimons-les avec Trim :

Private Sub TextBox8_Change()
Dim chemin As String
chemin = Trim(TextBox8)
Image1.Picture = LoadPicture(chemin)
End Sub

Edit : salut sousou, on a vu tous les deux le problème.

A+

For i = LBound(TblTmp) To UBound(TblTmp)
ReDim Preserve choix(1 To i)
For k = LBound(TblTmp) To UBound(TblTmp, 2)
'choix(i) = choix(i) & TblTmp(i, k) & " * "
' -------------------------------------le probleme se trouvais là
' correction
choix(i) = choix(i) & TblTmp(i, k) & "*"
Next k
Next i
Me.ListBox1.List = Rng.Value
End Sub

 

[job75]

Bonsoir Modeste geedee,

En effet l'erreur est au niveau de UserForm_Initialize.

Qui a pu mettre ces espaces de chaque côté de l'astérisque ???

A+

 

[OUIZEMANN]

Merci à tous.
Effectivement, c’était subtil.
Vous êtes doués...
Tout fonctionne bien.
Bonnes fêtes de fin d’année.