Excel + marge

cs_nicolasheurtevin Messages postés 88 Date d'inscription samedi 8 février 2003 Statut Membre Dernière intervention 29 août 2006 - 13 oct. 2003 à 16:55
cs_nicolasheurtevin Messages postés 88 Date d'inscription samedi 8 février 2003 Statut Membre Dernière intervention 29 août 2006 - 13 oct. 2003 à 17:13
Bonjour,

Je pilote Excel à partir de mon appli vb6 et j'aimerais spécifier les marges de ma page excel. En effet par défaut, elles sont toutes initialisées à 2,5 cm et j'aimerais les réduire à 1 cm, comment faire ?

Nicolas

3 réponses

cs_nicolasheurtevin Messages postés 88 Date d'inscription samedi 8 février 2003 Statut Membre Dernière intervention 29 août 2006
13 oct. 2003 à 17:08
J'ai trouvé tout seul, voici mon bout de code :

Dim Xcel_App As Excel.Application
Dim Xcel_Book As Excel.Workbook
Dim Xcel_Sheet As Excel.Worksheet
Set Xcel_App = New Excel.Application
Set Xcel_Book = Xcel_App.Workbooks.Add
Set Xcel_Sheet = Xcel_Book.Worksheets(1)


Xcel_Sheet.PageSetup.TopMargin = 21
Xcel_Sheet.PageSetup.LeftMargin = 21
Xcel_Sheet.PageSetup.RightMargin = 21
Xcel_Sheet.PageSetup.BottomMargin = 21

Nicolas
0
cs_nicolasheurtevin Messages postés 88 Date d'inscription samedi 8 février 2003 Statut Membre Dernière intervention 29 août 2006
13 oct. 2003 à 17:12
Ultime précision :

La largeur pour les marges se calcule de la manière suivante (à vérifier cependant)

LeftMargin = 72 donne une marge de gauche de 1 pouce, soit 2,54 cm.

Bon courage à tous, excel c'est pas facile piloter ;-)

Nicolas
0
cs_nicolasheurtevin Messages postés 88 Date d'inscription samedi 8 février 2003 Statut Membre Dernière intervention 29 août 2006
13 oct. 2003 à 17:13
Ultime précision :

La largeur pour les marges se calcule de la manière suivante (à vérifier cependant)

LeftMargin = 72 donne une marge de gauche de 1 pouce, soit 2,54 cm.

Bon courage à tous, excel c'est pas facile piloter ;-)

Nicolas
0
Rejoignez-nous