bonsoir Dodo , bonsoir Eric
après la solution d'Eric , une deuxime proposition :
tu peux tester cette macro , pour ouvrir les images avec "L'aperçu des images et des télécopies 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
'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\general\LeChat.bmp" 'adapter le chemin
ShellExecute 0, "open", "rundll32.exe", "C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen " & Img, 0, 1
End Sub
bonne soirée
MichelXld