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 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Dim HPB As HPageBreak
    For Each HPB In ActiveSheet.HPageBreaks
        'Traitement
    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 :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
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