Discussion :

[ericdev67]

Bonjour,

J'ai environ 500 fiches (collection voitures) sous format Word.

Grace à DVP, j'ai réussi à copier/coller les informations (=champs) de toutes les fiches et les mettre sous format de tableau Excel. Dans la colonnes A, j'ai mis une "X", lorsque je clique dessus, cela déclenche un lien hypertexte vers la photo de la voiture.

Ma question est la suivante : y aurai-t-il un moyen pour qu'au lieu de cliquer, un simple passage sur la "X" ouvre et déclenche le lien hypertexte = au survol de la souris, l'image de la voiture s'affiche....

J'ai regardé avec attention le post de Maxval18 du mois de juillet, où le passage de la souris sur l'image, reproduisait cette image..... en fait, cela pourrait ressembler à ce je cherche ....sauf, qu'il faut un déclenchement du lien hypertexte...alors qu'avec le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes("TipText").Visible = True
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes("TipText").Visible = False
End Sub
Private Sub CommandButton1_Click()
Me.Shapes("TipText").Visible = False
End Sub
'The "Couche" en plus LOL......................
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim L As Byte, C As Byte
Me.Image1.Copy
    Randomize
    L = Int((30 * Rnd) + 1)
    C = Int((20 * Rnd) + 1)
Paste Destination:=ActiveSheet.Cells(L, C)
End Sub
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim LOL As OLEObject
For Each LOL In Me.OLEObjects
If LOL.progID = "Forms.Image.1" Then
    If LOL.Name <> "Image1" Then
    LOL.Delete
    End If
End If
Next LOL
End Sub
'@+Thierry 03/03/2005

, l'image est déjà existante dans la feuille.....

Je suis sur la bonne route ? ou alors une idée ?

merci,
A+

[mercatog]

Peut être avec un fichier exemple, je proposerai une variante de ce cas de figure.

[ericdev67]

Merci mercatog,

Le problème est que j'ai un fichier un fichier "Fiches", un fichier "Fiches PDF" (merci pour ton aide dans mon dernier post), un fichier "fiches HTML" (où se trouvent les photos= lien hypertexte)....donc mon "x" va chercher le lien dans le dossier "Fiches HTML"...

Et donc, je ne vois pas comment je peux envoyer sur ce post tous ces fichiers....et surtout que les liens fonctionnent...

Pour résumer, il faut que lorsque je passe la souris dessus le "x", le lien hypertexte se déclenche et affiche la photo.....

merci,

A+

[mercatog]

Tu parles assez sommairement comme si nous avons ton fichier sous les yeux. de quel x tu parles et de quel lien hypertext.

PS. Pas besoin de tes fichiers images, un simple fichier excel exemple pour avoir une idée de la disposition des information nécessaires.

[ericdev67]

Merci mercatog,

c'est vrai que c'était un peu flou...

En fait le "x" est positionné en colonne A, c'est une croix pour dire s'il y a une photo ou non, en cliquant sur cette croix, cela déclenche un lien hypertexte vers la photo de la voiture, lien du style "C:/Eric/Fichiers Html/nom du fichier_fichiers/001.jpg"

En colonne B, c'est le nom
En C, la marque
En D, le modèle,
en E, la couleur etc.....

Et donc chaque ligne correspond à une voiture différente...

Merci,
A+

[mercatog]

Bonjour
Une proposition.
Réserver la colonne A pour afficher les images et colonne B pour les cacher.
La colonne J pour les nom des fichiers images 001.jpg, image2.jpg...etc(Cette colonne peut être cachée)
Dans un module standard, écrire cette fonction en adaptant le chemin du dossier contenant les images

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function ShowPicture(ByVal Lig As Long, ByVal Vis As Boolean)
Dim Chemin As String, Fichier As String
 
Chemin = "C:\Documents and Settings\Administrateur\Bureau\MonChemin\" 'Adapte ici
With ActiveSheet
    On Error Resume Next
    .Shapes("LIMAGE").Delete
    On Error GoTo 0
    If Vis Then
        Fichier = .Range("J" & Lig).Value
        If Fichier <> "" Then
            Fichier = Chemin & Fichier
            If Dir(Fichier) <> "" Then .Shapes.AddPicture(Fichier, True, True, Range("G1").Left, Range("G" & Lig).Top, 200, 150).Name = "LIMAGE"
        End If
    End If
End With
End Function

En A2, écris cette formule et tire là vers le bas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SIERREUR(LIEN_HYPERTEXTE(Showpicture(LIGNE();COLONNE()=1);"X");"")

En B2, écris cette formule et tire là vers le bas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SIERREUR(LIEN_HYPERTEXTE(Showpicture(LIGNE();COLONNE()=1);"");"")

Le passage de la souris sur la colonne A affiche respectivement les images et sur la colonne B les supprime.