Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Soucis avec ouverture fichiers "Image" par lien Hypertexte

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
 

Discussions similaires

Réponses
8
Affichages
717
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…