Mise en page d'Excel avec VB6 ?

**sebajedi** · 19/12/2006, 09h13

Bonjour,

Je n'arrive pas trouver l'instruction pour mettre en page correctement mon document word a partir de VB6. J'arrive bien a changer la largeur des colonnes, a fusioner des colonnes....Mais maintenant je souhaite modifier dans la mise en page les marges de Gauche, droite, haut et bas ???? comment faire...
Merci
Dessous mon code pour le parametrage de ma feuille Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
'------------------
' Remplir le fichier
'------------------
Private Sub Command4_Click()
 
'Définition des variables
Dim DocExcel As Excel.Application
Dim Txt1 As String
 
 
'Test si pas de saisie
If Text1.Text = "" Then
        MsgBox "Manque une ou des informations"
        Text1.SetFocus
        Exit Sub
End If
 
Txt1$ = Text1.Text
 
 
'ouvre Excel
Set DocExcel = CreateObject("Excel.Application")
DocExcel.Visible = True
 
'supprime l'affichage des messages d'erreurs
DocExcel.DisplayAlerts = False
 
'ajoute un nouveau classeur
DocExcel.Workbooks.Add
 
'selectionne la feuille du classeur
DocExcel.Sheets("Feuil2").Select
 
'on supprime la feuille 2
DocExcel.ActiveWindow.SelectedSheets.Delete
 
'on fait pareil avec la feuille 3
DocExcel.Sheets("Feuil3").Select
 
'on supprime la feuille 3
DocExcel.ActiveWindow.SelectedSheets.Delete
 
'on selectionne la feuille 1 (la seule qui reste)
DocExcel.Sheets("Feuil1").Select
 
'on change le nom de celle ci
DocExcel.Sheets("Feuil1").Name = "Etiquette"
 
'on change la largeur de la colonne
DocExcel.Columns("A:A").ColumnWidth = 13
 
'Text dans Cellule A2
DocExcel.Range("A2:B2").Select
DocExcel.Selection.MergeCells = True
DocExcel.Range("A2").Select
DocExcel.Selection.Font.Size = 8
DocExcel.Selection.Font.Name = "Arial"
DocExcel.Selection.Font.Italic = True
DocExcel.ActiveCell.FormulaR1C1 = "Nom"
 
End Sub

**Sytchev3** · 19/12/2006, 09h23

Pour la mise en page de ta feuille excel le code devrait ressembler à quelquechose comme ça :

ce bout de code devrait t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.393700787401575)
        .RightMargin = Application.InchesToPoints(0.393700787401575)
        .TopMargin = Application.InchesToPoints(0.393700787401575)
        .BottomMargin = Application.InchesToPoints(0.393700787401575)
        .HeaderMargin = Application.InchesToPoints(0.393700787401575)
        .FooterMargin = Application.InchesToPoints(0.393700787401575)
End With