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.