Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Usine à gaz

XLDnaute Barbatruc
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
 

Pièces jointes

  • pdf_test.xlsm
    9.9 KB · Affichages: 7

Usine à gaz

XLDnaute Barbatruc
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
 

soan

XLDnaute Barbatruc
Inactif
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
 

kiki29

XLDnaute Barbatruc
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.
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
bonjour
copie la feuil1 en pdf
ajoute une feuille et met le pdf dessus
VB:
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
 

Discussions similaires

Réponses
9
Affichages
345
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…