en fait à partir d'un userform et d'un répertoire où sont présentes des photo
j'aimerai savoir si c'est possible de lancer le diaporama de windows (à partir du userform)
su tu utilises Windows XP , cet exemple permet d'afficher l'apercu des images et telecopies de 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'
ShellExecute 0, 'open', 'rundll32.exe', 'C:\\\\\\\\WINDOWS\\\\\\\\System32\\\\\\\\shimgvw.dll,ImageView_Fullscreen ' & Img, 0, 1
End Sub