excel et fichier *.bmp

[dodo]

Bonjour,

j'ai crée des fonctions "lien_hypertexte" pour visualiser depuis excel des fichiers images.

Je souhaite que les images soient ouvertes avec "aperçu des images et des télécopies windows".
Cela ne pose pas de problème avec les images au format tif ou jpg. Par contre les images au format bmp sont ouvertes systématiquement avec MSPAINT et cela ne me convient pas.

Quelqu'un aurait il une solution à ma proposer ?

Merci par avance

 

[EricS]

Bonsoir, cest au niveau du pc que le bmp est ouvert par paint par défaut

tu peux toujours sélectionner un fichier bmp (explorateur), clic droit- ouvrir avec -choisir le programme-sélectionner dans une liste- choisir l'appli qui ouvre et cocher toujours ouvrir par défaut

A+

Eric

 

[michel]

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