imprimer une feuille excel directement de vbRésolu

Question

bonsoir, je voux un code qui permet d'imprimer une feuille excel directement sans visualiser se dernier , 
merci pour votre aide .

cs_hamidIS · Accepted Answer

hamidIS

SALUT TESTER CE CODE

Dim xls As Excel.Application

Set xls = New Excel.Application
xls.Workbooks.Open "C:\Classeur1.xls"
xls.ActiveWorkbook.PrintOut

mortalino · Answer

Salut,

le code de [auteurdetail.aspx?ID=291750 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

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

jrivet · Answer

Salut,
Il est vrai que cela m'a l'air bien (pas testé) en revanche j 'ajouterai

Set xlApp = New Excel.Application
xlApp.Visible = False pour répondre au besoin (...excel directement sans visualiser se dernier )

xlApp.Workbooks.Open "C:\Classeur1.xls"
xlApp.ActiveWorkbook.Sheets("nom de la feuille à imprimer").PrintOut
@+, Julien

mortalino · Answer

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 

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

cs_MPi · Answer

Et pour terminer après le traitement, histoire de libérer le processus Excel


xlApp.Quit

Set xlApp = Nothing

MPi

cs_philippe · Answer

Voilà qui tombe bien.
Je veux un aperçu de ma feuille mais ça marche pas.
voilà mon 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 &amp; "\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



Quand je lance l'aperçu, rien ne s'affiche.

mortalino · Answer

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. @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

Imprimer une feuille excel directement de vb

7 réponses

Votre réponse

Discussions similaires