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

Mafalda78

XLDnaute Nouveau
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.
 

patricktoulon

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

patricktoulon

XLDnaute Barbatruc
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
1700128691895.png


ensuite il faudrait nous en dire un peu plus sur la mise en page souhaitée
 
Dernière édition:

Mafalda78

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

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

XLDnaute Nouveau
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).
 

Statistiques des forums

Discussions
312 935
Messages
2 093 741
Membres
105 805
dernier inscrit
belgacem.nahali