imprimer une feuille excel directement de vb

Salut,

le code de hamidIS est bon, c'est juste que je rajouterai le choix de la feuille :

Dim xls As Excel.Application

Set xlApp = New Excel.Application
xlApp.Workbooks.Open "C:\Classeur1.xls"
xlApp.ActiveWorkbook.Sheets("nom de la feuille à imprimer").PrintOut

@++

---

Salut Julien,

(je suis matinal ce matin )

je viens de faire le test, et j'avais oublié qu'excel était visible.
Donc ta réponse est plus appropriée !

Bonne journée

@++

---

Et pour terminer après le traitement, histoire de libérer le processus Excel

xlApp.Quit
Set xlApp = Nothing

MPi

Voilà qui tombe bien.
Je veux un aperçu de ma feuille mais ça marche pas.
voilà mon code
[code]
Public appExcel As Excel.Application 'Application Excel
Public wbExcel As Excel.Workbook 'Classeur Excel
Public wsExcel As Excel.Worksheet 'Feuille Excel
Sub Export_Facture_Excel()
    'ouverture d'Excel
    Set appExcel = CreateObject("Excel.Application")
    Set wbExcel = appExcel.Workbooks.Open(App.Path & "\Facture.xls")
    Set wsExcel = wbExcel.Worksheets(1)
    If Imprim = True Then
        wbExcel.PrintOut
    Else
        wsExcel.Visible = xlSheetVisible
        wbExcel.PrintPreview
    End If
    Fermer_Excel
End Sub
[/code]

Quand je lance l'aperçu, rien ne s'affiche.

Salut,

je t'ai fait une correction ici :

    If Imprim = True Then
        wbExcel.PrintOut
    Else
        wsExcel.Visible = xlSheetVisible
        wsExcel.Select
        With appExcel
             .Visible = True
             .Activate  ' *** SetFocus n'existe pas pour l'appli Excel, il faut tricher
             .PrintPreview
        End With
    End If

Pour info, si ta feuille ne contient pas de données, Excel ne gère pas l'aperçu d'une feuille vierge.

@++

---