J'ai un problème avec GetObject. Le morceau de code ci dessous fonctionne bien sur mon PC, mais pas sur un autre (Même Windows XP SP2, même Access 2000, même références dans VBA (menu "outil" ->"référence").

De quoi celà peut il bien venir???

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
 
    'Récupère le chemin de la base de donnée
Dim MaBD1
MaBD1 = Application.CurrentProject.Path 'chemin du fichier 
 
    'Vérifie si le fichier excel existe ou non dans le même répertoire _
    que le fichier Access (si fichier supprimé, déplacé ou renomé
If Dir(MaBD1 & "\ImportV3.xls", vbHidden) <> "" Then 'le fichier existe (vbHidden permet de le retrouver même s'il est caché)
        'Vérifie si le fichier est ouvert
    If IsFileOpen(MaBD1 & "\ImportV3.xls") Then 'Utilise la Function dans le module 'Fichier Ouvert'
        MsgBox "Le fichier " & MaBD1 & "\ImportV3.xls est déjà ouvert. Veuillez fermer le classeur et réessayer.", vbOKOnly + vbCritical, "Importation interompue"
    Else
        'Utilise le chemin pour ouvrir le fichier Excel
        Set ExcelWorksheet = GetObject(MaBD1 & "\ImportV3.xls", "Excel.Sheet")
 
'reste du code + end if ect...