Visualisation fichier lié hypertexte lors survol souris

[erics83]

Bonjour,

Suite à un précédent post, mapomme (encore merci !) a expliqué comment créer rapidement un lien hypertexte vers un fichier. Pour rappel, c'est un classeur qui contient une liste de lieux par département, le code de mapomme permettant de faire un lien vers la fiche "signalitique" du lieux.

Est-il possible, au passage de la souris, d'ouvrir et/ou d'avoir un aperçu de la fiche liée ? (évite de devoir ouvrir le fichier complètement).

Les fiches sont majoritairement des pdf.

Il me semble qu'avec les images, c'est possible, mais avec les fiches....?

Une petite piste/aide ?

En vous remerciant par avance,

 

[erics83]

Re : Visualisation fichier lié hypertexte lors survol souris

Ah non, pas "un p'tit coup", un GRAND coup !!!

Merci job75, c'est exactement ce que j'espérait !!!! C'est parfait !!!

Tout fonctionne, il me reste à adapter "mon usine à gaz" lol, mais mes plus gros problèmes sont résolus, grace à vous, MERCI !!!

A+ pour de prochaines aventures.....

merci,
Eric

 

[job75]

Re : Visualisation fichier lié hypertexte lors survol souris

Re,

Je viens de modifier le post #30 pour ne lister que les fichiers PDF.

A+

 

[erics83]

Re : Visualisation fichier lié hypertexte lors survol souris

Super Merci job75,

Effectivement, c'est plus lisible.

Merci pour votre aide,
A+

 

[job75]

Re : Visualisation fichier lié hypertexte lors survol souris

Re,

Je reviens sur le code du 1er USF.

Pour éliminer les liens déjà créés le Dictionary est bien plus rapide :

Private Sub UserForm_Initialize()
Dim d As Object, h As Hyperlink, n&
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = Dir(chemin & "*.*")
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
If Not ActiveSheet.Hyperlinks Is Nothing Then
  For Each h In ActiveSheet.Hyperlinks 'liste les adresses
    If h.Parent.Column = 3 Then _
    d(IIf(InStr(h.Address, "\"), "", ThisWorkbook.Path & "\") & h.Address) = ""
  Next
End If
While fichier <> ""
  If Not d.exists(chemin & fichier) Then ListBox1.AddItem fichier: n = n + 1
  fichier = Dir
Wend
Label1 = n & " fichier(s)"
Me.Width = 214
End Sub

Fichier (3).

Edit : fichier (3 bis) avec la liste de tous les fichiers créés, PDF ou autres.

J'ai mis la propriété StartUpPosition des 2 USF sur Manual (position en haut à gauche).

A+