Exporter une page Excel entière en PDF avec VBA

[Spacepak]

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]

Bonsoir,

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

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]

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]

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]

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]

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