Bonjour à tous
J'ai un truc bizarre, je dois faire un petit script VBS lancé depuis un Software en Command Line avec passage de paramètres. Rien de terrible... Sauf que !
C'est Acrobat qui me fait des misères, car en fait le petit script doit ouvrir un fichier PDF déterminé en fonction des Paramètres passé dans la ligne de commande. Et selon les versions d'Acrobat ça ne passe pas...
Ce qui me chiffonne le plus c'est que si je simplifie au max le code VBS converti en VBA depuis Excel ça fonctionne !
Exemple VBA :
Exemple VBS :
Et bien si sur une machine j'ai Adobe Acrobat 5 (Complet) les deux méthodes fonctionnent.... Mais si j'ai Adobe Acrobat 6 seul le code VBA fonctionne, le code VBS ne déclenche strictement rien... Je n'ai pas sous la main de PC équippé avec la Version 7, mais déjà je me pose des questions...
Bizarre, vous avez dit Bizarre..... Comme c'est Bizarre !
Si vous pouvez simplement tester... Merci d'avance
[ol]@+Thierry[/ol]
J'ai un truc bizarre, je dois faire un petit script VBS lancé depuis un Software en Command Line avec passage de paramètres. Rien de terrible... Sauf que !
C'est Acrobat qui me fait des misères, car en fait le petit script doit ouvrir un fichier PDF déterminé en fonction des Paramètres passé dans la ligne de commande. Et selon les versions d'Acrobat ça ne passe pas...
Ce qui me chiffonne le plus c'est que si je simplifie au max le code VBS converti en VBA depuis Excel ça fonctionne !
Exemple VBA :
Option Explicit
Sub OpeningPDFviaWSScript()
Dim PathPDF As String
Dim Fso As Object, She As Object
Set She = CreateObject('WScript.Shell')
Set Fso = CreateObject('Scripting.FileSystemObject')
PathPDF = 'i:\MC_Prod\CitiRep\cash\transac\10119999_2003-09-22_3326506414_C.PDF'
If Fso.FileExists(PathPDF) = False Then
MsgBox 'Fichier Non Existant.', 16, 'Impossible d'ouvrir'
Exit Sub
End If
She.Run PathPDF
End Sub
Exemple VBS :
Option Explicit
Dim PathPDF
Dim Fso, She
Set She = CreateObject('WScript.Shell')
Set Fso = CreateObject('Scripting.FileSystemObject')
PathPDF = 'i:\MC_Prod\CitiRep\cash\transac\10119999_2003-09-22_3326506414_C.PDF'
If Fso.FileExists(PathPDF) = False Then
MsgBox 'Fichier Non Existant.', 16, 'Impossible d'ouvrir'
wscript.Quit
End If
She.Run PathPDF
Et bien si sur une machine j'ai Adobe Acrobat 5 (Complet) les deux méthodes fonctionnent.... Mais si j'ai Adobe Acrobat 6 seul le code VBA fonctionne, le code VBS ne déclenche strictement rien... Je n'ai pas sous la main de PC équippé avec la Version 7, mais déjà je me pose des questions...
Bizarre, vous avez dit Bizarre..... Comme c'est Bizarre !
Si vous pouvez simplement tester... Merci d'avance
[ol]@+Thierry[/ol]