Code erreur 75 - Recherche chemin

OUIZEMANN · 30 Décembre 2018

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 · 30 Décembre 2018

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

job75 · 30 Décembre 2018

Bonjour OUIZEMANN,

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

Alors supprimons-les avec Trim :

Code:

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 · 30 Décembre 2018

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 · 30 Décembre 2018

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 :

Code:

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

A+

Modeste geedee · 30 Décembre 2018

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

Code:

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 · 30 Décembre 2018

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 · 30 Décembre 2018

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

Code erreur 75 - Recherche chemin

OUIZEMANN

XLDnaute Junior

Pièces jointes

sousou

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

OUIZEMANN

XLDnaute Junior

job75

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

OUIZEMANN

XLDnaute Junior

Discussions similaires