bonjour Bubble
pour le lien hypertexte je ne sais pas , mais sinon la macro ci dessous permet d'afficher l'image avec "l'apercu des images et des telecopies Windows"
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub afficherImage_ApercuWindows()
'testé avec Excel2002 et WinXP
'michelxld le 05.01.2005
'force l'affichage de l'image avec "L'aperçu des images et des télécopies windows".
Dim Img As String
Img = "C:\Documents and Settings\michel\dossier\general\LeChat.bmp" 'adapter le chemin
ShellExecute 0, "open", "rundll32.exe", "C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Img, 0, 1
End Sub
bonne soiree
MichelXld
