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
708

Statistiques des forums

Discussions
312 839
Messages
2 092 682
Membres
105 509
dernier inscrit
hamidvba