Discussion :

[PatrickLC]

Bonjour,

J'ai un problème que je n'arrive pas à résoudre. C'est à propos de la gestion des objets Excel depuis Access.
Je cherche à créer un nouveau classeur, et l'appeler plus tard.

Voici le code, je ne comprends pas ce que fait access

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
Sub Exemple()
 
Dim xlApp As Excel.Application
Dim xlwb0 As Excel.Workbook
Dim xlsh0, xlsh1 As Excel.Worksheet
Dim reqexport As DAO.QueryDef
Dim rec As Recordset
 
Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlwb0 = xlApp.Workbooks.Add
 
xlwb0.Activate
debug.print xlwb0.Name	'Retourne Classeur3
debug.print ActiveWorkbook.Name	'Retourne classeur1
 
End sub

Lorsque je lance cette procédure je ne comprends pas pourquoi access retourne une valeur différente pour xlwb0.name et ActiveWorkbook.name...
Du coup, ce que je veux par la suite de ces classeurs ne fonctionne pas vraiment bien^^

Merci d'avance pour cotre aide !

Patrick

[Jean-Philippe André]

Bonjour

ActiveWorkbook n'a pour ainsi dire aucun sens du point de vue Access =]

Le fait de passer par une variable directement te facilitera la tache, car meme le nom du classeur peut changer en cours de processus

[PatrickLC]

Bonjour,

Ceci explique pourquoi le petit test que j'ai proposé ne m'a pas permis de résoudre mon problème.
J'ai déjà essayé de travailler avec des varaibles Worksheet et Workbook, sans succès. Je ne suis pas arrivé à mes fins et je ne comprends pas comment faire.

Voici une version raccourcie de ce que j'ai essayé pour écrire dans un classeur créé :

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
 
 
Sub Exemple()
 
Dim xlApp As Excel.Application
Dim xlwb0 As Excel.Workbook
Dim xlsh0, xlsh1 As Excel.Worksheet
 
Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlwb0 = xlApp.Workbooks.Add
Set xlsh0 = xlwb0.Sheets(1)
xlwb0.Sheets.Add.Move After:=xlsh0
Set xlsh1 = xlwb0.Sheets(2)
 
'Code
'... varcode
 
xlsh0.cells(1,1) = varcode
xlsh1.cells(2,2) = varcode * 2
 
Le soucis à ce moment-là est que le code n'écrit pas dans le bon classeur.
Je n'arrive pas à comprendre ce qui se passe dans la variable xlsh0.
 
xlapp = nothing
xlwb0 = nothing
xlsh0 = nothing
xlsh1 = nothing
 
End sub

Après des heures de prise de tête, toute aide est la bienvenue !!

Patrick

[Jean-Philippe André]

En fait en fonction des versions Excel que tu utilises, le classeur par defaut peut aussi bien avoir 1 feuille que 3 =]

Ce que je te propose ici serait la chose suivante :

Code :

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

1
2
3
4
5
6
Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlwb0 = xlApp.Workbooks.Add
Set xlsh0 = xlwb0.Worksheets(1)
Set xlsh1 xlwb0.Worksheets.Add
'eventuel Move ulterieur

[Invité]

Bonsoir,
Sans avoir besoin d'être un informaticien chevronné, il faut avoir un minimum de documentation sur le sujet que on traite.

Les variables qui sont susceptibles de intéresser dans ton projet, serait un bon début!

Code :

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

1
2
3
4
5
6
7
8
9
10
dim xls as Excel.Application
Dim wb as workbook
Dim ws as workseet
Dim rg as range
Set xls=new Excel.application
Xls.visible =True
Set wb=xls.workbooks.add
Set ws=wb.sheets.add
Set rg=ws.cells(1,1)
Rg.value="toto"

D'autres part évites activate, select et autres sélection dans ton code, c'est ce qu'on rabâcher sans arrêt sur le forum Excel Vba!

[PatrickLC]

Salut,

Avec vos conseils et en poursuivant un peu, je suis arrivé à mes fins.
Merci !

Voici une version simplifiée de ce à quoi j'ai abouti :

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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
Private Sub Commande39_Click()
 
Dim xlApp As Excel.Application
Dim xlwb0, xlwb1 As Excel.Workbook
Dim xlsh0, xlsh1, xlsh2, xlsh3 As Excel.Worksheet
 
On Error Resume Next
Set xlApp = Nothing
Set xlwb0 = Nothing
Set xlwb1 = Nothing
Set xlsh0 = Nothing
Set xlsh1 = Nothing
Set xlsh2 = Nothing
Set xlsh3 = Nothing
On Error GoTo 0
 
Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlwb0 = xlApp.Workbooks.Add
Set xlsh0 = xlwb0.Sheets(1)
xlwb0.Sheets.Add.Move After:=xlsh0
Set xlsh1 = xlwb0.Sheets(2)
 
Debug.Print xlwb0.Name & "-" & xlsh0.Name & "-" & xlsh1.Name
 
Set xlwb1 = xlApp.Workbooks.Add
Set xlsh2 = xlwb1.Sheets(1)
xlwb1.Sheets.Add.Move After:=xlsh2
Set xlsh3 = xlwb1.Sheets(2)
 
Debug.Print xlwb1.Name & "-" & xlsh2.Name & "-" & xlsh3.Name
 
ReDim ArrayTemp(1 To 25000, 1 To 250)
 
'xlwb0.xlsh0
For i = 1 To 25000
    For j = 1 To 250
        ArrayTemp(i, j) = 1
    Next j
Next i
With xlsh0
    With .Range(.Cells(1, 1), .Cells(25000, 250))
        .Value = ArrayTemp
    End With
End With
 
'xlwb0.xlsh1
For i = 1 To 25000
    For j = 1 To 250
        ArrayTemp(i, j) = 2
    Next j
Next i
With xlsh1
    With .Range(.Cells(1, 1), .Cells(25000, 250))
        .Value = ArrayTemp
    End With
End With
 
'xlwb1.xlsh2
For i = 1 To 25000
    For j = 1 To 250
        ArrayTemp(i, j) = 3
    Next j
Next i
With xlsh2
    With .Range(.Cells(1, 1), .Cells(25000, 250))
        .Value = ArrayTemp
    End With
End With
 
'xlwb1.xlsh3
For i = 1 To 25000
    For j = 1 To 250
        ArrayTemp(i, j) = 4
    Next j
Next i
With xlsh3
    With .Range(.Cells(1, 1), .Cells(25000, 250))
        .Value = ArrayTemp
    End With
End With
 
Set xlApp = Nothing
Set xlwb0 = Nothing
Set xlwb1 = Nothing
Set xlsh0 = Nothing
Set xlsh1 = Nothing
Set xlsh2 = Nothing
Set xlsh3 = Nothing
 
End Sub

Bon week end,

Patrick