Soucis avec ouverture fichiers "Image" par lien Hypertexte

  • Initiateur de la discussion Initiateur de la discussion IFFIC
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

IFFIC

XLDnaute Occasionnel
Bonsoir à tous qui passeront par là.
Et merci à ceux qui par leur aide, mon déjà tellement aidé.

Voici mon souci:

Dans un premier temps je crée les liens Hypertextes de la feuille "CHEMIN_COMPLET"

Dans un boucle (i)
Worksheets("CHEMIN_COMPLET").Hyperlinks.Add Anchor:=Cells(i, 1), _
Address:=Worksheets("CHEMIN_COMPLET").Cells(i, 1).Value


Et ensuite, j'ouvre par:


Private Sub ListView1_Click()

Dim FICHIER_A_OUVRIR As Integer

FICHIER_A_OUVRIR = ListView1.SelectedItem.Index

ActiveWorkbook.FollowHyperlink _
Address:=Worksheets("CHEMIN_COMPLET").Cells(FICHIER_A_OUVRIR + 1, 1), NewWindow:=True

End Sub

La majorité des fichiers s'ouvre bien; sauf les fichiers "Image"; (gif, jpg., bmp…et c.)

J'ai alors droit au Sablier dont je ne peux me sortir que par un "CTRL+ALT+SUP"

(A noter que certains fichiers "xls" s'ouvrent en arrière plan, mais là, avec un "Activate" ou "Sélect", je devrais m'en sortir)

De permettre une ouverture de ces fichiers "Image" est pour moi important pour aller plus loin.

Mais je patine TROP, et je quémande un peu d'aide.

Merci d'avance

IFFIC
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
1 K
Retour