Merci de votre aide, au fait :) Voici finalement la macro utilisée (plus de
boucles)
'--------------------
Sub CreerZoneImp1
Dim monDocument As Object, lesFeuilles As Object
Dim uneFeuille As Object
Dim lesZonesNom As Object
Dim maZone1 As Object
Dim maZone2 As Object
Dim Props() As New com.sun.star.beans.PropertyValue
Dim adrZones1(0) As New com.sun.star.table.CellRangeAddress
Dim adrZones2(0) As New com.sun.star.table.CellRangeAddress
Dim nbz As integer , x As integer , y As integer
monDocument = ThisComponent
lesFeuilles = monDocument.Sheets
lesZonesNom = monDocument.NamedRanges
nbz = lesZonesNom.Count
uneFeuille = lesFeuilles(0)
print uneFeuille.Name
maZone1 = uneFeuille.getCellRangeByName("A1:G24")
adrZones1(0) = maZone1.RangeAddress
uneFeuille.PrintAreas = adrZones1()
Xray adrZones1
uneFeuille = lesFeuilles(1)
print uneFeuille.Name
maZone2 = uneFeuille.getCellRangeByName("B5:D12")
adrZones2(0) = maZone2.RangeAddress
uneFeuille.PrintAreas = adrZones2()
monDocument.Print(Props())
End Sub
'-------------------
Sarah
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
