Bonjours, dans mon application vb6, j'utilise l'option imprimer. LOrsque je clique sur mon bouton imprimer, il m'imprime un fichier excel.
Seulement mon problème est que sa m'imprime 178 pages !!! Je voudrais en imprimer que 2, pourriez vous me dire ce qui ne va pas dans mon code ?

code:
Private Sub Print_Click()
    Dim appExcel As Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    Dim wsExcel As Excel.Worksheet 'Feuille Excel
'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open("C:\Analyseur_PC\relever_polluants.xls")
'wsExcel correspond à la première feuille du fichier
    Set wsExcel = wbExcel.Worksheets(1)
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    wbExcel.Close
    Set wbExcel = Nothing
    appExcel.Quit
End Sub

hum j'en profite egalement, j'ai un autre petit problème,

J'ai créer un bouton afin de pouvoir imprimer un graphique situé sur mon application. Ce graphique est imprimé en pleine page, seulement il est étiré et donc flou :s

Je voudrais savoir comment faire pour l'imprimer uniquement sur une demi page par exemple !!!
Merci d'avance

code utilisé:
Private Sub impression_graphique_Click()
    MSChart1.EditCopy
    With Printer
      .PaintPicture Clipboard.GetData, 0, 0, .ScaleWidth, .ScaleHeight
      .EndDoc
    End With
End Sub

Réponse acceptée !
Salut, Pour ton 1er prob, essai ça : ActiveWindow.SelectedSheets.PrintOut Copies:=1, From:=1, To:=2 (From...To : ça veut dire impression de la page 1 à la page 2, propriétés adaptables à tes besoins) @ ++ Mortalino

oui sa marche merci.
Mais saurais tu par hasard pour mon second problème comment faire ? Le redimenssionnement du raphique ?

Non, je ne peux t'aider sur l'impression du graphique, je ne suis pas assez calé. Désolé et bon courage à toi ! Mortalino

ok  spa grave, merci beacoup comme même !!! Ton aide sur l'impression m'a beaucoup aidé :D