[developpez.com] Script avec PDF créator

Salut Sacha    et merci bien pour cette contribution c'est trop
Néanmoins, je voudrais faire un Vbscript qui va utiliser 2 paramètres qui sont le InputFile et le OutputFile, or dans ton application en ligne de commandes, on peut passer juste un seul paramètre qui est le InputFile, donc ce n'est pas trop flexible, tu vois ce que je veux dire   
Donc, si c'est possible, et si tu trouve le temps bien sûr, a nous faire une autre version avec 2 paramètres (le 1er est obligatoire, et le 2ème peut-être Optionnel)
Donc si le 2ème paramètre est omis (OutputFile) , alors le fichier de sortie aura comme nom par défaut [NomdufichierInput_Modified]
Merci encore une autre fois  
Donc avec ce vbscript qui parcours un dossier et qui sélectionne que les fichiers avec l'extension .PDF
le fichier SortiePDF est écrasé à chaque fois    ce qui n'est pas pratique dans ce cas d'un traitement par lot.

Code:

Dim fso,ext
Set fso = CreateObject("Scripting.FileSystemObject")
For each ifname in FSO.GetFolder(Parcourir_Dossier()).Files
ext = fso.GetExtensionName(ifname)
 ext = lcase(ext)
 If ext = "pdf" Then
 'MsgBox ifname.Name
 Call AddHeader2PDF(ifname.Name,ifname)
 end if
Next
MsgBox "Terminé !"
'****************************************************************************************************
Function Parcourir_Dossier()
 Dim objShell,objFolder
 Set objShell = CreateObject("Shell.Application")
 Set objFolder = objShell.BrowseForFolder(0, "Veuillez choisir un dossier pour ajouter le nom du fichier dans les entêtes PDF  ",1,"c:\Programs")
 If objFolder Is Nothing Then
 Wscript.Quit
 End If
 Parcourir_Dossier = objFolder.self.path
end Function
'****************************************************************************************************
Sub AddHeader2PDF(Header,InputFile)',OutPutFile)
 Dim fso,AddHeader,MyCmd
 AddHeader = "AddTextToPDFFile.exe"
 Set fso = CreateObject("Scripting.FileSystemObject")
 if fso.FileExists(AddHeader) Then
 MyCmd = AddHeader & " " & DblQuote(Header) & " " & DblQuote(InputFile)' DblQuote(OuputFile)
 'msgbox MyCmd
 Call Executer(MyCmd,0)
 Else
 MsgBox "Check if the file " & AddHeader & " Exists !",VbCritical,"Check if the file " & AddHeader & " Exists !"
 Wscript.Quit
 end if
End Sub
'************************************************************************************
Function Executer(StrCmd,Console)
 Dim ws,MyCmd,Resultat
 Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS
 If Console = 0 Then
 MyCmd = "CMD /C " & StrCmd & ""
 Resultat = ws.run(MyCmd,Console,True)
 If Resultat = 0 Then
'MsgBox "Success"
 Else
 MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
 End If
 End If
'La valeur 1 pour montrer la console MS-DOS
 If Console = 1 Then
 MyCmd = "CMD /K " & StrCmd & ""
 Resultat = ws.run(MyCmd,Console,False)
 If Resultat = 0 Then
'MsgBox "Success"
 Else
 MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
 End If
 End If
 Executer = Resultat
End Function
'****************************************************************************************************
Function DblQuote(Str)
 DblQuote = Chr(34) & Str & Chr(34)
End Function
'************************************************************************************************

Tes désirs son des ordres Hackoo :   

http://www.developpez.net/forums/d1431043/autres-langages/general-visual-basic-6-vbscript/vbscript/script-pdf-creator/#post7781879

Prochaine version de PDF_ADD_ON 1.0.1  Bêta avec  option pour :

- couleur du texte
- Position en X du texte
- Position en Y du texte
- Font du texte
- Taille du font
- Transparence du texte
- Rotation du texte

Ensuite on s'attaquera aux extractions......