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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

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

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 🙂
 
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
 
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:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

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