Excel et VB6
Signaler
cs_jeanluc
boss2000
- Messages postés
- 7
- Date d'inscription
- lundi 30 octobre 2000
- Statut
- Membre
- Dernière intervention
- 9 janvier 2003
boss2000
- Messages postés
- 40
- Date d'inscription
- mardi 10 mai 2005
- Statut
- Membre
- Dernière intervention
- 15 avril 2006
A voir également:
- Excel et VB6
- Manipuler des fichiers excel sous vb6 sans référencer excel et sans laisser de processus dans le ges - Conseils pratiques - Visual Basic / VB.NET
- D'excel vers vb6 - Codes sources - Visual Basic / VB.NET (Tutoriels)
- Pilotage d'excel depuis vb6 - Codes sources - Visual Basic / VB.NET (Périphériques)
- Visual Basic / VB.NET : Manipuler excel depuis vb6 - CodeS SourceS - Guide
- Ecrire dans un fichier excel avec VB6????? ✓ - Forum - Visual Basic
5 réponses
cs_wape
- Messages postés
- 262
- Date d'inscription
- samedi 21 décembre 2002
- Statut
- Membre
- Dernière intervention
- 19 décembre 2010
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
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
ktmpb
- 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)
cs_jeanluc
- 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
@+
jluc
boss2000
- 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
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