Discussion :

[smix13]

Bonjour,
sur mon formulaire ACCESS j'ai integré deux macros, une mecro excel et une macro access, quand je clic sur le button pour lancer les deux macro ça me fait planter ACCESS. et je ne trouve pas où est l'erreur ??

Voici le 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
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Bascule32_Click()
On Error GoTo Err_Bascule32_Click
 
    Dim oApp As Object
    'Dim macro As String
    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
 
 
 
    oApp.Workbooks.Open ("P:\Business Planning\Prévisions et Dimensionnement\Listing événements prévisions\Test\macroauto.xls")
 
    oApp.Run "ImportData"
 
    DoCmd.RunMacro "Macro1"
 
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True
 
Exit_Bascule32_Click:
    Exit Sub
 
Err_Bascule32_Click:
    MsgBox Err.description
    Resume Exit_Bascule32_Click
 
End Sub

merci de votre aide

[Jean-Philippe André]

salut,
en faisant du pas à pas, tu devrais déjà trouver ce qui est correct de ce qui ne l'est pas
pour débugger, vire le on error goto qui ne t'apporte rien dans le cadre du test