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