Discussion :

[Julio_del_pueblo]

Bonjour,

J'aimerais savoir comment on automatise la fonction ajustement de l'impression à une page en visual basic.
Je construis une feuille excel à partir de données contenues dans une base Access, la feuille représente un tableau avec un nombre de lignes et de colonnes variables. Suivant la grandeur de ce tableau la feuille s'imprime sur une ou plusieurs pages (ce qui est normal) mais je veux forcer l'impression sur une seule page (comme dans mise en page avant impression avec ajuster sur une page en hauteur et une page en largeur).

Pouvez vous m'éclairer la lanterne ?

D'avance merci.

Julio.

[khany]

Bonjour !

J'espère que tu trouveras ton bonheur dans ces 2 cours :

http://vb.developpez.com/cours/#app_office

Il doit être possible de modifier les marges d'un document via VB, je pense l'avoir déjà fait avec Word mais pas avec Excel !

Bonne lecture

[Catbull]

Voici un exemple pour ajuster les éléments d'une feuille excel lors de l'impression :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub SetupPage(S As Worksheet)
    On Error Resume Next 'Exprime ma confiance vis à vis de la fonction
 
    S.PageSetup.BottomMargin = Application.CentimetersToPoints(1)
    S.PageSetup.TopMargin = Application.CentimetersToPoints(1)
    S.PageSetup.LeftMargin = Application.CentimetersToPoints(1)
    S.PageSetup.RightMargin = Application.CentimetersToPoints(1)
    S.PageSetup.CenterHorizontally = True
    S.PageSetup.PrintTitleRows = ActiveSheet.Rows(1).Address
    S.PageSetup.BlackAndWhite = False   
    S.PageSetup.PrintArea = "A1:E1000"
    S.DisplayPageBreaks = False
End Sub

Il existe d'autres propriétés d'ajustement. Consulte l'aide relative à PageSetup pour les découvrir

[Julio_del_pueblo]

Merci à tous les deux pour vos réponses. J'ai résolu le problème en utilisant l'objet pagesetup avec le code suivant:

Dim sheet As Excel.Worksheet

With sheet.PageSetup
.Orientation = acPRORLandscape
.Zoom = False
.FitToPagesTall = 1 'Une page en hauteur
.FitToPagesWide = 1 'Une page en largeur
.ChartSize = xlFitToPage
End With

Encore merci.

Julio.