Discussion :

[markfish55]

Bonjour,

J'ai le code suivant qui me remonte l'erreur, alors que toute les references qu'il faut sont activé :

Code :

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

1
2
3
4
Public Sub test()
Dim accp As Object
Set accp = CreateObject("Access.Application")
End Sub

Pourriez-vous me dire d'ou cela peut venir?

Merci pour votre aide.

+++

[Invité]

Salut,

Pas besoin d'activer de référence spécifique si tu codes en 'late-binding'.
Access est bien installé sur ton poste ?

Sinon peut être une ou plusieurs références manquantes.
Pour 'nettoyer' les références utilise le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub DelInvalidReferences()
  Dim rf As Variant
  With ThisWorkbook.VBProject
    For Each rf In .References
      If rf.isbroken = True Then
        .References.Remove rf
      End If
    Next
  End With
End Sub