Discussion :

[Katatonia]

Bonjour,
Je programme en vba sous access 2007 et excel 2003. Mon problème se passe lors de l'exécution du code sous access. Lorsque je fais appel à une macro implémentée sous excel, le code s'exécute, mais une fenètre apparait à la fin du code avec le message suivant:

Code :

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

microsoft office access can't find the object '-1'

Ce que je souhaite c'est retirer cette fenêtre, ou alors trouver la solution au problème.
D'après Microsoft support, ce serait un problème de table liées, or, après vérification, toutes mes tables liées sont bien instanciées dans la base.
Ce message d'erreur intervient après chaque éxécution d'une macro excel. Je n'ai pas ce problème lors de lancement de requête SQL sous access.
Pour exemple je vous présente une macro toute simple de suppression de fichiers.

Voici mon code sous 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
 
Private Sub CommandSupTmpFiles_Click()
On Error GoTo Err_CommandSupTmpFiles_Click
 
    DoCmd.RunMacro Module1.LanceMacroExcel("DeleteFilesTemp")
    MsgBox "Fichiers temporaires supprimés"
 
Exit_CommandSupTmpFiles_Click:
    Exit Sub
 
Err_CommandSupTmpFiles_Click:
    MsgBox Err.Description
    Resume Exit_CommandSupTmpFiles_Click
End Sub

Voici mon code de macro sous 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
 
Sub DeleteFilesTemp()
'---------------------------------------------------------------------------------------
' Macro     : DeleteFilesTemp
' Auteur    : xxx
' Détail    : Supprime les fichiers du dossier ...\temp\
'---------------------------------------------------------------------------------------
'
    Dim file As String
    file = Dir(srcPathPDP & "\temp\*.*")
    Do While file <> ""
        Kill srcPathPDP & "\temp\" & file
        file = Dir
    Loop
End Sub

Si vous avez besoin de plus de renseignements, n'hésitez pas à me le demander. Merci par avance pour vos réponses.

[Katatonia]

Problème résolu. Il fallait poster sur le forum pour trouver la solution soi-même. Pour ceux qui la veulent, c'est l'appel à la fonction qui était mauvais (seulement un mois de dev sous vba ). Il faut faire:

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
 
Private Sub CommandSupTmpFiles_Click()
On Error GoTo Err_CommandSupTmpFiles_Click
 
    If LanceMacroExcel("DeleteFilesTemp") = True Then
        MsgBox "Fichiers temporaires supprimés"
    Else
        GoTo Err_CommandSupTmpFiles_Click
    End If
 
Exit_CommandSupTmpFiles_Click:
    Exit Sub
 
Err_CommandSupTmpFiles_Click:
    MsgBox Err.Description
    Resume Exit_CommandSupTmpFiles_Click
End Sub