bonjour a tous
que manque t il dans la ligne "r=...."
j'ai le message"la methode run de l'object... a echoué
le N°erreur est 2147024894


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Sub test3()
Set WshShell = CreateObject("WScript.Shell")
r = WshShell.Run("C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe " & "C:\Users\polux\Desktop\exemple.pdf", 1, True)
End Sub