script PDFCreator

Question

Bonjour, Je suis actuellement en stage dans un cabinet comptable, et je viens d'installer PDFCreator. Je remarque que l'on peut lui faire executer des scripts après l'enregistrement(action après l'enregistrement).

Je crois que c'est codé en VBscript mais je ne suis pas sur. Exemple qui ouvre un popup

' PopUpMessage script
' Part of PDFCreator
' License: GPL
' Homepage: http://www.sf.net/projects/pdfcreator
' Version: 1.1.0.0
' Date: September, 1. 2005
' Author: Frank Heindörfer

Option Explicit

Const AppTitle = "PDFCreator - PopUpMessage"
Const SecondsToWait = 5

Dim objArgs, WshShell

Set objArgs = WScript.Arguments

If objArgs.Count = 0 Then
 MsgBox "This script needs a parameter!", vbExclamation, AppTitle
 WScript.Quit
End If

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Popup "Le pdf à été crée" & vbcrlf & vbcrlf & _
 "Filename:" & vbtab & vbtab & objArgs(0) & vbcrlf, SecondsToWait, AppTitle, 0

J'aimerais pouvoir ouvrir une MsgBox qui me propose d'effacer le fichier original (.doc)

Quelqu'un peut-il m'aider ? Je commence à désespérer !! Merci beaucoup

mortalino · Answer

Salut,

je ne fais pas de vbscript, cependant je me permet de remettre en forme ton code, car c'est difficilement lisible :

Option Explicit

Const AppTitle = "PDFCreator - PopUpMessage"
Const SecondsToWait = 5

Dim objArgs, WshShell
Set objArgs = WScript.Arguments

If objArgs.Count = 0 Then
    MsgBox "This script needs a parameter!", vbExclamation, AppTitle     WScript.Quit
End If

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Popup "Le pdf à été crée" & vbcrlf & vbcrlf & _ "Filename:" & vbtab & vbtab & objArgs(0) & vbcrlf, SecondsToWait, AppTitle, 0

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

e040098k · Answer

Merci beaucoup mortalino

e040098k · Answer

J'ai avancÃ© un peu dans mon initiation a VB script, je cherche toujours Ã supprimer un fichier aprÃ¨s la crÃ©ation d'un pdf. J'ai rÃ©ussi Ã programmer ma MsgBox mais lorsque j'Ã©xÃ©cute mon scrip, le fichier n'est pas supprimer ! Quelqu'un sait-il rÃ©soudre mon problÃ¨me ? voila mon code (dÃ©solÃ© pour la mise en page je pense que cela viens d'opÃ©ra) : Option Explicit Const AppTitle = "PDFCreator - MSAgent" Const TextToSpeech = "Le fichier pdf Ã Ã©tÃ© crÃ©Ã© ! Pensez Ã supprimer le fichier original" Const AgentName = "Merlin" Dim objAgent, objCharacter, c, HideID, LastID LastID = 0 On Error Resume Next Set objAgent = CreateObject("Agent.Control.2") If Err.Number <> 0 Then MsgBox "This script needs MS SAPI runtime." & vbcrlf & vbcrlf & _ "For more informations use this link." & vbcrlf & _ "http://www.microsoft.com/MSAGENT/downloads/user.asp#sapi" & vbcrlf & vbcrlf & _ Err.Number & " " & Err.Description, vbCritical, AppTitle WScript.Quit End If WScript.ConnectObject objAgent, "Agent_" objAgent.Connected = TRUE objAgent.Characters.Load AgentName, AgentName & ".acs" If Err.Number <> 0 Then MsgBox "Try to load the agent character file: " & AgentName & ".acs" & vbcrlf & vbcrlf & _ "For more informations use this link." & vbcrlf & _ "http://www.microsoft.com/MSAGENT/downloads/user.asp#character" & vbcrlf & vbcrlf & _ Err.Number & " " & Err.Description, vbCritical, AppTitle WScript.Quit End If Set objCharacter = objAgent.Characters.Character(AgentName) With objCharacter .Show .LanguageID = &H0409 ' English .Play "GetAttention" .Speak TextToSpeech Set HideID = .Hide End With c = 150 ' Don't wait more than 15 seconds Do While (c > 0) and (LastID <> HideID) c = c -1 Wscript.Sleep 100 Loop Public Sub Agent_RequestComplete(ByVal Request) LastID = Request If MsgBox("Voulez vous supprimer le fichier source ?",vbQuestion + vbYesNo + vbSystemModal + 0,"Suppression du fichier source") = vbYes Then 'dÃ©claration file system object Dim fso 'instanciation Set FSO = CreateObject("Scripting.FileSystemObject") 'Suppression du fichier Set Ftxt = fso.GetFile("C:\Documents and Settings\stagiaire1\Bureau\Nouveau_Document_texte.txt") 'Fichier origine Ftxt.delete Else Wscript.Quit End if End Sub

e040098k · Answer

Pour terminer mon petit script, je doit récupérer le nom du fichier pdf que j'ai créer (monfichier.pdf) afin de d'avoir le nom du fichier source (monfichier.doc).

J'ai réussi à retrouver ce nom grace à objArgs. Mais cela ne me permet que de l'afficher dans une MsgBox, je n'arrive pas à le réutiliser dans la routine de suppression ! Il me faut récupérer le nom du fichier auquel je concaterais ".doc"

Merci pour votre aide !!

Code :
Option Explicit
'déclaration file system object
Dim fso
Dim Ftxt
        Dim objArgs, WshShell
 
Set objArgs = WScript.Arguments
 
If objArgs.Count = 0 Then
 MsgBox "This script needs a parameter!", vbExclamation
 WScript.Quit
End If
 
Set WshShell = WScript.CreateObject("WScript.Shell")
 
WshShell.Popup "Le pdf à été crée" & vbcrlf & vbcrlf & _
 "Filename:" & vbtab & objArgs(0) & vbcrlf, 0
 
If MsgBox("Voulez vous supprimer le fichier source ?",vbQuestion + vbYesNo + vbSystemModal + 0,"Suppression du fichier source") = vbYes Then
 
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
'Suppression du fichier
Set Ftxt = fso.GetFile("C:\Documents and Settings\stagiaire1\Bureau\Nouveau Document texte.txt") 'Fichier origine
Ftxt.delete
Else Wscript.Quit
End if

Script PDFCreator

4 réponses

Votre réponse

Discussions similaires