Ouvrir visionneuse pour afficher photo

Bonjour,

Est-il possible qu'en d'ouvrir la visionneuse photo afficher une photo en vba ?

Bonjour,

A ma connaissance .. ce n'est pas possible ...

car Excel Viewer n'a pas d'inteface VBA ...

Mais Excel avec VBA peut le faire ...

Bonjour,

En VBA avec le programme par défaut (avec API Windows) :

Declare Function ShellExecute _
        Lib "shell32.dll" _
        Alias "ShellExecuteA" ( _
        ByVal hWnd As Long, _
        ByVal lpszOp As String, _
        ByVal lpszFile As String, _
        ByVal lpszParams As String, _
        ByVal lpszDir As String, _
        ByVal FsShowCmd As Long) As Long

Declare Function FindWindow _
        Lib "user32" _
        Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long

Sub Test()

    Dim Fichier As String

    Fichier = "D:\Dossier\Sous Dossier\Ma photo.jpg"

    ShellExecute FindWindow("", Application.Caption), "Open", Fichier, "", "", 1

End Sub

Merci beaucoup Theze, ça fonctionne parfaitement.

Bonjour,

Content de t'avoir aidé

Bonjour,

Pour celui qui se poserait la question de pourquoi ça ne fonctionne pas sur une machine 64bit, il faut changer comme ceci :

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hWnd As Long, _
        ByVal lpszOp As String, _
        ByVal lpszFile As String, _
        ByVal lpszParams As String, _
        ByVal lpszDir As String, _
        ByVal FsShowCmd As Long) As Long

Private Declare PtrSafe Function FindWindow _
        Lib "user32" _
        Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long

A +