excel + PdfTK + fichier ".bat" = peut être ma solution ...

Le
Alfred WALLACE
Bonjour,
il y a quelques semaines, j'étais venu consulter
les "oracles" et autres gurus bienveillants , mais,
sans solutions possibles
dépuis j'ai continuer à chercher, et je revien avec
un début de solution, mais sans pouvoir la mêtre en oeuvre
car je ne sais pas faire certaines choses..

le problème :
j'ai un documents (de X pages) que je veux imprimer
en Y exemplaires (un exemplaire par responsable).
Je voulais inserer en filigrane le nom de chaque responsable
pour chaque pages de chaque exemplaire.

j'ai trouvé l'outil PDFtK (http://www.pdflabs.com/docs/pdftk-man-
page/)
en licence libre (GPL) qui permet par ligne
de commande, d'inserer à un document en PDF, un
filigrane, issu d'un autre document pdf.

exemple en ligne de commande, si je tape

pdftk document.pdf stamp filigrane.pdf output resultat.pdf


en resultat j'aurai le filigrane dans le fichier "resultat.pdf"

ce que j'aimerai donc faire, c'est créer un fichier batch
dont "document.pdf" est en A1
et ensuite à partir de A2 j'ai une serie de noms
représentant les filigranes.

le fichier bat devrait ressembler à çà

pdftk document.pdf stamp toto.pdf output resultat-toto.pdf
pdftk document.pdf stamp tutu.pdf output resultat-tutu.pdf
pdftk document.pdf stamp titi.pdf output resultat-titi.pdf
pdftk document.pdf stamp tata.pdf output resultat-tata.pdf

il me suffit ensuite de lancer le batch, et le tour est joué !

Pourriez vous m'aider à créer ce fichier texte batch ?

Merci beaucoup.

José
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacquouille
Le #23443181
Bonjour Alfred

Je suis totalement incapable de répondre à ton problème, mais, s'il n'y a
pas trop de responsables (in fine = nb d'exemplaires), tu pourrais faire un
exemplaire à la fois, en mettant le nom du responsable en en-tête ou en bas
de page .....

Jacquouille, la débrouille ....-)

" Le vin est au repas ce que le parfum est à la femme."


"Alfred WALLACE" a écrit dans le message de groupe de discussion :


Bonjour,

le problème :
j'ai un documents (de X pages) que je veux imprimer
en Y exemplaires (un exemplaire par responsable).
Je voulais inserer en filigrane le nom de chaque responsable
pour chaque pages de chaque exemplaire.
Alfred WALLACE
Le #23443431
Bonsoir Jacquouille !

ben en fait, mon problème se résume a faire créer
un fichier texte à excel et à enregistrer dans ce
fichier texte les valeurs :

pdftk document.pdf stamp toto.pdf output resultat-toto.pdf
pdftk document.pdf stamp tutu.pdf output resultat-tutu.pdf
pdftk document.pdf stamp titi.pdf output resultat-titi.pdf
pdftk document.pdf stamp tata.pdf output resultat-tata.pdf

puis fermer ce fichier et le renommer en ".bat" pour pouvoir le
lancer.

en gros c'est ce que je veux faire.

Merci en tout cas pour ta réponse.

José





On 9 juin, 15:34, "Jacquouille"
Bonjour Alfred

Je suis totalement incapable de répondre à ton problème, mais, s'il n'y a
pas trop de responsables (in fine = nb d'exemplaires), tu pourrais fair e un
exemplaire à la fois, en mettant le nom du responsable en en-tête ou en bas
de page .....

Jacquouille, la débrouille ....-)

" Le vin est au repas ce que le parfum est à la femme."

"Alfred WALLACE"  a écrit dans le message de groupe de discussion :


Bonjour,

le problème :
j'ai un documents (de X pages) que je veux imprimer
en Y exemplaires (un exemplaire par responsable).
Je voulais inserer en filigrane le nom de chaque responsable
pour chaque pages de chaque exemplaire.
ThierryP
Le #23443631
Bonsoir José,

Quelque chose comme ça devrait faire l'affaire :
Sub test()
Num = FreeFile
fichier = ActiveWorkbook.Path & "Batch du " & _
Format(Date, "dd-mm-yy") & " " & Format(Time, "hh-mm-ss") & ".bat"
Open fichier For Append As #Num
Nom_doc = [A1]
Range("A2").Select
While ActiveCell <> ""
data = "pdftk " & [A1] & " stamp " & ActiveCell & ".pdf output
resultat_" & ActiveCell & ".pdf"
Print #Num, data
ActiveCell.Offset(1, 0).Select
Wend
Close #Num
End Sub

Tu devrais également pouvoir le faire directement en VBA en utilisant
la commande "Shell" : shell(data). Il faudra peut-être que tu donnes
les chemins complets du logiciel et des arguments mais ça doit se
faire !

