Microsoft 365 pdf avec plusieurs page

macfly1978

XLDnaute Nouveau
bonjour,

j'ai un tableau excel, j'utilise cette macro pour l'exporter en pdf
' PRINT_OBSERVATION Macro
'

Dim Ville As String, Service As String
Dim LHeure As String, LeDate As String

LHeure = Format(Time, "HHMM")
LaDate = Format(Date, "dd" & "." & "mm" & "." & "yyyy")

'
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\XXX\Tableau Observation" & LaDate & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False

mais le problème c'est qu'il me sort qu'une page sur mon PDF alors qu'il peut en atteindre plusieurs … comment faire pour avoir un pdf qui s'adapte au nombre de ligne ?
merci d'avance pour votre reponse
 

danielco

XLDnaute Accro
Tu remplaces
VB:
Filename:= _

"C:\XXX\Tableau Observation" & LaDate & ".pdf"

Par :

Code:
Filename:= _

Sheets("Feuil1").range("A1") & "\Tableau Observation" & LaDate & ".pdf"

Si le chemin se trouve sur Feuil1 en A1 (il ne doit pas y avoir de "\" à la fin de A1).

Daniel
 

Discussions similaires

Réponses
3
Affichages
473
  • Question
Microsoft 365 Macro VBA
Réponses
2
Affichages
390