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