WebBrowser

[Mapat]

Bonjour à tous
J'essaie de faire un formulaire avec possibilité de visualiser des images avec le webBrowser. Mon fichier excel et les images sont dans un meme dossier sous C. Ca ne fonctionne pas
Qu'est-ce qui ne va pas dans le code ?
Dans l'exemple de mon fichier joint il n'y a que le fichier excel. Sans doute facile pour les pros de ce forum mais moi je ne vois pas ...

 

[Guest]

Re : WebBrowser

Voici peut-être:

1 - WebBrowser1.Navigate ThisWorkbook.Path & "\Photo"
Où 'Photo' représente un sous répertoire de ThisWorkbook.Path

2- Si 'Photo' est une variable contenant le nom d'un répertoire, if faut renseigner cette variable avant de s'en servir:

Photo="C:\sousrépertoire"
WebBrowser1.Navigate Photo

3- si photo est une variable contenant le nom d'une photo (même remarque qu'en 2)
Photo="MaPhoto.jpg"
WebBrowser1.Navigate ThisWorkbook.Path & "\" & photo

Cela convient-il?
bonne journée

 

[pierrejean]

Re : WebBrowser

bonjour Mapat

teste cette modif:

WebBrowser1.Navigate ThisWorkbook.Path & "\" & [COLOR=red]"[/COLOR]Photo[COLOR=red]"[/COLOR]

au lieu de:

 WebBrowser1.Navigate ThisWorkbook.Path & "\" & Photo

le webbrowser te donnera les fichiers contenus dans le repertoire Photo
pour avoir la photo cherchée seulement il te faudra ajouter le nom du fichier (a fabriquer a partir de ton combobox)

toujours en retard moi !!
Salut Hasco

 

[Mapat]

Re : WebBrowser

Bonjour

Merci pour cette réponse mais ca ne fonctionne toujours pas
Je joins le dossier pour exemple avec une image
J'ai pourtant fichier xls et image dans le meme répertoire ce qui la condition pour que cela fonctionne mais ca ne va pas

 

[Mapat]

Re : WebBrowser

Bonjour pierreJean
Je n'avais pas vu entre temps ta réponse
Apparemment rien ne change et je n'ai toujours pas l'image correspondante

 

[papapaul]

Re : WebBrowser

🙂 Salut Mat, pierrejean, tous,

Je sais pas trop mais je pense plutôt quelque chose comme ca,
(En supposant que ta photo soit un gif)🙄 (attention aux "" et \\)

Dim rep As String
rep = ThisWorkbook.Path
WebBrowser1.Navigate rep & "\photo.gif"

Il y a de petites idées à ce sujet dans mes posts des 15 et 16 février

Bon courage.😉

 

[pierrejean]

Re : WebBrowser

Re

relis mon post

et teste ce code

    WebBrowser1.Navigate ThisWorkbook.Path & "\" & Recherche & ".jpg"

edit:
salut papapaul