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

  • pdf_test.xlsm
    9.9 KB · Affichages: 7
Trier par date Trier par votes
S

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
 
Vote positif 0 Vote négatif

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:
Vote positif 0 Vote négatif

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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

B
  • Question
XL 2019 Exportation Feuille PDF VBA
Réponses
2
Affichages
279
kiki29
  • Résolu(e)
XL 2021 Créer un pdf en deux pages pour 2 plages d'une même feuille
2
Réponses
19
Affichages
722
Usine à gaz
J
  • Résolu(e)
XL 2021 plantage lors d'un export format PDF
Réponses
14
Affichages
299
JPaul78
J
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
579
Phil69970
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
874
Dranreb
L
  • Question
Microsoft 365 Macro choisir onglet à exporter dans un nouveau classeur
Réponses
5
Affichages
391
l.et.lilou
L
  • Question
XL 2021 Accélérer la copie du classeur actif faite par vba
2 3 4
Réponses
45
Affichages
2 K
Usine à gaz
  • Résolu(e)
Microsoft 365 date souci sur nom du PDF créé
2
Réponses
18
Affichages
913
Usine à gaz
N
  • Question
XL 2016 Macro chargement liste arborescence, copier coller fichiers
Réponses
9
Affichages
414
Nermal64
N
  • Résolu(e)
XL 2021 Déplacement dans Excel
Réponses
11
Affichages
333
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…