Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Imprimer vers PDF

Imprimer vers PDF

31 réponses
Avatar
rthompson
Bonjour à toutes et tous

Je sais que cette question à déjà été posée de nombreuses fois

MAIS

Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)

J'ai un bout de code ci-dessous

Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom de
fichier

Donc je dois ajouter quelque chose après ActivePrinter

D'avance merci

Rex ;-))) ))))



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
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, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4
Avatar
LSteph
....donc dans l'idée


Sub ConversionPdf()
Dim thisP As String
thisP = Application.ActivePrinter

Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs [F2]
ActiveSheet.PrintOut
Application.DisplayAlerts = True
ActiveWorkbook.Close
Application.ActivePrinter = thisP
End Sub

'lSteph

Bonsoir

J'ai mis preque cinq minutes

Tellement c'est fin

Carême

Pour le PDF, dans mon cas il imprime uniquement la feuille que je veux
Mon souci est le nom
Et apparament y personne qui a une solution

Pourtant Aille ham shure, mais là alors tout à shure que c'est possible
Et que je l'ai vu quelque part

Je me souviens d'un truc pour donner le contenu d'une cellule comme nom
d'onglet
Donc il y a moyen de se servir du contenu d'une cellule pour s'en servir

Maintenant j'en fais un cas de maladie

Et j'y passerai le temps qu'il faut
Mais nom d'y djalle je trouverais


A bientôt

Rex :-))) )))




"lSteph" a écrit dans le message de news:

Re,

Qu'on nous fasse faire bi... rème ou tri...du moment q'on ne doit pas
faire ca...
tout va bien? (Hein JP)

pour PDF moi je me prends toujours la tête avec les classeurs
multifeuilles...

pour Word tout va bien je mets en imprimante par défaut PDFWriter( ou
utilise distiller si tu as ou autre)

Explorateur..Imprimer ..ça baigne..puisque tout le document est pris
avec ses pages
.On peut sélectionner plusieurs .Doc on donne le chemin du premier
puis OkOkOk

Pour excel... ça cagade chaque fois j'ai beau suivre ce qu'indiqué
dans la base de connaissance du fabricant seule la première feuille
est générée ou sinon
ça écrase la précédente avec le même nom en . pdf.

Donc depuis je fais une macro qui pond un fichier excel par feuille
dans un répertoire exclusif . Ferme le classeur excel principal puis,
on imprime en pdf tous les fichiers du rep.

Ensuite si on veut ne faire qu'un, ouvrir le premier puis faire
glisser dans les vignettes les autres depuis l'explorateur.

La macro de Trirème me paraît une alternative intéressante.

Quoiqu'il en soit et puisque tu le demandais sur l'autre fil, en tout
cas je n'ai rien de mieux à proposer..

Et ce fil commence à faire long, Arrêtons de rèmer on attaque la
falaise...

@+

lSteph

On 4 sep, 17:30, "rthompson" wrote:
Ben si toi t'es un birème

Moi j'suis même pas un monorème

D'ailleurs faudra un jour qu'on lui demande pourquoi il s'accorde trois
étoiles ;-)))

Merci pour ton aide

Et à bientôt

Qui sait quelqu'un (et il doit forcément en avoir un) va sûrement venir à
mon aide

Rex ;-))) )))

"jps" a écrit dans le message de news:
OUC$

bonjour rex
trirème est tellement meilleur que moi qui ne suis même pas une
birème....


..et qui ne sait pas comment parler (autrement qu'à la mimine) à la
fenêtre de PDFCreator pour nommer le fichier
désolé, rex
jps
"rthompson" a écrit dans le message
de


news:
%23LQ%23N5v7HHA.3__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$


TNGP02.phx.gbl...
Bonjour JPS
En fait ce que je cherche à faire est simple
Du moins je le croyais
Je dois imprimer une feuille nommée "Printing_Orders" vers un fichier
PDF



Et ça fonctionne
La macro fait tout ce que je veux jusqu'à ce point
Et là, j'ai la fenêtre impression PDF qui me demande de confirmer le
nom



Pas de soucis je peux vivre avec cela, cela me donne même une
confirmation
Mais ou cela coince est que le nom mis par défaut est le nom du fichier
complet
Et ce que je veux comme nom pour le fichier PDF est le contenu de la
cellule C4 de le feuille "Printing_Orders"
Zat iz ze anzwère, my freund
Alors si au fond de ton cerveau tu as une solution
Et au fond de ton coeur la gentillesse de la poster
Je serais te éternellement reconnaissant
Enfin quand je dis éternellement, jusqu'à ce soir c'est déjà bon,
hein?



A bientôt
Rex ;-))) )))
"jps" a écrit dans le message de news:
eVa%23P$
re rex
en fait, tu crées une variable du nom de PDFname (que les puristes te
feront déclarer en haut de ta procédure : Dim PDFname As String) ;
jusque là, pas de problème et tu peux bien mettre cette ligne où tu
veux




