Gestion des Sauts de Page

Bonjour tout le monde,

Je développe en VBA sous Excel un bout de programme qui met un forme un fichier .XLS, pas besoin de rentrer dans les détails.

Une fois mis en forme, je dois le sauver en .PDF.

Pour que le fichier PDF soit "beau", je dois gérer les sauts de page, et pour cela je dois tester un a un tous les sauts de page automatique (pour voir si il ne se situe pas dans une cellule fusionnée mais ce n'est pas important).

Pour cela, je scrute tous les sauts de page de la manière suivante :

Dim HPB As HPageBreak
    For Each HPB In ActiveSheet.HPageBreaks
        [i][COLOR="#00FF00"]'Traitement[/COLOR][/i]
    Next HPB

Ce code marche très bien lorsque que j'ai qu'un seul saut de page à gérer, mais lorsque que j'en ai plusieurs, j'obtiens l'erreur "L'indice n'appartient pas à la sélection" à la ligne "For Each HPB In ActiveSheet.HPageBreaks"

Quelqu'un a une idée de comment scruter tous les sauts de page ?

J'ai également essayer de les scruter manuellement, du genre :

Set HPB1 = ActiveSheet.HPageBreaks(1)
Set HPB2 = ActiveSheet.HPageBreaks(2)

Mais encore une fois, le premier fonctionne très bien, mais le deuxième... même erreur.

Help

Bonjour,

Je ne rencontre aucun problème avec

Sub Test()
Dim SdP As HPageBreak
Dim Texte As String
    Texte = "Les sauts de page horizontaux se trouvent aux emplacements :" & Chr(10)
    For Each SdP In ActiveSheet.HPageBreaks
        Texte = Texte & SdP.Location & Chr(10)
    Next SdP
    MsgBox Texte
End Sub

A+

Bonjour !

En utilisant ce code, toujours la même erreur .. "l'indice n'appartient pas à la selection"... bizarre

Merci en tout cas

A+