Microsoft 365 Exporter en PDF avec une mise en page automatique via un bouton

[Mafalda78]

Bonjour,

J'ai créé un macro avec un bouton pour exporter mon fichier excel vers un PDF. Mais lorsque je rajoute des lignes celles-ci ne sont pas prises en compte. Je ne sais pas comment l'indiqué dans ma macro :
ub Exporter_PDF()
'
' Exporter_PDF Macro
'

'

Sheets("EtatNavette").Select
premLigneVisa = 1
ligDepVisa = 1
dernlignevisa = 0
Do While Range("C" & ligDepVisa + dernlignevisa + 1) <> ""
dernlignevisa = dernlignevisa + 1
Loop

premColVisa = 7
ColDepVisa = 7
derncolvisa = 0
Do While Cells(7, ColDepVisa + derncolvisa + 1) <> ""
derncolvisa = derncolvisa + 1
Loop


'Zone impression pour onglet suivi_visa
Range(Cells(4, 2), Cells(dernlignevisa + 7, derncolvisa + 1)).Select
Range(Cells(4, 2), Cells(dernlignevisa + 7, derncolvisa + 1)).Name = "zone_impression_T3A"


'Enregistrement du fichier

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"P:\II221400 - L15 SUD - TRAVAUX\AMENAGEMENTS_T3A\03_TRANSVERSE\2. PowerBI\ISS\Etat navette\Etat_navette_ISS.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True


MsgBox "Le PDF a été généré dans le répertoire dans lequel se trouve ce fichier"


End Sub

Lorsque je clique sur le bouton cela ne prend pas en compte les lignes ajoutées. Pourriez-vous me dire ce que je dois ajouter ?

D'avance merci.

 

[Phil69970]

Bonjour @Mafalda78

Poste ton fichier que l'on puisse voir et tester une solution

 

[patricktoulon]

Bonjour
comme ca a vu d'oeil de ton code
tu calcule bien la surface de ta grille a exporter en pdf mais tu ne modifie pas le print area de ta feuille
tu risque pas d'imprimer ce que tu souhaite 😉
j'ajouterais qu'il y a des fonctions internes en vba qui te feront le calculs bien plus simplement

il me semblerais voir aussi un calcul pour une autre feuille
il faudrais savoir ou tu a mal

 

[kiki29]

Salut, toujours consultable : Liste Contributions PDF

 

[patricktoulon]

bonjour
déjà pour commencer on ne met pas une date au format xx/xx/xxxx dans le nom d'un fichier
le separateur"/" determine le chemin dans les noms de fichiers windows
et je viens juste de l'ouvrir 😉

et c'est même pire
tu concatène un chemin de fichier dejà complet avec une date
voilà domment tu essaie d'exporter ton pdf

ensuite il faudrait nous en dire un peu plus sur la mise en page souhaitée

 

[Mafalda78]

bonjour
déjà pour commencer on ne met pas une date au format xx/xx/xxxx dans le nom d'un fichier
le separateur"/" determine le chemin dans les noms de fichiers windows
et je viens juste de l'ouvrir 😉

et c'est même pire
tu concatène un chemin de fichier dejà complet avec une date
voilà domment tu essaie d'exporter ton pdf
Regarde la pièce jointe 1183888

ensuite il faudrait nous en dire un peu plus sur la mise en page souhaitée

Bonjour, la mise en page doit prendre en compte les toutes les lignes et colonnes uniquement. Ensuite lorsque j'ajouterai des lignes la mise en page se modifiera automatiquement. Ce que je n'arrive pas à faire c'est la prise en compte des nouvelles lignes lorsque j'exporte en pdf via la macro. C'est pourquoi j'ai ajouté du code dans mon module initial où il n'y avait pas de date. Au départ l'export (via le bouton) fonctionnait très bien mais ne prenait pas en compte l'ajout des nouvelles lignes.

 

[patricktoulon]

re
perso j'ai des doutes
afficher tout ton tableau en entier sur une page
c'est des jumelles qu'il va te falloir avaoir pour le lire
c'est absurde
ton tableau est bien trop grand
au mieu on coup en nombre de page mais l'ordre ne va pas te convenir
bref c'est confus tout ça

 

[Mafalda78]

Ce n'est pas sur une page. C'est prendre en compte les nouvelles lignes insérer dans la mise en page. L'export est de 5 pages et lorsque j’ajoute des nouvelles lignes, l'export ne les a pas pris en compte (au lieu d'avoir 6 pages, j'ai toujours 5 pages).

 

[patricktoulon]

re
comme tel chez moi j'ai tout sur une page il n'y a donc pas de mise en page
je téléphone a la nasa pour voir si il peuve me prêter le téléscope hubble
je dis au cas ou si j'arrive à lire une ligne
bref peut être qu'un autre membre va savoir