Barres de menu Imprimer
S4ngo
Messages postés
51
Date d'inscription
mercredi 15 décembre 2004
Statut
Membre
Dernière intervention
11 mai 2006
-
8 févr. 2006 à 16:09
S4ngo Messages postés 51 Date d'inscription mercredi 15 décembre 2004 Statut Membre Dernière intervention 11 mai 2006 - 9 févr. 2006 à 10:27
S4ngo Messages postés 51 Date d'inscription mercredi 15 décembre 2004 Statut Membre Dernière intervention 11 mai 2006 - 9 févr. 2006 à 10:27
A voir également:
- Vba user-defined type not defined
- Imprimer bd - Forum C / C++ / C++.NET
- Binairo à imprimer - Forum C# / .NET
- Tableau score flechette a imprimer - Forum VB.NET
- Remplir un grille de jeu binero - Forum Java
- Menu php - Forum PHP
3 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
8 févr. 2006 à 21:20
8 févr. 2006 à 21:20
Bonsoir,
Essaye ce code, je n'ai pas d'imprimante reliée à mon portable pour l'instant, donc je ne sais pas faire d'essai.
Private Sub Command1_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:\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
Essaye ce code, je n'ai pas d'imprimante reliée à mon portable pour l'instant, donc je ne sais pas faire d'essai.
Private Sub Command1_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:\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
S4ngo
Messages postés
51
Date d'inscription
mercredi 15 décembre 2004
Statut
Membre
Dernière intervention
11 mai 2006
9 févr. 2006 à 10:24
9 févr. 2006 à 10:24
ok v essayer sa, merci beaucoup
S4ngo
Messages postés
51
Date d'inscription
mercredi 15 décembre 2004
Statut
Membre
Dernière intervention
11 mai 2006
9 févr. 2006 à 10:27
9 févr. 2006 à 10:27
j'ai mis Sub mnu_Imprimer_Click(), mais mnt il me met une erreur.
Compile error: User-defined type not defined
Compile error: User-defined type not defined