Sub ouvrPDF() retShell = Shell("C:Program FilesAdobeAcrobat 6.0ReaderAcroRd32.exe C:toto.pdf") End Sub
salutations
RGI
Bonjour Comment ouvrir X.pdf avec une macro ? Merci M41
Daniel.j
Bonjour Comme cela par exemple: Private 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 Private Const SW_SHOWNORMAL As Long = 1
Sub testpdf() ShellExecute hwnd, "open", "C:x.pdf", vbNullString, vbNullString, SW_SHOWNORMAL End Sub
Daniel FAQ MPFE FAQ du forum microsoft.public.fr.excel http://dj.joss.free.fr/faq.htm
"M41" a écrit dans le message de news: 44b8b48b$0$897$
Bonjour Comment ouvrir X.pdf avec une macro ? Merci M41
Bonjour
Comme cela par exemple:
Private 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
Private Const SW_SHOWNORMAL As Long = 1
Sub testpdf()
ShellExecute hwnd, "open", "C:x.pdf", vbNullString, vbNullString,
SW_SHOWNORMAL
End Sub
Daniel
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm
"M41" <boomerang.pro00@wanadoo.fr> a écrit dans le message de news:
44b8b48b$0$897$ba4acef3@news.orange.fr...
Bonjour
Comment ouvrir X.pdf avec une macro ?
Merci
M41
Bonjour Comme cela par exemple: Private 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 Private Const SW_SHOWNORMAL As Long = 1
Sub testpdf() ShellExecute hwnd, "open", "C:x.pdf", vbNullString, vbNullString, SW_SHOWNORMAL End Sub
Daniel FAQ MPFE FAQ du forum microsoft.public.fr.excel http://dj.joss.free.fr/faq.htm
"M41" a écrit dans le message de news: 44b8b48b$0$897$
Bonjour Comment ouvrir X.pdf avec une macro ? Merci M41
RGI
ou encore
ThisWorkbook.FollowHyperlink "c:toto.pdf", , True
salutations
RGI
Bonjour
est-ce que cela répond à la question ?
Sub ouvrPDF() retShell = Shell("C:Program FilesAdobeAcrobat 6.0ReaderAcroRd32.exe C:toto.pdf") End Sub
salutations
RGI
Bonjour Comment ouvrir X.pdf avec une macro ? Merci M41
ou encore
ThisWorkbook.FollowHyperlink "c:toto.pdf", , True
salutations
RGI
Bonjour
est-ce que cela répond à la question ?
Sub ouvrPDF()
retShell = Shell("C:Program FilesAdobeAcrobat
6.0ReaderAcroRd32.exe C:toto.pdf")
End Sub
salutations
RGI
Bonjour
Comment ouvrir X.pdf avec une macro ?
Merci
M41
Sub ouvrPDF() Shell "cmd /c c:classeur9.pdf" End Sub
Cordialement, -- AP
"M41" a écrit dans le message de news: 44b8b48b$0$897$
Bonjour Comment ouvrir X.pdf avec une macro ? Merci M41
M41
Merci mais ne manque t il pas qq chose à la fin de la ligne après .exe ? M41 "RGI" a écrit dans le message de news: %23wXA3O$
Bonjour
est-ce que cela répond à la question ?
Sub ouvrPDF() retShell = Shell("C:Program FilesAdobeAcrobat 6.0ReaderAcroRd32.exe C:toto.pdf") End Sub
salutations
RGI
Bonjour Comment ouvrir X.pdf avec une macro ? Merci M41
Merci
mais ne manque t il pas qq chose à la fin de la ligne après .exe ?
M41
"RGI" <nospam.gilbert@discussions.microsoft.com> a écrit dans le message de
news: %23wXA3O$pGHA.4932@TK2MSFTNGP05.phx.gbl...
Bonjour
est-ce que cela répond à la question ?
Sub ouvrPDF()
retShell = Shell("C:Program FilesAdobeAcrobat 6.0ReaderAcroRd32.exe
C:toto.pdf")
End Sub
salutations
RGI
Bonjour
Comment ouvrir X.pdf avec une macro ?
Merci
M41
