Discussion :

[volganne]

Bonjour,

J'ai un problème sur un morceau de code dans Acces 2002.

Je souhaite effectuer l'ouverture de 4 fichiers Excel via un bouton dans un formulaire Access puis d'effectuer sur ces 4 fichiers un

Code :

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

Windows.Arrange ArrangeStyle:=xlTiled

, pour qu'il m'affiche une mosaique des 4 fichiers ouverts.
---------------------------------------------------
J'ai donc créé 2 fonctions chainées dans une macro :
La première pour ouvrir les fichiers 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
Function cmdOpenExcel_Click()
Dim xls As Excel.Application
On Error GoTo errHnd
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open "c:\temp\toto1.xls"
xls.Workbooks.Open "c:\temp\toto2.xls"
xls.Workbooks.Open "c:\temp\toto3.xls"
xls.Workbooks.Open "c:\temp\toto4.xls"
xls.Visible = True
Exit Function
 
errHnd:
MsgBox "Erreur N° " & Err.Number & vbLf & Err.Description, , Err.Source
 
End Function

La deuxième Fonction supposée afficher la mosaique.

Code :

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

1
2
3
4
Function WaXL()
 
    Windows.Arrange ArrangeStyle:=xlTiled
End Function

La macro chainant les 2 Fonction est appelée dans un formulaire.

Une fois sur 2 au lancement, la mosaique ne fonctionne pas et j'ai un message :

Microsof Visual Basic

Run-time error '1004':
Arrange method of Windows class failed

Avez vous une idée SVP ?
Merci pour votre aide.

[fgiambelluco]

Bonjour
Et si tu essayais de tout faire dans le même code

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
Function cmdOpenExcel_Click()
Dim xls As Excel.Application
On Error GoTo errHnd
Set xls = CreateObject("Excel.Application")
xls.Workbooks.Open "c:\temp\toto1.xls"
xls.Workbooks.Open "c:\temp\toto2.xls"
xls.Workbooks.Open "c:\temp\toto3.xls"
xls.Workbooks.Open "c:\temp\toto4.xls"
xls.Visible = True
xls.Windows.Arrange ArrangeStyle:=xlTiled
Exit Function
 
errHnd:
MsgBox "Erreur N° " & Err.Number & vbLf & Err.Description, , Err.Source
 
End Function

L'erreur peut venir du fait que tu ne fais plus référence à ton application Excel (xls.)

[volganne]

Ha...Ba oui....

Pourquoi faire simple quand on peu faire compliqué !!

Ca marche nikel Chrome....!

Merci a toi