; mais ensuite, tu veux en faire quoi de cette variable?
that's the question, my dearest rex
jps
"jps" a écrit dans le message de news:

moi non plus, rex
et comme c'est l'heure de l'apéro, tu dois comprendre que tes
préoccupations à caractère promotionnel passent bien après, surtout
lorsque les vendanges ont commencé
qui veut bien dire à notre belgo-britannique ce qu'il a loupé? merci
pour lui
jps
"rthompson" a écrit dans le
message





denews:
uMzApOk7HHA.1__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$





03.phx.gbl...
Bonjour
Voici ou j'en suis et cela ne fonctionne pas
xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" &
Range("E2").Value






& ".pdf"
A très bientôt
Et merci beaucoup
Rex ;-)))
"jps" a écrit dans le message de news:

un truc dans ce genre, rex
Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier
HTH
jps
"rthompson" a écrit dans le
message denews:
eKxXnvj7HHA.2__BEGIN_MASK_n#9g02mG7!__...__END_MASK_i?a63jfAD$







06.phx.gbl...
Bonjour à toutes et tous
Je sais que cette question à déjà été posée de nombreuses fois
MAIS
Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)
J'ai un bout de code ci-dessous
Il copie une cellule qui contient une référence à une autre
feuille








Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme
nom de fichier
Donc je dois ajouter quelque chose après ActivePrinter
D'avance merci
Rex ;-))) ))))
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
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
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx





















Avatar
Trirème
je mérite 4* et non 3 Ah mais dans Google je crois que j'en vois 5 ...!
Exact, 5 sur le profil LSteph et 4 avec lSteph. Les tiennes sont largement méritées.


Avatar
Trirème
Et en parlant de Monotreme
En voici un qui vit dans mon jardin et qui vient de temps en temps me lècher
la main

Paraît que c'est parce que je l'ai sauvé quand il était tout petit

http://cjoint.com/?jewxJNCk65


ACH ! Grossière erreur ! Le hérisson est un insectivore alors que l'échidné est un
monotrème qui pond des ½ufs (merci wikipédia pour ma grande culture)...
...
M'enfin... s'il te lèche la main...

;-)
Trirème

Avatar
LSteph
Bonjour,


Et les tiennes alors ne le seraient-elles pas?
largement méritées.
En ce qui me concerne vu le faible nombre d'évaluations

cela fait plutôt sourire, mais ça fait toujours plaisir!

lSteph


.

LSteph a écrit : (Petite rectif)
...tu voulais dire que..
je mérite 4* et non 3 Ah mais dans Google je crois que j'en vois 5 ...!
Exact, 5 sur le profil LSteph et 4 avec lSteph. Les tiennes sont

largement méritées.



Avatar
rthompson
Bonjour

Désolé pour le retard

Et merci pour l'info


Je fais quelques essais encore aujourd'hui

MAIS

J'ai l'impression qu'il ne soit pas possible de donner un nom


ET MALGRE TOUT je suis certain que cela doit pouvoir se faire

A bientôt

Rex



"Francois L" a écrit dans le message
de news: %
Bonjour à toutes et tous

Je sais que cette question à déjà été posée de nombreuses fois

MAIS

Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)



Bonsoir Rex,

Vas voir là :
http://excelguru.ca/node/22

Une solution adaptée à PDFCreator. Je ne sais pas si ça répond vraiment à
ta question...

C'est en anglais, je pense pas que ça te pose problème :-)

--
François L

J'ai un bout de code ci-dessous

Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom de
fichier

Donc je dois ajouter quelque chose après ActivePrinter

D'avance merci

Rex ;-))) ))))



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
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
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx




Avatar
rthompson
Bonjour et merci à toi


Comme dis à François

Je suis un peu à la bourre


Mais je fais des essais aujourd'hui et je vous tiens au courant

Rex



