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
Bonjour a tous et merci pour les réponses que j ai déja eu !!

Maintenant je voudrais savoir comment onfaitpour afficher l'apercu de excel sur vb6

j ai essayé : nomdelaform.printpreview mais ca marche pas

merci d avance

PEN$$$$IUM de St pol :-)

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
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 :-)
0