Affichage des images d'une liste de liens hypertexte

Fermé

goyoucandoit Messages postés 3 Date d'inscription lundi 25 mars 2019 Statut Membre Dernière intervention 28 mars 2019 - 25 mars 2019 à 11:06
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 28 mars 2019 à 18:13

Bonjour,
J'ai un fichier excel d'environ 300 lignes.
Pour chaque ligne j'ai, dans une colonne, un lien hypertexte correspondant, en l’occurrence à une couverture d'un livre.
Je voudrais à l'ouverture du fichier, afficher les couverture de chaque lien hypertexte.
Si vous avez une astuce, je suis preneuse.
J'utilise excel 2016
Merci à tous pour votre aide.

A voir également:

Affichage des images d'une liste de liens hypertexte
Liste déroulante excel - Guide
Créer un lien pour partager des photos - Guide
Gertrude a préparé la liste des affaires à prendre pour l'excursion. juliette a modifié cette liste en utilisant le mode suivi des modifications proposé par le traitement de texte. - Guide
Liste de diffusion whatsapp - Guide
Liste déroulante en cascade - Guide

3 réponses

Réponse 1 / 3

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
25 mars 2019 à 11:27

Bonjour,

On peut le faire en vba. Mais il faut savoir qu' à chaque ouverture tu auras un message d'alerte. Voir ci-dessous comment le supprimer:

http://www.faqword.com/index.php/powerpoint/faq-ppt/environnement/637-comment-supprimer-le-message-dalerte-qui-saffiche-lorsquon-clique-sur-un-lien-hypertexte

Ensuite tu auras 300 images ouvertes!

Mais si tu veux le faire quand même voici la marche à suivre:

Faire Alt f11 pour accéder à l'éditeur; Inserer un module. Mettre ce code dans ce module:

Option Explicit
Sub Ouvrir_Lien_Hypertexte()
Dim C As Range
On Error Resume Next
With Worksheets("Feuil1") 'NOm Feuille à adapter
'adresse de la plage de cellules à adapter
For Each C In .Range("A1:A300")
C.Hyperlinks(1).Follow False
Next
End With
End Sub

ensuite allez dans ThisWorkbook et mettre ce code:

Option Explicit
Private Sub Workbook_Open()
Ouvrir_Lien_Hypertexte
End Sub

Voilà bon courage!

Réponse 2 / 3

goyoucandoit Messages postés 3 Date d'inscription lundi 25 mars 2019 Statut Membre Dernière intervention 28 mars 2019
28 mars 2019 à 15:34

Merci pour ta réponse mais à l'ouverture du fichier rien ne se passe.

Les images proviennent de mon site et sont stockés sur le réseau, est ce que cela pourrait bloquer .

Voici le texte adapté

With Worksheets("G2:G30"), ai-je fais une erreur d'écriture
Je suis complètement novice en VBA.

Merci de ton aide.

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
28 mars 2019 à 15:47

Dans le code que j'ai montré, il n'y a aucunement cette ligne!!!!!!

With Worksheets("G2:G30")

Regarde bien ce code, il te suffit de mettre ta plage de cellule ici:

'adresse de la plage de cellules à adapter
For Each C In .Range("A1:A300")

ce n'est pas trop compliqué!

Réponse 3 / 3

goyoucandoit Messages postés 3 Date d'inscription lundi 25 mars 2019 Statut Membre Dernière intervention 28 mars 2019
28 mars 2019 à 16:27

C'est vrai ce n'était pas trop compliqué .
Top!

Maintenant sais tu comment dimensionner l'image (trop grande)?

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
28 mars 2019 à 18:13

C'est la visionneuse dans laquelle l'image s'affiche qu'il te faut redimensionner dans les dimensions qui te conviennent

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

liste de noms par ordre alphabétique

Annuaire inversé liste rouge

Rajout de lien sur plusieurs pages

avoir la liste de tous les habitants d'une ville

Discussions similaires

Newsletters