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 :
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.
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
Quelqu'un a une idée de comment scruter tous les sauts de page ?
J'ai également essayer de les scruter manuellement, du genre :
Mais encore une fois, le premier fonctionne très bien, mais le deuxième... même erreur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Set HPB1 = ActiveSheet.HPageBreaks(1) Set HPB2 = ActiveSheet.HPageBreaks(2)
Help
Partager