ThierryP

On 9 juin, 12:48, Alfred WALLACE
Bonjour,
il y a quelques semaines, j'étais venu consulter
les "oracles" et autres gurus bienveillants , mais,
sans solutions possibles...
dépuis j'ai continuer à chercher, et je revien avec
un début de solution, mais sans pouvoir la mêtre en oeuvre
car je ne sais pas faire certaines choses.....

le problème :
j'ai un documents (de X pages) que je veux imprimer
en Y exemplaires (un exemplaire par responsable).
Je voulais inserer en filigrane le nom de chaque responsable
pour chaque pages de chaque exemplaire.

j'ai trouvé l'outil PDFtK (http://www.pdflabs.com/docs/pdftk-man-
page/)
en licence libre (GPL) qui permet par ligne
de commande, d'inserer à un document en PDF, un
filigrane, issu d'un autre document pdf.

exemple en ligne de commande, si je tape

pdftk document.pdf stamp filigrane.pdf output resultat.pdf

en resultat j'aurai le filigrane dans le fichier "resultat.pdf"

ce que j'aimerai donc faire, c'est créer un fichier batch
dont "document.pdf" est en A1
et ensuite à partir de A2 j'ai une serie de noms
représentant les filigranes.

le fichier bat devrait ressembler à çà

pdftk document.pdf stamp toto.pdf output resultat-toto.pdf
pdftk document.pdf stamp tutu.pdf output resultat-tutu.pdf
pdftk document.pdf stamp titi.pdf output resultat-titi.pdf
pdftk document.pdf stamp tata.pdf output resultat-tata.pdf

il me suffit ensuite de lancer le batch, et le tour est joué !

Pourriez vous m'aider à créer ce fichier texte batch ?

Merci beaucoup.

José
Alfred WALLACE
Le #23463961
Bonjour ThierryP,
je suis vraiment désolé, j'ai oublié de te remercier
pour tes explications/code !

Je vais tester avec d'ailleurs plutot la solution shell.

merci beaucoup

José





On 9 juin, 17:57, ThierryP
Bonsoir José,

Quelque chose comme ça devrait faire l'affaire :
Sub test()
Num = FreeFile
fichier = ActiveWorkbook.Path & "Batch du " & _
Format(Date, "dd-mm-yy") & " " & Format(Time, "hh-mm-ss") & ".bat"
Open fichier For Append As #Num
Nom_doc = [A1]
Range("A2").Select
While ActiveCell <> ""
    data = "pdftk " & [A1] & " stamp " & ActiveCell & ".pdf output
resultat_" & ActiveCell & ".pdf"
    Print #Num, data
    ActiveCell.Offset(1, 0).Select
Wend
Close #Num
End Sub

Tu devrais également pouvoir le faire directement en VBA en utilisant
la commande "Shell" : shell(data). Il faudra peut-être que tu donnes
les chemins complets du logiciel et des arguments mais ça doit se
faire !

ThierryP

On 9 juin, 12:48, Alfred WALLACE






> Bonjour,
> il y a quelques semaines, j'étais venu consulter
> les "oracles" et autres gurus bienveillants , mais,
> sans solutions possibles...
> dépuis j'ai continuer à chercher, et je revien avec
> un début de solution, mais sans pouvoir la mêtre en oeuvre
> car je ne sais pas faire certaines choses.....

> le problème :
> j'ai un documents (de X pages) que je veux imprimer
> en Y exemplaires (un exemplaire par responsable).
> Je voulais inserer en filigrane le nom de chaque responsable
> pour chaque pages de chaque exemplaire.

> j'ai trouvé l'outil PDFtK (http://www.pdflabs.com/docs/pdftk-man-
> page/)
> en licence libre (GPL) qui permet par ligne
> de commande, d'inserer à un document en PDF, un
> filigrane, issu d'un autre document pdf.

> exemple en ligne de commande, si je tape

> pdftk document.pdf stamp filigrane.pdf output resultat.pdf

> en resultat j'aurai le filigrane dans le fichier "resultat.pdf"

> ce que j'aimerai donc faire, c'est créer un fichier batch
> dont "document.pdf" est en A1
> et ensuite à partir de A2 j'ai une serie de noms
> représentant les filigranes.

> le fichier bat devrait ressembler à çà

> pdftk document.pdf stamp toto.pdf output resultat-toto.pdf
> pdftk document.pdf stamp tutu.pdf output resultat-tutu.pdf
> pdftk document.pdf stamp titi.pdf output resultat-titi.pdf
> pdftk document.pdf stamp tata.pdf output resultat-tata.pdf

> il me suffit ensuite de lancer le batch, et le tour est joué !

> Pourriez vous m'aider à créer ce fichier texte batch ?

> Merci beaucoup.

> José
Publicité
Poster une réponse
Anonyme