Salut tout le monde ,
Comme le titre l'indique, j'ai besoin de créer un classeur excel qui contient 6 feuilles, j'ai écrit un code mais qui crée 6 classeurs différents , mais moi j'ai besoin qu'il soit un seul classeur avec 6 feuilles !
CODE VB :
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
 Dim oXL As Excel.Application
        Dim oWB As Excel.Workbook
 
        Dim oRng As Excel.Range
        ' Start Excel and get Application object.
        oXL = CreateObject("Excel.Application")
        oXL.Visible = True
 
        ' Get a new workbook.
        Dim oSheet1 As Excel.Worksheet
        oWB = oXL.Workbooks.Add
        oSheet1 = oWB.ActiveSheet
        oSheet1.Name = "< 10 m"
        Dim oSheet2 As Excel.Worksheet
        oWB = oXL.Worksheets.Add
        oSheet2 = oWB.ActiveSheet
        oSheet2.Name = "10-20 m"
        Dim oSheet3 As Excel.Worksheet
        oWB = oXL.Worksheets.Add
        oSheet3 = oWB.ActiveSheet
        oSheet3.Name = "20-30 m"
        Dim oSheet4 As Excel.Worksheet
        oWB = oXL.Worksheets.Add
        oSheet4 = oWB.ActiveSheet
        oSheet4.Name = "30-40 m"
        Dim oSheet5 As Excel.Worksheet
        oWB = oXL.Worksheets.Add
        oSheet5 = oWB.ActiveSheet
        oSheet5.Name = "40-60 m"
        Dim oSheet6 As Excel.Worksheet
        oWB = oXL.Worksheets.Add
        oSheet6 = oWB.ActiveSheet
        oSheet6.Name = "> 60 m"