Microsoft 365 pdf avec plusieurs page

[macfly1978]

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]

Bonjour,

Si tu spécifies "From:=1, To:=1", Excel ne prend que la première page.

Cordialement.

Daniel

 

[macfly1978]

Merci j ai supprimé cela fonctionne correctement

 

[macfly1978]

autre question comment fais ton pour remplacé le c:\XXX par un chemin qui se trouve sur une autre page dans une cellule?
merci

 

[danielco]

Tu remplaces

Filename:= _

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

Par :

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