Apercu excel
PENSSSIUMDK59
Messages postés
10
Date d'inscription
vendredi 21 mai 2004
Statut
Membre
Dernière intervention
6 octobre 2004
-
27 juin 2004 à 16:29
PENSSSIUMDK59 Messages postés 10 Date d'inscription vendredi 21 mai 2004 Statut Membre Dernière intervention 6 octobre 2004 - 28 juin 2004 à 09:52
PENSSSIUMDK59 Messages postés 10 Date d'inscription vendredi 21 mai 2004 Statut Membre Dernière intervention 6 octobre 2004 - 28 juin 2004 à 09:52
1 réponse
PENSSSIUMDK59
Messages postés
10
Date d'inscription
vendredi 21 mai 2004
Statut
Membre
Dernière intervention
6 octobre 2004
28 juin 2004 à 09:52
28 juin 2004 à 09:52
C bon ca marche
en fait j avais oublié d'activer la vision de la feuille excel avant !!!
je met le code pour ceux que ca intéresse !!!
Dim exlapp As Object
Dim exldoc As Object
Dim sheet As Object
Set exlapp = CreateObject("excel.application")
Set exldoc = exlapp.workbooks.Open(chemin fichier .xls")
Set sheet = exlapp.ActiveWorkbook.ActiveSheet
sheet.application.Visible = True
sheet.Cells(1, 1).Value = "ce que vous voulez écrire"
sheet.PrintPreview
exlapp.workbooks.Close
Set sheet = Nothing
Set exldoc = Nothing
Set exlapp = Nothing
PEN$$$$IUM de St pol :-)
en fait j avais oublié d'activer la vision de la feuille excel avant !!!
je met le code pour ceux que ca intéresse !!!
Dim exlapp As Object
Dim exldoc As Object
Dim sheet As Object
Set exlapp = CreateObject("excel.application")
Set exldoc = exlapp.workbooks.Open(chemin fichier .xls")
Set sheet = exlapp.ActiveWorkbook.ActiveSheet
sheet.application.Visible = True
sheet.Cells(1, 1).Value = "ce que vous voulez écrire"
sheet.PrintPreview
exlapp.workbooks.Close
Set sheet = Nothing
Set exldoc = Nothing
Set exlapp = Nothing
PEN$$$$IUM de St pol :-)
