Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" a écrit dans le message de news:merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la proc
savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreator :
oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" <vaderetrosp@mas> a écrit dans le message de news:
elC6Na77HHA.464@TK2MSFTNGP02.phx.gbl...
merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la proc
savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreator :
oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: ex6I5N67HHA.396@TK2MSFTNGP06.phx.gbl...
Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23aawSM67HHA.1208@TK2MSFTNGP05.phx.gbl...
re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: uYEtJs57HHA.536@TK2MSFTNGP06.phx.gbl...
Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: ubBUDb57HHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le
message de news: eSa1vQ57HHA.5164@TK2MSFTNGP05.phx.gbl...
Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" a écrit dans le message de news:merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la proc
savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreator :
oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from http://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" a écrit dans le message de
news: %Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" a écrit dans le message de news:merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la proc
savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreator :
oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from http://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: %23dd2tK87HHA.5404@TK2MSFTNGP02.phx.gbl...
Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" <vaderetrosp@mas> a écrit dans le message de news:
elC6Na77HHA.464@TK2MSFTNGP02.phx.gbl...
merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la proc
savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreator :
oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: ex6I5N67HHA.396@TK2MSFTNGP06.phx.gbl...
Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23aawSM67HHA.1208@TK2MSFTNGP05.phx.gbl...
re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: uYEtJs57HHA.536@TK2MSFTNGP06.phx.gbl...
Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news: ubBUDb57HHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le
message de news: eSa1vQ57HHA.5164@TK2MSFTNGP05.phx.gbl...
Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from http://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" a écrit dans le message de
news: %Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" a écrit dans le message de news:merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la proc
savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreator :
oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
Rex
Est-ce que OrderPdf est un répertoire ?
Si c'est le cas corrige comme ceci :
.cOption("AutosaveDirectory") = _
"C:AA-Rex-DataSalesPDFOrder pdf" & Application.PathSeparator
Pour le nom du Fichier tu ajoutes ceci en début de code :
Dim MonNomdeFichier As String
MonNomdeFichier = "zozo.pdf"
Ensuite plus loin dans ton code tu positionnes ton nom :
.cOption("AutosaveFilename") = MonNomdeFichier
Cordialement
Pascal
"rthompson" a écrit dans le message de
news:Bonjour à tous
A première vue ce fil ne tente pas trop les "toutes"
On est entre "tous" ;-((((
But seriously
J'ai installé PDF CREATOR
Et
J'ai testé le "Late" qui fonctionne
Même plusieurs fois d'affilée parfait
Il ne demande aucune confirmation IMPECCABLE mais dangereux
Donc je dois maintenant mettre mon répertoire et le nom de fichier que je
veux
Je mets en debut de code
PDFname = Range ("C4")
Et dans le code la ligne continue à donner le nom PDFname
.cOption("AutosaveFilename") = "PDFname"
Donc vela veut dire que, contrairement à ce que je croyais
J'ai pas compris comment déclarer un nom ;-(((
Et puis quand je chqnge la ligne
.cOption("AutosaveDirectory") = ThisWorkbook.path & ""
pour changer le répertoire
.cOption("AutosaveDirectory") =
C:AA-Rex-DataSalesPDFOrder pdf
Il me dit qu'il faut un label ou un numéro de ligne
Alors si l'un d'entre vous peut aider je suis tout ouie
Après cela il me restera à comprendre et adapter le truc de message dans
le genre
Filename already existe
Overwrite file yes/no
Mais on avance
Un peu déçu qu'on arrive pas à faire tourner CutePDF mais ça ne me gène
pas plus que ça
A bientôt
Et surtout MERCI
Rex :-))) )))
Par contr
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
Rex
Est-ce que OrderPdf est un répertoire ?
Si c'est le cas corrige comme ceci :
.cOption("AutosaveDirectory") = _
"C:AA-Rex-DataSalesPDFOrder pdf" & Application.PathSeparator
Pour le nom du Fichier tu ajoutes ceci en début de code :
Dim MonNomdeFichier As String
MonNomdeFichier = "zozo.pdf"
Ensuite plus loin dans ton code tu positionnes ton nom :
.cOption("AutosaveFilename") = MonNomdeFichier
Cordialement
Pascal
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: ehhzwJ87HHA.484@TK2MSFTNGP06.phx.gbl...
Bonjour à tous
A première vue ce fil ne tente pas trop les "toutes"
On est entre "tous" ;-((((
But seriously
J'ai installé PDF CREATOR
Et
J'ai testé le "Late" qui fonctionne
Même plusieurs fois d'affilée parfait
Il ne demande aucune confirmation IMPECCABLE mais dangereux
Donc je dois maintenant mettre mon répertoire et le nom de fichier que je
veux
Je mets en debut de code
PDFname = Range ("C4")
Et dans le code la ligne continue à donner le nom PDFname
.cOption("AutosaveFilename") = "PDFname"
Donc vela veut dire que, contrairement à ce que je croyais
J'ai pas compris comment déclarer un nom ;-(((
Et puis quand je chqnge la ligne
.cOption("AutosaveDirectory") = ThisWorkbook.path & ""
pour changer le répertoire
.cOption("AutosaveDirectory") =
C:AA-Rex-DataSalesPDFOrder pdf
Il me dit qu'il faut un label ou un numéro de ligne
Alors si l'un d'entre vous peut aider je suis tout ouie
Après cela il me restera à comprendre et adapter le truc de message dans
le genre
Filename already existe
Overwrite file yes/no
Mais on avance
Un peu déçu qu'on arrive pas à faire tourner CutePDF mais ça ne me gène
pas plus que ça
A bientôt
Et surtout MERCI
Rex :-))) )))
Par contr
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: ex6I5N67HHA.396@TK2MSFTNGP06.phx.gbl...
Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23aawSM67HHA.1208@TK2MSFTNGP05.phx.gbl...
re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: uYEtJs57HHA.536@TK2MSFTNGP06.phx.gbl...
Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: ubBUDb57HHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le
message de news: eSa1vQ57HHA.5164@TK2MSFTNGP05.phx.gbl...
Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
Rex
Est-ce que OrderPdf est un répertoire ?
Si c'est le cas corrige comme ceci :
.cOption("AutosaveDirectory") = _
"C:AA-Rex-DataSalesPDFOrder pdf" & Application.PathSeparator
Pour le nom du Fichier tu ajoutes ceci en début de code :
Dim MonNomdeFichier As String
MonNomdeFichier = "zozo.pdf"
Ensuite plus loin dans ton code tu positionnes ton nom :
.cOption("AutosaveFilename") = MonNomdeFichier
Cordialement
Pascal
"rthompson" a écrit dans le message de
news:Bonjour à tous
A première vue ce fil ne tente pas trop les "toutes"
On est entre "tous" ;-((((
But seriously
J'ai installé PDF CREATOR
Et
J'ai testé le "Late" qui fonctionne
Même plusieurs fois d'affilée parfait
Il ne demande aucune confirmation IMPECCABLE mais dangereux
Donc je dois maintenant mettre mon répertoire et le nom de fichier que je
veux
Je mets en debut de code
PDFname = Range ("C4")
Et dans le code la ligne continue à donner le nom PDFname
.cOption("AutosaveFilename") = "PDFname"
Donc vela veut dire que, contrairement à ce que je croyais
J'ai pas compris comment déclarer un nom ;-(((
Et puis quand je chqnge la ligne
.cOption("AutosaveDirectory") = ThisWorkbook.path & ""
pour changer le répertoire
.cOption("AutosaveDirectory") =
C:AA-Rex-DataSalesPDFOrder pdf
Il me dit qu'il faut un label ou un numéro de ligne
Alors si l'un d'entre vous peut aider je suis tout ouie
Après cela il me restera à comprendre et adapter le truc de message dans
le genre
Filename already existe
Overwrite file yes/no
Mais on avance
Un peu déçu qu'on arrive pas à faire tourner CutePDF mais ça ne me gène
pas plus que ça
A bientôt
Et surtout MERCI
Rex :-))) )))
Par contr
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from http://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" a écrit dans le message de
news: %Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" a écrit dans le message de news:merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la proc
savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreator :
oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from http://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: %23dd2tK87HHA.5404@TK2MSFTNGP02.phx.gbl...
Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" <vaderetrosp@mas> a écrit dans le message de news:
elC6Na77HHA.464@TK2MSFTNGP02.phx.gbl...
merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la proc
savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreator :
oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: ex6I5N67HHA.396@TK2MSFTNGP06.phx.gbl...
Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23aawSM67HHA.1208@TK2MSFTNGP05.phx.gbl...
re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: uYEtJs57HHA.536@TK2MSFTNGP06.phx.gbl...
Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news: ubBUDb57HHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le
message de news: eSa1vQ57HHA.5164@TK2MSFTNGP05.phx.gbl...
Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from http://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" a écrit dans le message de
news: %Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" a écrit dans le message de news:merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la proc
savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreator :
oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
re rex
voilà, servie sur un plateau, une proc que tu mets dans ton perso.xls, que
tu affectes à un bouton de ta BO et pour chaque classeur que tu voudras
créer en .pdf, il te suffira de l'ouvrir et de cliquer sur ledit bouton
je ne sais pas par contre si cette proc crée des multifeuilles mais papou
va savoir nous le dire
jps
Sub CreeFichierPDF()
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = ActiveWorkbook.path & ""
.cOption("AutosaveFilename") = ActiveWorkbook.Name & ".pdf"
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
End Sub
"jps" a écrit dans le message de news:
u$bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from http://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" a écrit dans le message de
news: %Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" a écrit dans le message de news:merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la
proc savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreator
: oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par
contre je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques
secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
re rex
voilà, servie sur un plateau, une proc que tu mets dans ton perso.xls, que
tu affectes à un bouton de ta BO et pour chaque classeur que tu voudras
créer en .pdf, il te suffira de l'ouvrir et de cliquer sur ledit bouton
je ne sais pas par contre si cette proc crée des multifeuilles mais papou
va savoir nous le dire
jps
Sub CreeFichierPDF()
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = ActiveWorkbook.path & ""
.cOption("AutosaveFilename") = ActiveWorkbook.Name & ".pdf"
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
End Sub
"jps" <vaderetrosp@mas> a écrit dans le message de news:
u$biBT87HHA.3400@TK2MSFTNGP03.phx.gbl...
bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from http://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: %23dd2tK87HHA.5404@TK2MSFTNGP02.phx.gbl...
Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" <vaderetrosp@mas> a écrit dans le message de news:
elC6Na77HHA.464@TK2MSFTNGP02.phx.gbl...
merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la
proc savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreator
: oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: ex6I5N67HHA.396@TK2MSFTNGP06.phx.gbl...
Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23aawSM67HHA.1208@TK2MSFTNGP05.phx.gbl...
re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par
contre je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news: uYEtJs57HHA.536@TK2MSFTNGP06.phx.gbl...
Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news: ubBUDb57HHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le
message de news: eSa1vQ57HHA.5164@TK2MSFTNGP05.phx.gbl...
Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques
secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
re rex
voilà, servie sur un plateau, une proc que tu mets dans ton perso.xls, que
tu affectes à un bouton de ta BO et pour chaque classeur que tu voudras
créer en .pdf, il te suffira de l'ouvrir et de cliquer sur ledit bouton
je ne sais pas par contre si cette proc crée des multifeuilles mais papou
va savoir nous le dire
jps
Sub CreeFichierPDF()
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = ActiveWorkbook.path & ""
.cOption("AutosaveFilename") = ActiveWorkbook.Name & ".pdf"
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
End Sub
"jps" a écrit dans le message de news:
u$bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from http://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" a écrit dans le message de
news: %Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" a écrit dans le message de news:merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la
proc savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreator
: oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par
contre je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques
secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
Bonjour LSteph
Merci, mais cela me donne une erreur 1004
Bonjour LSteph
Merci, mais cela me donne une erreur 1004
Bonjour LSteph
Merci, mais cela me donne une erreur 1004
CA MARCHE !!!!!!!
Enfin presque
Je ne parviens pas à utiliser la valeur de la cellule C4 comme nom de
fichier
J'ai essayé MonNomdeFichier = "C4" ou Range ect
mais sans succès
Décidément, je suis nettement moins bon que je croyais
quoi qu'il en soit MERCI pour ce que tu es parvenu à faire jusqu'ici
Rex ;-(((
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Est-ce que OrderPdf est un répertoire ?
Si c'est le cas corrige comme ceci :
.cOption("AutosaveDirectory") = _
"C:AA-Rex-DataSalesPDFOrder pdf" & Application.PathSeparator
Pour le nom du Fichier tu ajoutes ceci en début de code :
Dim MonNomdeFichier As String
MonNomdeFichier = "zozo.pdf"
Ensuite plus loin dans ton code tu positionnes ton nom :
.cOption("AutosaveFilename") = MonNomdeFichier
Cordialement
Pascal
"rthompson" a écrit dans le message de
news:Bonjour à tous
A première vue ce fil ne tente pas trop les "toutes"
On est entre "tous" ;-((((
But seriously
J'ai installé PDF CREATOR
Et
J'ai testé le "Late" qui fonctionne
Même plusieurs fois d'affilée parfait
Il ne demande aucune confirmation IMPECCABLE mais dangereux
Donc je dois maintenant mettre mon répertoire et le nom de fichier que
je veux
Je mets en debut de code
PDFname = Range ("C4")
Et dans le code la ligne continue à donner le nom PDFname
.cOption("AutosaveFilename") = "PDFname"
Donc vela veut dire que, contrairement à ce que je croyais
J'ai pas compris comment déclarer un nom ;-(((
Et puis quand je chqnge la ligne
.cOption("AutosaveDirectory") = ThisWorkbook.path & ""
pour changer le répertoire
.cOption("AutosaveDirectory") =
C:AA-Rex-DataSalesPDFOrder pdf
Il me dit qu'il faut un label ou un numéro de ligne
Alors si l'un d'entre vous peut aider je suis tout ouie
Après cela il me restera à comprendre et adapter le truc de message dans
le genre
Filename already existe
Overwrite file yes/no
Mais on avance
Un peu déçu qu'on arrive pas à faire tourner CutePDF mais ça ne me gène
pas plus que ça
A bientôt
Et surtout MERCI
Rex :-))) )))
Par contr
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
CA MARCHE !!!!!!!
Enfin presque
Je ne parviens pas à utiliser la valeur de la cellule C4 comme nom de
fichier
J'ai essayé MonNomdeFichier = "C4" ou Range ect
mais sans succès
Décidément, je suis nettement moins bon que je croyais
quoi qu'il en soit MERCI pour ce que tu es parvenu à faire jusqu'ici
Rex ;-(((
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: eWWxAS87HHA.980@TK2MSFTNGP06.phx.gbl...
Rex
Est-ce que OrderPdf est un répertoire ?
Si c'est le cas corrige comme ceci :
.cOption("AutosaveDirectory") = _
"C:AA-Rex-DataSalesPDFOrder pdf" & Application.PathSeparator
Pour le nom du Fichier tu ajoutes ceci en début de code :
Dim MonNomdeFichier As String
MonNomdeFichier = "zozo.pdf"
Ensuite plus loin dans ton code tu positionnes ton nom :
.cOption("AutosaveFilename") = MonNomdeFichier
Cordialement
Pascal
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: ehhzwJ87HHA.484@TK2MSFTNGP06.phx.gbl...
Bonjour à tous
A première vue ce fil ne tente pas trop les "toutes"
On est entre "tous" ;-((((
But seriously
J'ai installé PDF CREATOR
Et
J'ai testé le "Late" qui fonctionne
Même plusieurs fois d'affilée parfait
Il ne demande aucune confirmation IMPECCABLE mais dangereux
Donc je dois maintenant mettre mon répertoire et le nom de fichier que
je veux
Je mets en debut de code
PDFname = Range ("C4")
Et dans le code la ligne continue à donner le nom PDFname
.cOption("AutosaveFilename") = "PDFname"
Donc vela veut dire que, contrairement à ce que je croyais
J'ai pas compris comment déclarer un nom ;-(((
Et puis quand je chqnge la ligne
.cOption("AutosaveDirectory") = ThisWorkbook.path & ""
pour changer le répertoire
.cOption("AutosaveDirectory") =
C:AA-Rex-DataSalesPDFOrder pdf
Il me dit qu'il faut un label ou un numéro de ligne
Alors si l'un d'entre vous peut aider je suis tout ouie
Après cela il me restera à comprendre et adapter le truc de message dans
le genre
Filename already existe
Overwrite file yes/no
Mais on avance
Un peu déçu qu'on arrive pas à faire tourner CutePDF mais ça ne me gène
pas plus que ça
A bientôt
Et surtout MERCI
Rex :-))) )))
Par contr
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: ex6I5N67HHA.396@TK2MSFTNGP06.phx.gbl...
Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23aawSM67HHA.1208@TK2MSFTNGP05.phx.gbl...
re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: uYEtJs57HHA.536@TK2MSFTNGP06.phx.gbl...
Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news: ubBUDb57HHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le
message de news: eSa1vQ57HHA.5164@TK2MSFTNGP05.phx.gbl...
Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
CA MARCHE !!!!!!!
Enfin presque
Je ne parviens pas à utiliser la valeur de la cellule C4 comme nom de
fichier
J'ai essayé MonNomdeFichier = "C4" ou Range ect
mais sans succès
Décidément, je suis nettement moins bon que je croyais
quoi qu'il en soit MERCI pour ce que tu es parvenu à faire jusqu'ici
Rex ;-(((
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Est-ce que OrderPdf est un répertoire ?
Si c'est le cas corrige comme ceci :
.cOption("AutosaveDirectory") = _
"C:AA-Rex-DataSalesPDFOrder pdf" & Application.PathSeparator
Pour le nom du Fichier tu ajoutes ceci en début de code :
Dim MonNomdeFichier As String
MonNomdeFichier = "zozo.pdf"
Ensuite plus loin dans ton code tu positionnes ton nom :
.cOption("AutosaveFilename") = MonNomdeFichier
Cordialement
Pascal
"rthompson" a écrit dans le message de
news:Bonjour à tous
A première vue ce fil ne tente pas trop les "toutes"
On est entre "tous" ;-((((
But seriously
J'ai installé PDF CREATOR
Et
J'ai testé le "Late" qui fonctionne
Même plusieurs fois d'affilée parfait
Il ne demande aucune confirmation IMPECCABLE mais dangereux
Donc je dois maintenant mettre mon répertoire et le nom de fichier que
je veux
Je mets en debut de code
PDFname = Range ("C4")
Et dans le code la ligne continue à donner le nom PDFname
.cOption("AutosaveFilename") = "PDFname"
Donc vela veut dire que, contrairement à ce que je croyais
J'ai pas compris comment déclarer un nom ;-(((
Et puis quand je chqnge la ligne
.cOption("AutosaveDirectory") = ThisWorkbook.path & ""
pour changer le répertoire
.cOption("AutosaveDirectory") =
C:AA-Rex-DataSalesPDFOrder pdf
Il me dit qu'il faut un label ou un numéro de ligne
Alors si l'un d'entre vous peut aider je suis tout ouie
Après cela il me restera à comprendre et adapter le truc de message dans
le genre
Filename already existe
Overwrite file yes/no
Mais on avance
Un peu déçu qu'on arrive pas à faire tourner CutePDF mais ça ne me gène
pas plus que ça
A bientôt
Et surtout MERCI
Rex :-))) )))
Par contr
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
CA MARCHE !!!!!!!
Enfin presque
Je ne parviens pas à utiliser la valeur de la cellule C4 comme nom de
fichier
J'ai essayé MonNomdeFichier = "C4" ou Range ect
mais sans succès
Décidément, je suis nettement moins bon que je croyais
quoi qu'il en soit MERCI pour ce que tu es parvenu à faire jusqu'ici
Rex ;-(((
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Est-ce que OrderPdf est un répertoire ?
Si c'est le cas corrige comme ceci :
.cOption("AutosaveDirectory") = _
"C:AA-Rex-DataSalesPDFOrder pdf" & Application.PathSeparator
Pour le nom du Fichier tu ajoutes ceci en début de code :
Dim MonNomdeFichier As String
MonNomdeFichier = "zozo.pdf"
Ensuite plus loin dans ton code tu positionnes ton nom :
.cOption("AutosaveFilename") = MonNomdeFichier
Cordialement
Pascal
"rthompson" a écrit dans le message de
news:Bonjour à tous
A première vue ce fil ne tente pas trop les "toutes"
On est entre "tous" ;-((((
But seriously
J'ai installé PDF CREATOR
Et
J'ai testé le "Late" qui fonctionne
Même plusieurs fois d'affilée parfait
Il ne demande aucune confirmation IMPECCABLE mais dangereux
Donc je dois maintenant mettre mon répertoire et le nom de fichier que
je veux
Je mets en debut de code
PDFname = Range ("C4")
Et dans le code la ligne continue à donner le nom PDFname
.cOption("AutosaveFilename") = "PDFname"
Donc vela veut dire que, contrairement à ce que je croyais
J'ai pas compris comment déclarer un nom ;-(((
Et puis quand je chqnge la ligne
.cOption("AutosaveDirectory") = ThisWorkbook.path & ""
pour changer le répertoire
.cOption("AutosaveDirectory") =
C:AA-Rex-DataSalesPDFOrder pdf
Il me dit qu'il faut un label ou un numéro de ligne
Alors si l'un d'entre vous peut aider je suis tout ouie
Après cela il me restera à comprendre et adapter le truc de message dans
le genre
Filename already existe
Overwrite file yes/no
Mais on avance
Un peu déçu qu'on arrive pas à faire tourner CutePDF mais ça ne me gène
pas plus que ça
A bientôt
Et surtout MERCI
Rex :-))) )))
Par contr
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
CA MARCHE !!!!!!!
Enfin presque
Je ne parviens pas à utiliser la valeur de la cellule C4 comme nom de
fichier
J'ai essayé MonNomdeFichier = "C4" ou Range ect
mais sans succès
Décidément, je suis nettement moins bon que je croyais
quoi qu'il en soit MERCI pour ce que tu es parvenu à faire jusqu'ici
Rex ;-(((
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: eWWxAS87HHA.980@TK2MSFTNGP06.phx.gbl...
Rex
Est-ce que OrderPdf est un répertoire ?
Si c'est le cas corrige comme ceci :
.cOption("AutosaveDirectory") = _
"C:AA-Rex-DataSalesPDFOrder pdf" & Application.PathSeparator
Pour le nom du Fichier tu ajoutes ceci en début de code :
Dim MonNomdeFichier As String
MonNomdeFichier = "zozo.pdf"
Ensuite plus loin dans ton code tu positionnes ton nom :
.cOption("AutosaveFilename") = MonNomdeFichier
Cordialement
Pascal
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: ehhzwJ87HHA.484@TK2MSFTNGP06.phx.gbl...
Bonjour à tous
A première vue ce fil ne tente pas trop les "toutes"
On est entre "tous" ;-((((
But seriously
J'ai installé PDF CREATOR
Et
J'ai testé le "Late" qui fonctionne
Même plusieurs fois d'affilée parfait
Il ne demande aucune confirmation IMPECCABLE mais dangereux
Donc je dois maintenant mettre mon répertoire et le nom de fichier que
je veux
Je mets en debut de code
PDFname = Range ("C4")
Et dans le code la ligne continue à donner le nom PDFname
.cOption("AutosaveFilename") = "PDFname"
Donc vela veut dire que, contrairement à ce que je croyais
J'ai pas compris comment déclarer un nom ;-(((
Et puis quand je chqnge la ligne
.cOption("AutosaveDirectory") = ThisWorkbook.path & ""
pour changer le répertoire
.cOption("AutosaveDirectory") =
C:AA-Rex-DataSalesPDFOrder pdf
Il me dit qu'il faut un label ou un numéro de ligne
Alors si l'un d'entre vous peut aider je suis tout ouie
Après cela il me restera à comprendre et adapter le truc de message dans
le genre
Filename already existe
Overwrite file yes/no
Mais on avance
Un peu déçu qu'on arrive pas à faire tourner CutePDF mais ça ne me gène
pas plus que ça
A bientôt
Et surtout MERCI
Rex :-))) )))
Par contr
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: ex6I5N67HHA.396@TK2MSFTNGP06.phx.gbl...
Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23aawSM67HHA.1208@TK2MSFTNGP05.phx.gbl...
re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: uYEtJs57HHA.536@TK2MSFTNGP06.phx.gbl...
Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news: ubBUDb57HHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le
message de news: eSa1vQ57HHA.5164@TK2MSFTNGP05.phx.gbl...
Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
CA MARCHE !!!!!!!
Enfin presque
Je ne parviens pas à utiliser la valeur de la cellule C4 comme nom de
fichier
J'ai essayé MonNomdeFichier = "C4" ou Range ect
mais sans succès
Décidément, je suis nettement moins bon que je croyais
quoi qu'il en soit MERCI pour ce que tu es parvenu à faire jusqu'ici
Rex ;-(((
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Est-ce que OrderPdf est un répertoire ?
Si c'est le cas corrige comme ceci :
.cOption("AutosaveDirectory") = _
"C:AA-Rex-DataSalesPDFOrder pdf" & Application.PathSeparator
Pour le nom du Fichier tu ajoutes ceci en début de code :
Dim MonNomdeFichier As String
MonNomdeFichier = "zozo.pdf"
Ensuite plus loin dans ton code tu positionnes ton nom :
.cOption("AutosaveFilename") = MonNomdeFichier
Cordialement
Pascal
"rthompson" a écrit dans le message de
news:Bonjour à tous
A première vue ce fil ne tente pas trop les "toutes"
On est entre "tous" ;-((((
But seriously
J'ai installé PDF CREATOR
Et
J'ai testé le "Late" qui fonctionne
Même plusieurs fois d'affilée parfait
Il ne demande aucune confirmation IMPECCABLE mais dangereux
Donc je dois maintenant mettre mon répertoire et le nom de fichier que
je veux
Je mets en debut de code
PDFname = Range ("C4")
Et dans le code la ligne continue à donner le nom PDFname
.cOption("AutosaveFilename") = "PDFname"
Donc vela veut dire que, contrairement à ce que je croyais
J'ai pas compris comment déclarer un nom ;-(((
Et puis quand je chqnge la ligne
.cOption("AutosaveDirectory") = ThisWorkbook.path & ""
pour changer le répertoire
.cOption("AutosaveDirectory") =
C:AA-Rex-DataSalesPDFOrder pdf
Il me dit qu'il faut un label ou un numéro de ligne
Alors si l'un d'entre vous peut aider je suis tout ouie
Après cela il me restera à comprendre et adapter le truc de message dans
le genre
Filename already existe
Overwrite file yes/no
Mais on avance
Un peu déçu qu'on arrive pas à faire tourner CutePDF mais ça ne me gène
pas plus que ça
A bientôt
Et surtout MERCI
Rex :-))) )))
Par contr
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par contre
je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
Bonjour et merci
Mais j'utilise le late
Qu'est ce qui t'a fait choisir celui là?
Just because I'm nosy
A bientôt
Rex ;-))) )))
"jps" a écrit dans le message de news:
u$bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from http://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" a écrit dans le message de
news: %Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" a écrit dans le message de news:merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la
proc savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreator
: oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par
contre je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques
secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
Bonjour et merci
Mais j'utilise le late
Qu'est ce qui t'a fait choisir celui là?
Just because I'm nosy
A bientôt
Rex ;-))) )))
"jps" <vaderetrosp@mas> a écrit dans le message de news:
u$biBT87HHA.3400@TK2MSFTNGP03.phx.gbl...
bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from http://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: %23dd2tK87HHA.5404@TK2MSFTNGP02.phx.gbl...
Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" <vaderetrosp@mas> a écrit dans le message de news:
elC6Na77HHA.464@TK2MSFTNGP02.phx.gbl...
merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la
proc savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreator
: oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: ex6I5N67HHA.396@TK2MSFTNGP06.phx.gbl...
Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23aawSM67HHA.1208@TK2MSFTNGP05.phx.gbl...
re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par
contre je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news: uYEtJs57HHA.536@TK2MSFTNGP06.phx.gbl...
Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news: ubBUDb57HHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le
message de news: eSa1vQ57HHA.5164@TK2MSFTNGP05.phx.gbl...
Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques
secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
Bonjour et merci
Mais j'utilise le late
Qu'est ce qui t'a fait choisir celui là?
Just because I'm nosy
A bientôt
Rex ;-))) )))
"jps" a écrit dans le message de news:
u$bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download from http://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" a écrit dans le message de
news: %Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" a écrit dans le message de news:merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la
proc savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreator
: oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par
contre je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message de news:Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques
secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
un truc qui a son importance
ça c'est inclus (variable thisP) dans le code que j'ai proposé mais
oops
un truc qui a son importance, je pense, c'est remettre ton imprimante r éelle
opérationnelle en fin de proc sinon tu vas avoir la surprise si tu veux
imprimer tes mémoires juste après les avoir mises en.pdf....
donc, à adapter et à mettre juste avant le End Sub :
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"
HTH
jps
"jps" a écrit dans le message de news:re rex
voilà, servie sur un plateau, une proc que tu mets dans ton perso.xls , que
tu affectes à un bouton de ta BO et pour chaque classeur que tu voudr as
créer en .pdf, il te suffira de l'ouvrir et de cliquer sur ledit bout on
je ne sais pas par contre si cette proc crée des multifeuilles mais p apou
va savoir nous le dire
jps
Sub CreeFichierPDF()
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = ActiveWorkbook.path & ""
.cOption("AutosaveFilename") = ActiveWorkbook.Name & ".pdf"
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
End Sub
"jps" a écrit dans le message de news:
u$bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download fromhttp://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" a écrit dans le messa ge de
news: %23dd2tK87HHA.5__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$zBonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" a écrit dans le message de news:merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la
proc savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreat or
: oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le mess age de
news: ex6I5N67HHA.__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z_Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par
contre je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le me ssage
denews: uYEtJs57HHA.__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jf AD$Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le m essage
denews: ubBUDb57HHA.4__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63 jfAD$Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message denews: eSa1vQ57HHA.5__BEGIN_MASK_n#9g02mG7!__...__END_M ASK_i?a63jfAD$Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisonsPrimo, je commence à me perdre dans l'autreEt puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'a ident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrin ter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichi er
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acroba t de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques
secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endom mager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
un truc qui a son importance
ça c'est inclus (variable thisP) dans le code que j'ai proposé mais
oops
un truc qui a son importance, je pense, c'est remettre ton imprimante r éelle
opérationnelle en fin de proc sinon tu vas avoir la surprise si tu veux
imprimer tes mémoires juste après les avoir mises en.pdf....
donc, à adapter et à mettre juste avant le End Sub :
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"
HTH
jps
"jps" <vaderetrosp@mas> a écrit dans le message de news:
eCj6Ij87HHA.3...@TK2MSFTNGP02.phx.gbl...
re rex
voilà, servie sur un plateau, une proc que tu mets dans ton perso.xls , que
tu affectes à un bouton de ta BO et pour chaque classeur que tu voudr as
créer en .pdf, il te suffira de l'ouvrir et de cliquer sur ledit bout on
je ne sais pas par contre si cette proc crée des multifeuilles mais p apou
va savoir nous le dire
jps
Sub CreeFichierPDF()
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = ActiveWorkbook.path & ""
.cOption("AutosaveFilename") = ActiveWorkbook.Name & ".pdf"
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
End Sub
"jps" <vaderetrosp@mas> a écrit dans le message de news:
u$biBT87HHA.3...@TK2MSFTNGP03.phx.gbl...
bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download fromhttp://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" <roubliemoithomp...@softscreen.be> a écrit dans le messa ge de
news: %23dd2tK87HHA.5__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z __@TK2MSFTNGP02.phx.gbl...
Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" <vaderetrosp@mas> a écrit dans le message de news:
elC6Na77HHA....@TK2MSFTNGP02.phx.gbl...
merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la
proc savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreat or
: oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le mess age de
news: ex6I5N67HHA.__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z_ _@TK2MSFTNGP06.phx.gbl...
Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23aawSM67HHA.1...@TK2MSFTNGP05.phx.gbl...
re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par
contre je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le me ssage
denews: uYEtJs57HHA.__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jf AD$z__@TK2MSFTNGP06.phx.gbl...
Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le m essage
denews: ubBUDb57HHA.4__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63 jfAD$z__@TK2MSFTNGP03.phx.gbl...
Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" <roubliemoithomp...@softscreen.be> a écrit dans le
message denews: eSa1vQ57HHA.5__BEGIN_MASK_n#9g02mG7!__...__END_M ASK_i?a63jfAD$z__@TK2MSFTNGP05.phx.gbl...
Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'a ident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrin ter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichi er
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acroba t de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques
secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endom mager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
un truc qui a son importance
ça c'est inclus (variable thisP) dans le code que j'ai proposé mais
oops
un truc qui a son importance, je pense, c'est remettre ton imprimante r éelle
opérationnelle en fin de proc sinon tu vas avoir la surprise si tu veux
imprimer tes mémoires juste après les avoir mises en.pdf....
donc, à adapter et à mettre juste avant le End Sub :
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"
HTH
jps
"jps" a écrit dans le message de news:re rex
voilà, servie sur un plateau, une proc que tu mets dans ton perso.xls , que
tu affectes à un bouton de ta BO et pour chaque classeur que tu voudr as
créer en .pdf, il te suffira de l'ouvrir et de cliquer sur ledit bout on
je ne sais pas par contre si cette proc crée des multifeuilles mais p apou
va savoir nous le dire
jps
Sub CreeFichierPDF()
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = ActiveWorkbook.path & ""
.cOption("AutosaveFilename") = ActiveWorkbook.Name & ".pdf"
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
End Sub
"jps" a écrit dans le message de news:
u$bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download fromhttp://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" a écrit dans le messa ge de
news: %23dd2tK87HHA.5__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$zBonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" a écrit dans le message de news:merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la
proc savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de PDFCreat or
: oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le mess age de
news: ex6I5N67HHA.__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$z_Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par
contre je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le me ssage
denews: uYEtJs57HHA.__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jf AD$Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le m essage
denews: ubBUDb57HHA.4__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63 jfAD$Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message denews: eSa1vQ57HHA.5__BEGIN_MASK_n#9g02mG7!__...__END_M ASK_i?a63jfAD$Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisonsPrimo, je commence à me perdre dans l'autreEt puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui m'a ident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel (pas le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrin ter:=
_
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de fichi er
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acroba t de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques
secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou endom mager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex