Excel et VB6

Signaler
Messages postés
7
Date d'inscription
lundi 30 octobre 2000
Statut
Membre
Dernière intervention
9 janvier 2003
-
Messages postés
40
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
15 avril 2006
-
Salut
Comment imprimer un fichier Excel sous vb6 ?
J'ai créer une feuille Excel a partir de mon appli, j'eregistre le fichier .xls dans un répertoire mais comment faire pour le récuperer et l'imprimer ?

Merci pour vos réponses

5 réponses

Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
6
Private Sub cmdImprimer_Click()

Dim oXlApp As Excel.Application
Dim oXlWbk As Excel.Workbook

Set oXlApp = CreateObject("Excel.Application")
Set oXlWbk = oXlApp.Workbooks.Open("C:\MonClasseur.xls")

With oXlWbk
'Imprimer tout le classeur
.PrintOut
'Imprimer la feuille "Feuil1"
.Worksheets("Feuil1").PrintOut
.Close
End With

oXlApp.Quit
Set oXlApp = Nothing

End Sub

Slts

wape
Messages postés
23
Date d'inscription
mercredi 19 juin 2002
Statut
Membre
Dernière intervention
5 juin 2004

merci bcp car moi aussi j'avais un pb comme celui la !! :big)
Messages postés
7
Date d'inscription
lundi 30 octobre 2000
Statut
Membre
Dernière intervention
9 janvier 2003

Merci pour les réponses
@+
jluc
Messages postés
40
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
15 avril 2006

le code chez moi ne marche pas pkoi
Dim oXlApp As Excel.Application
Dim oXlWbk As Excel.Workbook

Set oXlApp = CreateObject("Excel.Application")
Set oXlWbk = oXlApp.Workbooks.Open("C:\MonClasseur.xls")

With oXlWbk
'Imprimer tout le classeur
.PrintOut
'Imprimer la feuille "Feuil1"
.Worksheets("Feuil1").PrintOut
.Close
End With

oXlApp.Quit
Set oXlApp = Nothing
Messages postés
40
Date d'inscription
mardi 10 mai 2005
Statut
Membre
Dernière intervention
15 avril 2006

je lai mis
private sub from_load() ?