Discussion :

[trash_07]

Bonjour,

L'entreprise dans laquelle je suis travaille avec plusieurs versions d'Excel, elles même étant dans différentes langues. Ceci me pose pas mal de problèmes, car pour l'utilisation de mes macros, je ne retrouve plus les références adéquates (les chemins vers les bibliothèques étant stockées en "dur"). Je pense à plusieurs solutions pour contourner mon problème :

1) Ne pas utiliser les références manquantes

il suffirait (ah, si le monde était si simple) de décocher automatiquement les bibliothèques signalées comme "manquante". (Avant que l'on me dise, pourquoi ne pas enlever les références tout simplement) je tiens à préciser que pour certains postes l'utilisation de macro est nécessaire mais une autre action sera prise dans ce cas là (copie des références ... , le nombre de poste étant limité), toutefois le fichier doit leur être envoyé de la même façon.

Existe-il via un script vba permettant de décocher automatiquement ces références manquantes?

2) ajouter mes références dans un lien dynamique
Si le dossier n'est pas trop volumineux je peux éventuellement l'associer avec mon répertoire mais j'aurais dans ce cas besoin de lien dynamique.
Peut on automatiser cette référence de VBA via un lien dynamique?

Je sais que nous pouvons traiter plus ou moins ces références
Cf : http://sinarf.developpez.com/access/autoref/
Toutefois j'ai l'impression (j'ai peut être mal compris le code) qu'il renvoi une erreur sur une référence non trouvé, mais ne l’enlève pas de la liste de référence.

Une autre question sur le mécanisme d'excel : Intègre il en début de programme mes références et y revient il dessus (même si elle ne sont pas appelé). Car dans le cas contraire, j'aurais peut être juste à traiter le code erreur référence manquante, et continuer mon programme.

[mercatog]

Pour décocher une référence manquante

Code :

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

1
2
3
4
5
6
7
8
'Active la référence Microsoft Visual Basic For Extensibility
Sub TestRef()
Dim Ref As Reference
 
For Each Ref In ThisWorkbook.VBProject.References
    If Ref.IsBroken Then ThisWorkbook.VBProject.References.Remove Ref
Next Ref
End Sub

[trash_07]

Merci pour ces informations, exactement ce que je cherchais.