"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Bonsoir Rex,
J'ignore si ceci te permettra de résoudre ton problème ;j'ai fait l'essai
au boulot, où je dispose d'une imprimante pdf et voici ce que j'obtiens :

'copie tout le doc
Application.ActivePrinter = "PDFCreator sur Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator sur Ne00:", Collate:=True

'copie les pages sélectionnées
ActiveWindow.SelectedSheets.PrintOut From:=5, To:=7, Copies:=1, _
Collate :=True

Mes essais pour changer le nom du document au moment de l'impression, bien
que cette option soit offerte par PDFCreator, sont restés vains.
Ma conclusion serait donc qu'il vaut mieux le faire avec un "save as"
avant l'export vers l'imprimante pdf

--
Avec plaisir
Philippe.R
"rthompson" a écrit dans le message de
news:
Bonjour
Voici ou j'en suis et cela ne fonctionne pas

xxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Je ne vois pas ou mettre le petit bous ci-dessous
PDFname = "C:AA-Rex-DataSalesPDFOrder pdf" & Range("E2").Value &
".pdf"


A très bientôt

Et merci beaucoup

Rex ;-)))



"jps" a écrit dans le message de news:

un truc dans ce genre, rex

Nomfichier = "C:temp" & Range("E2").Value & ".xls"
ActiveWorkbook.SaveAs Nomfichier

HTH
jps

"rthompson" a écrit dans le message
de news:
Bonjour à toutes et tous

Je sais que cette question à déjà été posée de nombreuses fois

MAIS

Je ne trouve rien ni via "Recherche" ni sur Excelabo (et ça, ça
m'étonne????????)

J'ai un bout de code ci-dessous

Il copie une cellule qui contient une référence à une autre feuille
Colle la valeur seule dans la cellule E2
Puis il lance l'impression vers PDF
Et je voudrais qu'il utilise l'info de la cellule E2 .pdf comme nom
de fichier

Donc je dois ajouter quelque chose après ActivePrinter

D'avance merci

Rex ;-))) ))))



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
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
Range("E2").Select
Selection.ClearContents
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx













Avatar
Modeste
Bonsour® Trirème avec ferveur ;o))) vous nous disiez :

je mérite 4* et non 3 Ah mais dans Google je crois que j'en vois 5
...!
Exact, 5 sur le profil LSteph et 4 avec lSteph. Les tiennes sont

largement méritées.


;o)))
http://www.googlefight.com/index.php?lang=fr_FR&word1=lsteph&word2=trireme




--
--
@+
;o)))


Avatar
lSteph
Hello,

Essaie celui-là

http://www.googlefight.com/index.php?lang=fr_FR&word1=connerie&word2= G%E9D%E9


@+
;o)))


Avatar
lSteph
Et je n'ai pas écris ce truc réduit :-(( Mossieu
je mérite 4* et non 3 Ah
mais ceci:



suis-je monorème..., ai-je un bec de canard ou mais ou bien sûr...
je mérite 4* et non 3 Ah mais dans Google je crois que j'en vois 5 .. .!





qui me posait question à la lecture de

Et un monotrème ? Une espèce qui se fout en boule dès qu'il y a un problème, à >>>poil dur et
hirsurte ? Un spécimen ici : http://fr.wikipedia.org/wiki/Tachyglossid ae
Quoiqu'il y en ait un autre avec un bec de canard...
:-P
D'ailleurs faudra un jour qu'on lui demande pourquoi il s'accorde trois
étoiles ;-)))
Si tu parles des étoiles dans Google, il n'y en a pas 3 mais 4. Na ! T out comme >>>Steph





;o)

@+


On 5 sep, 10:29, "Modeste" wrote:
Bonsour® Trirème avec ferveur ;o))) vous nous disiez :

je mérite 4* et non 3 Ah mais dans Google je crois que j'en vois 5
...!
Exact, 5 sur le profil LSteph et 4 avec lSteph. Les tiennes sont

largement méritées.


;o)))http://www.googlefight.com/index.php?lang=fr_FR&word1=lsteph&wor d2=tr...

--
--
@+
;o)))










Avatar
Modeste
Bonsour® lSteph avec ferveur ;o))) vous nous disiez :

Hello,

Essaie celui-là

http://www.googlefight.com/index.php?lang=fr_FR&word1=connerie&word2=G%E9D%E9



déçu ...je ne dirai donc que 4% de conneries ...


@+
;o)))

1 2 3 4