Discussion :

[daniel_gre]

Bonjour,

J'ai un fichier Excel partagé entre utilisateurs de Office 2003 et Office 2007.
Après utilisation du fichier (et sauvegarde) sous Office 2007, il y a, bien sur, des Référence cassées lorsqu'on utilise le fichier sous Office 2003.

À partir d'un code VBA, je souhaite supprimer ses références cassées et remettre les [références] appropriées a Office 2003 (OFFICE11/*.olb)

Pour remettre les références, ça marche très bien...

Mon problème est pour supprimer les références (MISSING) !!??
avec le code suivant:

Code :

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

1
2
3
4
5
6
Dim Ref As Object
 
'Efface les references "Broken"
For Each Ref In ThisWorkbook.VBProject.References
    If Ref.IsBroken = True Then ThisWorkbook.VBProject.References.Remove Ref
Next Ref

Lorsque je tourne le code aucune erreur ne survient. Je regarde les références, les MISSING sont toujours là. Je sauvegarde le fichier...
Mais lorsque je veux ré-ouvrir le fichier, Excel me dit "ne sait pas charger DLL"

Quelqu'un a-t-il une idée du problème?
Quelqu'un a-t-il un exemple de code qui marche parfaitement?

par avance merci,

Daniel.

[ucfoutu]

Bonsoir,

essaye ainsi (au hasard) :

Code :

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

If Ref.IsBroken = True Then ThisWorkbook.VBProject.References.Remove Ref.Name