Suppression de références en VBA

Bonjour,

J'ai une application sous ACCESS qui marche très bien sous Windows 7.

Quand je désir la lire sur un Windows XP on m'indique un problème de bibliothèque.

Je sais que je dois décocher la référence manquante (l'application marche parfaitement), ce que je voudrais c'est faire un code en VBA permettant de décocher la référence manquante, j'ai trouvé plusieurs code comme :

Code:

---

1 2 3 4 5 6 7 8

Private Sub References_RemoveMissing() Dim theRef As Reference   For Each theRef In Application.References If theRef.IsBroken Then Application.References.Remove theRef End If Next theRef

---

Je voudrais savoir si le code est correcte et également savoir pourquoi lorsqu'il se lance j'ai un problème de DLL qui apparait ? Ce message n'apparait pas lorsqu'on désactive la référence manquante manuellement.

Cordialement

Bonjour,

J'ai réussi à trouver la réponse à ma question :D

Je met le bout de code qui m'a permi de pouvoir retirer la référence manquante entre access sur un windows 7 et access sur un windows XP.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Public Function GetReferences()   DoCmd.SetWarnings False Dim ref As Reference Dim orst As DAO.Recordset Dim oDb As DAO.Database DoCmd.RunSQL "DELETE *.* FROM Références;" Set orst = CurrentDb.OpenRecordset("Références") For Each ref In Application.References orst.AddNew orst!Nom = ref.Name orst!Version = ref.Major & "." & ref.Minor orst!Chemin = ref.FullPath orst.Update Next ref orst.Close Set orst = Nothing DoCmd.SetWarnings True     End Function

---

On créait une routine qui liste toutes les références utilisées dans la base et qui remplit une table (Références) avec le nom, la version et le chemin complet.

Merci