Exporter une page Excel entière en PDF avec VBA

Spacepak · 20 Avril 2018

Bonjour,

Le sujet a surement déjà été traité mais je ne trouve pas exactement la réponse à mon problème.

En fait j'aimerai créer un bouton qui permette d'exporter une feuille en entière en PDF.

A chaque fois que je trouve une macro, seule une partie de la page s'exporte.

En fait sur ma page il y a juste un tableau de plusieurs dizaines voire centaines de lignes et donc seules un nombre limité de ligne sont pris dans l'export.

Donc j'aimerai pouvoir exporter toutes les lignes quitte à générer plusieurs PDF pour avoir tout le tableau.

Pourriez vous m'aider svp?

Je vous remercie beaucoup

riton00 · 20 Avril 2018

Bonsoir,

A tester
Je crois que c’était une macro de Chris401

VB:

Sub EnregistreSousPDF()

With ActiveSheet
Rep = ThisWorkbook.Path
nom = "toto essais" ' nom du fichier PDF
LaDate = Format(.[a1].Value, "dd-mm-yyyy")

.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   Rep & "\" & nom & "-" & LaDate & ".pdf"
 
End With
End Sub

Enregistrement du PDF dans le dossier du classeur

Slts

Spacepak · 23 Avril 2018

Bonjour riton00,

Je te remercie pour ton retour.

J'ai modifié l'adresse du folder et le nom

La macro se déroule bien mais rien ne se passe. Aucun enregristrement.

Jauster · 23 Avril 2018

Spacepak à dit:
Bonjour riton00,

Je te remercie pour ton retour.

J'ai modifié l'adresse du folder et le nom

La macro se déroule bien mais rien ne se passe. Aucun enregristrement.

Hello,

Comment as-tu modifié le nom du fichier et le folder ? Peux-tu partager ton code ? Le folder est-il sur un réseau ?

Spacepak · 23 Avril 2018

Salut Jauster,

Voila ce que j'ai mis :

Nom = "Historique" & Date
Chemin = "...." (c'est un folder public de ma boite)

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Chemin & nom & ".pdf"

Spacepak · 23 Avril 2018

Ah c'est bon. Le fichier s'était enregistré dans le folder précédent au niveau de la racine...

Par contre j'ai toujours le même soucis. Cela sauvegarde qu'une partie de la feuille excel

Exporter une page Excel entière en PDF avec VBA

Spacepak

XLDnaute Junior

riton00

XLDnaute Impliqué

Spacepak

XLDnaute Junior

Jauster

XLDnaute Occasionnel

Spacepak

XLDnaute Junior

Spacepak

XLDnaute Junior

Discussions similaires