Microsoft 365 copier feuille active sous format pdf dans MON classeur EXCEL actif

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

J'en ai une petite et je ne trouve pas Grrrr !!!
Ce que je souhaite :
Dans le classeur joint, j'ai une feuil1 que je voudrais dupliquer dans mon classeur mais en PDF.

Mes recherches n'ont pas abouti jusqu'à maintenant.
Auriez-vous le bon code ?
Un grand merci par avance,
lionel

 

[TooFatBoy]

le soir du réveillon de noël peut-être ... lol (ok post inutile, je sors)

Je pense que là-bas à Noël, ils ne font un réveillon que s'il y a de la neige... (ok, je te suis...)

 

[Usine à gaz]

Bonsoir à tous,
Désolé, je n'avais pas eu le temps de voir.
Il me faut du temps et je n'en ai pas eu suffisamment.
J'espère pouvoir ce soir mais, à la lumière de vos réponses, je suis convaincu que ce n'est pas possible.
Lionel

 

[kiki29]

Salut, brut de fonderie, à toi de l'améliorer

 

[Usine à gaz]

Bonsoir kiki29
Merci pour ton fichier.
Il y a un beug :

lionel

 

[soan]

Bonsoir Lionel, le fil,

ligne jaune de l'image du post #19 :

Set Pdf = CreateObject("pdfforge.pdf.pdf")

j'm'y connais pas en traitement d'fichiers pdf, mais ça m'paraît bizarre,
la double extension .pdf.pdf ! à tout hasard, essaye avec :

Set Pdf = CreateObject("pdfforge.pdf")

un seul .pdf ; si ça ne marche pas, tant pis !
j'ai rien d'autre à proposer !

soan

 

[Usine à gaz]

Merci Soan
Pareil avec un seul pdf,
lionel,

 

[TooFatBoy]

Salut, brut de fonderie, à toi de l'améliorer

Est-ce qu'il faut avoir installé PDFcreator ?
Faut-il activer une référence dans Excel ?

 

[kiki29]

Re, il faut PDFCreator 1.7.3, tout est en Late Binding ( autrement dit pas de ref à cocher )

PDFCreator 1.7.3 voire 1.7.2 et c'est tout. Les exemples ont disparu depuis les versions 2.x ... et l'interface COM a été complètement remaniée. Les classes d'objet ne sont plus les mêmes ni les propriétés et méthodes. Après de longues recherches en Français/Anglais : rien, pas le moindre début d'exemple.

 

[patricktoulon]

bonjour
copie la feuil1 en pdf
ajoute une feuille et met le pdf dessus

Sub test()
    chemin = "C:\Users\polux\Desktop\la feuille 1.pdf"
    'on sauve la feuil1 en pdf
    Sheets("Feuil1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                         chemin, Quality:=xlQualityStandard, _
                                         IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, _
                                         OpenAfterPublish:=False

    'on ajoute une feuille
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = "lePDF"
    ' et on y met le pdf
    ActiveSheet.OLEObjects.Add Filename:=chemin, Link:=False, DisplayAsIcon:=False
End Sub

en gif ça irais très bien aussi

 

[soan]

chemin = "C:\Users\pollux\Desktop\la feuille 1.pdf"

bonjour pollux, le fil ! (pollux avec 2 L)

 

[TooFatBoy]

bonjour @pollux, le fil ! (pollux avec 2 L)

Comme les avions... ça évite de tourner en rond.

 

[soan]

@Marcel32

oui, les avions on 2 ailes, et heureusement,
même pollux avec 2 L n'est pas une 4 L !

soan

 

[patricktoulon]

re
Bonsoir
personne ne se moque du nom de mon PC d'accords sinon je vole dans les plume et pas des "L" hein!!!!

 

[soan]

@patrick

personne ne se moque du nom de mon PC d'accord sinon je vole dans les plumes et pas 2 "L" hein !!!!

ah ? pac'que t'as appelé "polux" ton PC ?

soan

 

[Usine à gaz]

Hello : "polux" ça te va bien