j'avais complètement oublié , merci du rafraichissement, en rajoutant des espaces pour que la syntaxe soit respectée :
Code : Tout sélectionner
RunProgram("cpdf.exe" ,"-stamp-under FACT_2017.pdf " + "-pos-left " + Chr(34) + " -10 10" + Chr(34) + " fact.PDF -o final.pdf","", #PB_Program_Open | #PB_Program_Wait | #PB_Program_Hide)
on peut imaginer passer le nom de la facture et le fichier de sortie en paramètres, le fond de page étant toujours le même, bon, ça ne fonctionne pas encore comme prévu mais tant qu'on avance y'a de l'espoir, je vais reprendre la doc concernant les procédures et les paramètres ....
Code : Tout sélectionner
EnableExplicit
Define File
Global fact$
Global result$
File = CreateFile(#PB_Any, "cpdf.exe")
If File
WriteData(File, ?cpdf, ?endcpdf - ?cpdf)
CloseFile(File)
Else
MessageRequester("Erreur", "Impossible d'écrire le fichier")
EndIf
Procedure genPDF(fact$, result$)
RunProgram("cpdf.exe" ,"-stamp-under FACT_2017.pdf " + "-pos-left " + Chr(34) + " -10 10" + Chr(34) +" "+ fact$ + " -o " + result$,"", #PB_Program_Open | #PB_Program_Wait | #PB_Program_Hide )
DeleteFile("cpdf.exe")
EndProcedure
genPDF(fact$, result$)
DataSection
cpdf:
IncludeBinary "cpdf.exe"
endcpdf:
même avec la doc je suis nul !!! ou alors je regarde pas au bon endroit , c'est rageant de bloquer sur es trucs simples comme ça ,
mon but est d'utiliser le fichier compilé et lui spécifier les fichiers à traiter . test.exe fichier1.pdf final.pdf => pas d'erreur mais pas de final.pdf généré...
j'ai refait mon code avec des gadgets et buttons qui me récupèrent les noms de fichiers dans des variables string, la procédure génère bien le fichier final ,