Imprimer un fichier exel a partir d'1 bouton VB

ordipard Messages postés 155 Date d'inscription jeudi 10 juin 2004 Statut Membre Dernière intervention 12 novembre 2009 - 14 juin 2004 à 13:37
ordipard Messages postés 155 Date d'inscription jeudi 10 juin 2004 Statut Membre Dernière intervention 12 novembre 2009 - 14 juin 2004 à 14:09
salut,
je voudrai imprimer un fichier exel a partir d'1 bouton VB
jai essayé print "cheminfichier.xls" mais ca ne m'imprime pas ca me marque le chemin de mon fichier sur la form
es ke quelqun pourrai maider svp

merci d'avance

7 réponses

cs_funseb Messages postés 154 Date d'inscription dimanche 29 juin 2003 Statut Membre Dernière intervention 28 janvier 2010 1
14 juin 2004 à 13:42
excel.Workbooks.Open (chemin)
excel.DisplayAlerts = False
excel.Visible = False
excel.ActiveWorkbook.PrintOut
excel.ActiveWorkbook.Close
excel.Quit

clac-clac
0
ordipard Messages postés 155 Date d'inscription jeudi 10 juin 2004 Statut Membre Dernière intervention 12 novembre 2009
14 juin 2004 à 13:50
jai essayé mai ca me dit
un objet est obligatoire peut tu maider?
0
cs_funseb Messages postés 154 Date d'inscription dimanche 29 juin 2003 Statut Membre Dernière intervention 28 janvier 2010 1
14 juin 2004 à 13:53
tu declare
dim excel As excel.Application

et dans la procédure avant le code que je t donné précédemment tu met :

Set excel = CreateObject("excel.Application")

clac-clac
0
cs_funseb Messages postés 154 Date d'inscription dimanche 29 juin 2003 Statut Membre Dernière intervention 28 janvier 2010 1
14 juin 2004 à 13:53
il faut également ajouter la référence

microsoft excel

clac-clac
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
ordipard Messages postés 155 Date d'inscription jeudi 10 juin 2004 Statut Membre Dernière intervention 12 novembre 2009
14 juin 2004 à 13:58
ca marche tjr pa
0
cs_funseb Messages postés 154 Date d'inscription dimanche 29 juin 2003 Statut Membre Dernière intervention 28 janvier 2010 1
14 juin 2004 à 14:00
ta bien remplacer chemin dans mon code prédédent par le chemin de ton fichier , ex : "C:\monfichier.xls" entre guillemet??

clac-clac
0
ordipard Messages postés 155 Date d'inscription jeudi 10 juin 2004 Statut Membre Dernière intervention 12 novembre 2009
14 juin 2004 à 14:09
ca yest jai réussi mais pa avc ton code source
si ca t'interresse jai fait :

Dim oExcel As Object
Set oExcel = CreateObject("Excel.application")
oExcel.application.Visible = False
oExcel.Workbooks.Open filename:="c:\titus\toto\2004\janvier.xls"
oExcel.ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=False
Set oExcel = Nothing

voila

merci quand même de m'avoir aidé

ciao
0