Message 1004 Visual Basic - Access 2002
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:
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:
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:
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.
