Discussion :

[chatpreche]

Bonjour,

A partir d'access, je cherche à supprimer un saut de page automatique excel (en colonne).
J'ai lu sur des forums qu'il était impossible de supprimer un saut de page automatique alors je tente de le faire sortir de la zone d'impession (DragOff).

J'utilise alors la syntaxe suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim feuille As Worksheet
' supprimer le premier (et l'unique!) saut de page
feuille.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1

Malheureusement, j'ai l'erreur suivante :

Erreur d exécution 1004 :
Erreur définie par l application ou par l objet

J'ai tenté pas mal de choses mais sans succés...

Merci d'avance !

[LeForestier]

Bonjour,
En premier lieux, où tu initialise Feuille ??

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Set Feuille = Sheets("LeNomDeLaFeuille")

Mais si tu n'emploi le nom qu'une seule fois travaille directement avec le nom de la feuille, pas besoin de passer par un objet.
A+

[chatpreche]

En fait j'initialise Feuille dans une fonction qui réalise des tests sur les résultats d'une requète access. Le nom de ma feuille est lu dans une table access.

Oui, j'utilise plusieurs fois ma feuille.

J'ai essayé de nouvelles choses pour déplacer mon saut de page.
J'ai enregistré 2 macro sur excel :

- la première en décalant mon saut de page jusqu'à la fin de la zone d'impression. Voici le code généré :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveWindow.View = xlPageBreakPreview
ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
ActiveWindow.View = xlNormalView

J'obtiens la même erreur que précédemment.

- la deuxième en décalant mon saut de page d'une colonne ce qui me donne les instructions suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveWindow.View = xlPageBreakPreview
feuille.VPageBreaks(1).Location = feuille.Range("T1")
ActiveWindow.View = xlNormalView

J'avais dans l'idée d'utiliser une instruction pemettant de décaler la saut de page vers la droite plutôt que de le faire sortir de la zone d'impression. Sans succès une nouvelle fois... Ici je n'ai pas d'erreur mais le saut de page n'est pas décalé