Discussion :

[PierG]

Bonjour,

Je me permets de vous solliciter car j'ai un léger problème sur le développement d'une de mes macros.
Mon but : Afficher une image si une TextBox contient le texte "Voir image :" et utiliser le nom de l'image à la suite pour générer le lien.

Exemple d'un contenu de Textbox pour être plus explicite :
- Lance la balle au chien
- Le chien l'attrappe
- Voir image : Chien

Dans ma macro, je procède de la façon suivante :

Code :

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

1
2
3
4
5
6
7
8
9
'Si ma textbox contient Voir image alors
If TextBox1.Text Like "*Voir image :*" Then
'Je découpe le contenu au niveau de "Voir image"
tabImg() = Split(TextBox17.Text, "Voir image :")
'Je me place dans le bon dossier
ChDir (ActiveWorkbook.Path)
'Je charge l'image qui se trouve dans le dossier "Image"
Image1.Picture = LoadPicture("Image\" & Trim(tabImg(UBound(tabImg))) & ".jpg")
End If

Le problème retourné est que le chemin spécifié est introuvable.

A la suite de cela, j'ai fait un Debug.Print et je me suis rendu compte que la valeur retournée était (le retour à la ligne n'est pas une faute de frappe) :
Image\Chien
.jpg

J'ai essayé de contourner le problème et je me suis rendu compte que si je met directement la valeur de la TextBox dans Split alors le résultat est différent.

Autre Code :

Code :

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

1
2
3
4
5
6
7
8
9
'Si ma textbox contient Voir image alors
If TextBox1.Text Like "*Voir image :*" Then
'Je découpe le contenu au niveau de "Voir image"
tabImg() = Split("- Lance la balle au chien - Le chien l'attrappe - Voir image : Chien", "Voir image :")
'Je me place dans le bon dossier
ChDir (ActiveWorkbook.Path)
'Je charge l'image qui se trouve dans le dossier "Image"
Image1.Picture = LoadPicture("Image\" & Trim(tabImg(UBound(tabImg))) & ".jpg")
End If

Autre résultat (sans le retour à la ligne cette fois là et sans soucis d'affichage) :
Image\Chien.jpg

Je souhaiterais donc savoir pourquoi j'ai l'apparition de ce retour à ligne lorsque je travaille sur une variable et non sur une valeur donnée.
En espérant que vous pourrez m'éclairer, je vous remercie du temps que vous aurez accordé à ma demande.

Pierre

[PierG]

Je viens de trouver après quelques heures depuis le début de mon problème.
Des caractères spéciaux se sont glissés dans la valeur de mon chemin.

J'ai donc repris la valeur du chemin et appliqué :

Code :

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

1
2
path = Replace(path, Chr(13), "")
path = Replace(path, Chr(10), "")

Bonne journée