Bonjour,
J'ai adapter ma zone impression pour qu'elle soit variable en fonction de la dernière cellule qui contient du texte.
Par contre, mon impression ajuste mon contenu sur une seule page. J'aimerais que ça soit sur plusieurs pages.
Où modifier ma macro exactement ?
Merci
countarr = 0
'loop in sheets list
While sname.Cells(r, csname) <> ""
'add to array if flag is on
If sname.Cells(r, c) = 1 Then
ReDim Preserve vararray(countarr)
vararray(countarr) = sname.Cells(r, csname).Value
countarr = countarr + 1
End If
r = r + 1
Wend
Sheets(vararray).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Performance_globale.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
sname.Activate
End Sub
Merci