Désactivation référence manquantes

[Pateros]

Bonjour, 😱

Je me demandais s'il était possible de désactiver les références manquantes au démarrage d'excel en vba?

J'ai regardais sur Internet mais les codes que j'ai trouvé ne fonctionnent pas,
et pour l'instant je suis obligé de le faire manuellement pour que ça fonctionne.

Je galère depuis hier pour trouver une solution mais je trouve pas

Merci d'avance

 

[Pierrot93]

Re : Désactivation référence manquantes

Bonjour,

pour moi les références manquantes d'un projet vba ne sont pas liées à l'application mais à un classeur... Si cela se produit sur tous les nouveaux classeurs que tu ouvres, il faut modifier le modèle qui est utilisé.... Recherche sur ton disque un fichier nommé "classeur.xlt" et modifie le en tant que modèle... A vérifier, mais c'est peut être un fichier caché, il y a lieu d'intégrer ce paramètre dans la recherche...

bonne journée
@+

 

[Pateros]

Re : Désactivation référence manquantes

Salut,

Le problème c'est que sur un des deux ordinateurs sur lequel je travaille je n'ai aucune référence manquante et mon fichier excel fonctionne correctement. Cependant, sur le second ordinateur (en utilisant tjs le même fichier excel) il me met des erreurs de compilation qui disparaissent si je désactive les références manquantes.

Mais je suis systématiquement obligé en travaillant sur ce deuxième oridnateur de passer par cette étape pour que ma macro fonctionne.

Cordialement

 

[Pierrot93]

Re : Désactivation référence manquantes

Re,

Aarf, c'est le meme fichier qui est concerné, je n'avais pas compris ca... Sans doute une version des controles "activex" qui n'est pas la même... Et tu utilises des objets de type "dtpicker"... Essaye peut être de re-créer le contrôle avec la version la plus récente, à voir....

 

[Pateros]

Re : Désactivation référence manquantes

Re,

Je n'utilise pas d'objet de type Dtpicker, et comme les ordinateurs sont sur un reseau je ne peux pas installer ou mettre à jour des controle active x.

🙁

 

[Pierrot93]

Re : Désactivation référence manquantes

Re,

essaye peut être ce code à placer dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
Dim r As Object
With ThisWorkbook.VBProject
    For Each r In .References
        If r.Description Like "*MANQUANT*" Then .References.Remove .References(r.Name): Exit For
    Next r
End With
End Sub

enlève le :

 :Exit For

si tu risques d'avoir plusieurs références manquantes.

Attention il faut cocher l'option "faire confiance au projet visual basic", barre de menu Excel => Outils => Macros => Sécurité => onglet "Editeurs approuvés".

@+

 

[Pateros]

Re : Désactivation référence manquantes

Salut,

J'ai essayé ton code mais j'ai le message d'erreur suivant:

"Erreur de chargement de la DLL"

Merci

 

[Pierrot93]

Re : Désactivation référence manquantes

Re,

comprends pas chez moi ce code fonctionne... il faudrait peut être un fichier reproduisant le cas...
@+

 

[Cousinhub]

Re : Désactivation référence manquantes

Bonsoir,

Bsr Pierrot 🙂🙂

Un code de Ce site n'existe plus

Private Sub Workbook_Open()
    RemoveBrokenRefs ThisWorkbook
End Sub

Sub RemoveBrokenRefs(Wbk As Workbook)
Dim Ref As Object, Refs As Object
Set Refs = Wbk.VBProject.References
For Each Ref In Refs
    If Ref.IsBroken = True Then
        Refs.Remove Refs.Item(Ref.Name)
    End If
Next Ref
End Sub

A tester....

Bonne soirée (chaude, par ici, fin de l'hiver....😉)

Edit, oublié de mettre le lien vers ce site de référence, tout comme plein d'autres....(j'en oublierai en les citant....)

 

[Pateros]

Re : Désactivation référence manquantes

Salut, 🙁

Je suis désolé mais j'ai tjs le même message d'erreur:
(Le code est placé dans ThisWorkbook)

Erreur d'exécution 48:

Erreur de chargement de la DLL

Merci de m'avoir répondu