Discussion :

[House MD]

Bonjour,

Mon nouveau problème (j'en ai environ 1 par heure) est le suivant :

Je suis sur une version d'office souvent plus avancée que celle de mes utilisateurs, du coup, les bibliothèques/références que j'active sont "manquantes" chez eux (p.ex : je suis sur ms ppt 11.0 tandis qu'eux n'ont droit qu'à la 10.0

Par ailleurs, à toutes fins utiles, je précise que leur version de bibliothèque antérieures est suffisante pour mes macros font, mais comme ces versions sont absentes chez moi (les anciennes), je ne peux pas les activer...

Vous sentez l'embrouille ?

Comment donc activer chez eux la dernière version de leur bibliothèque ? (sachant, bien évidemment, sinon ce serait trop simple, que leur parc n'est pas homogène, et qu'ils faut y aller poste par poste)

Je ramasse les copies dans 1 heure.

Merci évidemment...

[patbou]

bonsoir,

si tu ne peux pas travailler avec les liaisons statiques (versions differentes entre les postes), utilises les liaisons dynamiques.
VOIR AIDE : createobject

[pgz]

Bonjour.

Une copie intéressante, celle de Michel Blavin http://sinarf.developpez.com/access/autoref/

Bonne lecture,

PGZ

[Singular]

As-tu essayé d'enregistrer ton classeur dans un format de version antérieurs (par Fichier/Enregistrer sous... et le ComboBox 'Type de fichier')? Je ne prétend pas que ça fonctionne mais, juste une idée comme ça...

[pgz]

Bonjour.

Il y a un truc intéressant dans l'idée de Singular. Si tu connais la configuration la plus ancienne, par ex Excel 2000 avec les versions 9 je crois, tu vas sur ce poste et tu sélectionnes les bibliothèques. C'est cette version qu'il faut distribuer, sans l'ouvrir sur un autre poste entre temps.
Sur les versions plus récentes, je pense que la compatibilité ascendante devrait faire merveille. Dès l'ouverture les biblis dans leur version plus récentes devraient être sélectionnées.
A vérifier.

Bon courage,

PGZ

[House MD]

Merci à tous.
Beaucoup de bonnes idées.
Je teste ca lundi.

Merci encore.

[fred65200]

bonsoir,

Je pense que tu peux faire un test si la référence est manquante avec IsBroken, si c'est le cas, la supprimer et ensuite activer la bonne version

Code :

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

1
2
3
4
5
6
7
8
9
10
11
With ActiveWorkbook.VBProject
   'si la référence est manquante
   If .References("Nom_De_Ref").IsBroken Then
      'suppression de la référence manquante
      .References.Remove .References("Nom_De_Ref")
   End If
   'ajout de la ref
   .References.AddFromGuid GUID, 0, 0
' avec GUID de la forme "{00000000-0000-0000-0000-000000000000}"
' et 0 pour Major et Minor
End With

cordialement