kiki29 | a toi de choisir
dans un Module
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
|
dans ThisWorkbook
Sub ShellExecuteOuvrir()
Dim fich as String
fich = "C:\Transfert\Essai.pdf"
ShellExecute 0, "open", fich, "", "", 0
End Sub
Sub ShellOuvrir
Shell """C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe"" ""C:\Transfert\Essai.pdf""", vbMaximizedFocus
End Sub
|
Message édité par kiki29 le 17-07-2007 à 16:02:26
|
