Bonjour,
En excel97, je voudrais lancer un fichier pdf qui se trouve dans le même
répertoire que l'application.
Je me bats avec shell sans grand succès, voici le champ de bataille :
Function FichierExiste(filespec)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
FichierExiste = IIf(fso.FileExists(filespec), True, False)
End Function
Sub helpme()
fichier = ThisWorkbook.Path & "\help.pdf"
ch = "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe"
fichhelp = ch & " " & fichier
If FichierExiste(ch) Then MsgBox ("OK" & ch)
If FichierExiste(fichier) Then
R = Shell(ch & fichier)
Else
MsgBox ("Le fichier " & fichier & " n'existe pas")
End If
End Sub
De plus, acrobat.exe(programme associé) ne se trouve pas toujours dans le
même répertoire(en fonction des postes où l'application est utilisée).
Et-il obligatoire de mentionner le programme associé?
Quelques lignes de commande seront les bienvenues.
--
René Delcourt
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Tu devrais pouvoir trouver des infos ici http://www.excelabo.net/xl/sortir.php#wordoupdf et là aussi http://perso.wanadoo.fr/frederic.sigonneau/Systeme.htm
Cordialement Pascal
"René Delcourt" a écrit dans le message de news:
Bonjour, En excel97, je voudrais lancer un fichier pdf qui se trouve dans le même répertoire que l'application. Je me bats avec shell sans grand succès, voici le champ de bataille :
Function FichierExiste(filespec) Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") FichierExiste = IIf(fso.FileExists(filespec), True, False) End Function
Sub helpme() fichier = ThisWorkbook.Path & "help.pdf" ch = "C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" fichhelp = ch & " " & fichier If FichierExiste(ch) Then MsgBox ("OK" & ch) If FichierExiste(fichier) Then R = Shell(ch & fichier) Else MsgBox ("Le fichier " & fichier & " n'existe pas") End If End Sub
De plus, acrobat.exe(programme associé) ne se trouve pas toujours dans le même répertoire(en fonction des postes où l'application est utilisée). Et-il obligatoire de mentionner le programme associé? Quelques lignes de commande seront les bienvenues. -- René Delcourt
Bonjour
Tu devrais pouvoir trouver des infos ici
http://www.excelabo.net/xl/sortir.php#wordoupdf
et là aussi
http://perso.wanadoo.fr/frederic.sigonneau/Systeme.htm
Cordialement
Pascal
"René Delcourt" <RenDelcourt@discussions.microsoft.com> a écrit dans le
message de news: 53A49D98-9985-42EB-BCCB-C19135DE3A33@microsoft.com...
Bonjour,
En excel97, je voudrais lancer un fichier pdf qui se trouve dans le même
répertoire que l'application.
Je me bats avec shell sans grand succès, voici le champ de bataille :
Function FichierExiste(filespec)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
FichierExiste = IIf(fso.FileExists(filespec), True, False)
End Function
Sub helpme()
fichier = ThisWorkbook.Path & "help.pdf"
ch = "C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe"
fichhelp = ch & " " & fichier
If FichierExiste(ch) Then MsgBox ("OK" & ch)
If FichierExiste(fichier) Then
R = Shell(ch & fichier)
Else
MsgBox ("Le fichier " & fichier & " n'existe pas")
End If
End Sub
De plus, acrobat.exe(programme associé) ne se trouve pas toujours dans le
même répertoire(en fonction des postes où l'application est utilisée).
Et-il obligatoire de mentionner le programme associé?
Quelques lignes de commande seront les bienvenues.
--
René Delcourt
Bonjour Tu devrais pouvoir trouver des infos ici http://www.excelabo.net/xl/sortir.php#wordoupdf et là aussi http://perso.wanadoo.fr/frederic.sigonneau/Systeme.htm
Cordialement Pascal
"René Delcourt" a écrit dans le message de news:
Bonjour, En excel97, je voudrais lancer un fichier pdf qui se trouve dans le même répertoire que l'application. Je me bats avec shell sans grand succès, voici le champ de bataille :
Function FichierExiste(filespec) Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") FichierExiste = IIf(fso.FileExists(filespec), True, False) End Function
Sub helpme() fichier = ThisWorkbook.Path & "help.pdf" ch = "C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" fichhelp = ch & " " & fichier If FichierExiste(ch) Then MsgBox ("OK" & ch) If FichierExiste(fichier) Then R = Shell(ch & fichier) Else MsgBox ("Le fichier " & fichier & " n'existe pas") End If End Sub
De plus, acrobat.exe(programme associé) ne se trouve pas toujours dans le même répertoire(en fonction des postes où l'application est utilisée). Et-il obligatoire de mentionner le programme associé? Quelques lignes de commande seront les bienvenues. -- René Delcourt
René Delcourt
Merci pour le tuyau mais...APPwd doit devenir autre chose? Je suis en Escel97. Voici le code qui ne fonctionne pas :
Function FichierExiste(filespec) Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") FichierExiste = IIf(fso.FileExists(filespec), True, False) End Function
Sub helpme()
Dim appWD As acrobat.Application Set appWD = CreateObject("acrobat.Application") ' un objet Fichier = ThisWorkbook.Path & "help.pdf" If FichierExiste(Fichier) Then appWD.Documents.Open FileName:=Fichier appWD.Quit ' je quitte Word Else MsgBox ("Le fichier " & Fichier & " n'existe pas") End If End Sub
Bonjour Tu devrais pouvoir trouver des infos ici http://www.excelabo.net/xl/sortir.php#wordoupdf et là aussi http://perso.wanadoo.fr/frederic.sigonneau/Systeme.htm
Cordialement Pascal
"René Delcourt" a écrit dans le message de news:
Bonjour, En excel97, je voudrais lancer un fichier pdf qui se trouve dans le même répertoire que l'application. Je me bats avec shell sans grand succès, voici le champ de bataille :
Function FichierExiste(filespec) Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") FichierExiste = IIf(fso.FileExists(filespec), True, False) End Function
Sub helpme() fichier = ThisWorkbook.Path & "help.pdf" ch = "C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" fichhelp = ch & " " & fichier If FichierExiste(ch) Then MsgBox ("OK" & ch) If FichierExiste(fichier) Then R = Shell(ch & fichier) Else MsgBox ("Le fichier " & fichier & " n'existe pas") End If End Sub
De plus, acrobat.exe(programme associé) ne se trouve pas toujours dans le même répertoire(en fonction des postes où l'application est utilisée). Et-il obligatoire de mentionner le programme associé? Quelques lignes de commande seront les bienvenues. -- René Delcourt
Merci pour le tuyau mais...APPwd doit devenir autre chose? Je suis en Escel97.
Voici le code qui ne fonctionne pas :
Function FichierExiste(filespec)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
FichierExiste = IIf(fso.FileExists(filespec), True, False)
End Function
Sub helpme()
Dim appWD As acrobat.Application
Set appWD = CreateObject("acrobat.Application") ' un objet
Fichier = ThisWorkbook.Path & "help.pdf"
If FichierExiste(Fichier) Then
appWD.Documents.Open FileName:=Fichier
appWD.Quit ' je quitte Word
Else
MsgBox ("Le fichier " & Fichier & " n'existe pas")
End If
End Sub
Bonjour
Tu devrais pouvoir trouver des infos ici
http://www.excelabo.net/xl/sortir.php#wordoupdf
et là aussi
http://perso.wanadoo.fr/frederic.sigonneau/Systeme.htm
Cordialement
Pascal
"René Delcourt" <RenDelcourt@discussions.microsoft.com> a écrit dans le
message de news: 53A49D98-9985-42EB-BCCB-C19135DE3A33@microsoft.com...
Bonjour,
En excel97, je voudrais lancer un fichier pdf qui se trouve dans le même
répertoire que l'application.
Je me bats avec shell sans grand succès, voici le champ de bataille :
Function FichierExiste(filespec)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
FichierExiste = IIf(fso.FileExists(filespec), True, False)
End Function
Sub helpme()
fichier = ThisWorkbook.Path & "help.pdf"
ch = "C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe"
fichhelp = ch & " " & fichier
If FichierExiste(ch) Then MsgBox ("OK" & ch)
If FichierExiste(fichier) Then
R = Shell(ch & fichier)
Else
MsgBox ("Le fichier " & fichier & " n'existe pas")
End If
End Sub
De plus, acrobat.exe(programme associé) ne se trouve pas toujours dans le
même répertoire(en fonction des postes où l'application est utilisée).
Et-il obligatoire de mentionner le programme associé?
Quelques lignes de commande seront les bienvenues.
--
René Delcourt
Merci pour le tuyau mais...APPwd doit devenir autre chose? Je suis en Escel97. Voici le code qui ne fonctionne pas :
Function FichierExiste(filespec) Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") FichierExiste = IIf(fso.FileExists(filespec), True, False) End Function
Sub helpme()
Dim appWD As acrobat.Application Set appWD = CreateObject("acrobat.Application") ' un objet Fichier = ThisWorkbook.Path & "help.pdf" If FichierExiste(Fichier) Then appWD.Documents.Open FileName:=Fichier appWD.Quit ' je quitte Word Else MsgBox ("Le fichier " & Fichier & " n'existe pas") End If End Sub
Bonjour Tu devrais pouvoir trouver des infos ici http://www.excelabo.net/xl/sortir.php#wordoupdf et là aussi http://perso.wanadoo.fr/frederic.sigonneau/Systeme.htm
Cordialement Pascal
"René Delcourt" a écrit dans le message de news:
Bonjour, En excel97, je voudrais lancer un fichier pdf qui se trouve dans le même répertoire que l'application. Je me bats avec shell sans grand succès, voici le champ de bataille :
Function FichierExiste(filespec) Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") FichierExiste = IIf(fso.FileExists(filespec), True, False) End Function
Sub helpme() fichier = ThisWorkbook.Path & "help.pdf" ch = "C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe" fichhelp = ch & " " & fichier If FichierExiste(ch) Then MsgBox ("OK" & ch) If FichierExiste(fichier) Then R = Shell(ch & fichier) Else MsgBox ("Le fichier " & fichier & " n'existe pas") End If End Sub
De plus, acrobat.exe(programme associé) ne se trouve pas toujours dans le même répertoire(en fonction des postes où l'application est utilisée). Et-il obligatoire de mentionner le programme associé? Quelques lignes de commande seront les bienvenues. -- René Delcourt
