Image hypertext avec formule
Bonjour amis Excelleurs
Le fichier ci-joint contient deux onglets, Liste et Fiche. Le premier me permet de lister tous les restaurants en renseignant les différentes colonnes. Dans le deuxième, je créé automatiquement une fiche par restaurant. Le fichier se remplit automatiquement via la formule INDEX EQUIV. Je sélectionne le restaurant par le biais d'un menu déroulant et toutes les autres informations se remplissent.
Voici mon problème. Je souhaiterais faire apparaître l'image dans les cellules fusionnées en haut à gauche de l'onglet Fiche provenant du lien hypertexte situé dans la colonne N de l'onglet Liste. Bien entendu, l'image changera automatiquement en fonction du restaurant sélectionné, de la même façon que les autres informations.
Je vous remercie par avance
William
Bonjour, j'ai un petit beugue Excel et je ne peux pas ouvrir ton fichier, cependant je peux t'apporter ici une piste !
Pour afficher l'image j'imagine que tu utilise un contrôle image ? Et le lien hyper texte revois à une image stockée dans ton PC ?
Dans ce cas regarde ça :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
répertoirePhoto = "c:\mesdoc" 'adapter
Me.Image1.Picture = LoadPicture(répertoirePhoto & "\" & Target & ".jpg")'En admettant que l'image porte le nom du restaurant
End If
End Sub Sinon, si tu as le temps regarde ici tu devrai trouver ton bonheur
Re,
Pour mette une image dans une cellule sans passer par un controle :
répertoirePhoto = "c:\mesdoc\" ' Adapter
nom = "droc"
Set c = Range("B2")
With ActiveSheet
.Pictures.Insert(répertoirePhoto & nom & ".jpg").Name = nom
.Shapes(nom).Left = c.Left
.Shapes(nom).Top = c.Top
.Shapes(nom).LockAspectRatio = msoTrue
.Shapes(nom).Height = c.Height
End WithRe,
Pour mette une image dans une cellule sans passer par un controle :
répertoirePhoto = "c:\mesdoc\" ' Adapter nom = "droc" Set c = Range("B2") With ActiveSheet .Pictures.Insert(répertoirePhoto & nom & ".jpg").Name = nom .Shapes(nom).Left = c.Left .Shapes(nom).Top = c.Top .Shapes(nom).LockAspectRatio = msoTrue .Shapes(nom).Height = c.Height End With
Bonjour, je te remercie beaucoup. Est-ce que ça fonctionne pour une image avec un lien hypertexte sur le cloud? car l'image n'est pas sur mon disque mais je vais la chercher directement sur mon drive
Re,
A vrai dire je n'en sais rien... après c'est possible (je pense) vue que tu utilises OneDrive tu dois avoir un raccourcis pour accéder à tes fichiers directement dans ton explorateur Windows. L'image stockée doit avoir une adresse du style C:\Users\Gautier\OneDrive\Documents\MonImage.JPG
Après si l'image est stockée sur Google Drive je ne sais pas ...
Sinon recherche sur ce lien http://boisgontierjacques.free.fr/pages_site/lesimages.htm le terme Image Web dans un formulaire tu auras même un fichier téléchargeable en exemple ( http://boisgontierjacques.free.fr/fichiers/Formulaire/FormAfficheImageWeb.xls)
Si c'est google drive c'est pas comme OneDrive, essaye d'ajouter Google Drive directement dans l'explorateur windows de cette façon : https://www.dominicdesbiens.com/articles/comment-ajouter-google-drive-dans-lexplorateur-de-windows-10-a-la-maniere-de-onedrive-et-dropbox.html