Discussion :

[saipas]

Salut,

j'aurais voulu savoir s'il était possible de modifier dynamiquement le path des références d'un projet VBA.

Je m'explique : j'ai donc un projet, dans lequel j'utilise des objets de la bibliothèque ADO, et j'ai donc à charger la .dll ADO dans mon projet.
Jusque là tout va bien, là où ça se complique c'est que le fichier Excel a vocation a être utilisé sur plusieurs ordinateurs, et que les chemins d'accès aux dll sont différents sur chacun d'eux (enfin basiquement il existe deux paths, un anglais "Common Files", et un français "Fichiers communs").

Comme il est assez impratique d'avoir à modifier les références à chaque démarrage, et que j'aimerais éviter d'avoir deux fichiers (un par jeu de références), j'aimerais donc pouvoir modifier ces chemins d'accès automatiquement au démarrage d'Excel.

Une idée ?


Merci d'avance,

@+

[Invité]

Bonjour

Je pense que tu trouveras ce qu'il te faut dans ce tuto :http://silkyroad.developpez.com/VBA/...Editor/#LIII-A de Silkyroad, au niveau du chapitre III A.

Starec

[saipas]

Hihi, merci

[saipas]

Voilà ma Sub, j'ai pas encore pu la tester puisque j'ai pas les autres ordinateurs sous la main, mais à priori ça devrait fonctionner, non ? :p

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub checkRefs()
 
Dim newPath As String
 
    For Each ref In ThisWorkbook.VBProject.References
        If ref.IsBroken = True Then
            newPath = Replace(ref.FullPath, "Common Files", "Fichiers Communs")
            ThisWorkbook.VBProject.References.Remove ref
            ThisWorkbook.VBProject.References.AddFromFile (newPath)
        End If
    Next ref
 
End Sub    
 
Copyright silkyroad ^^

Je remplace seulement common files par fichiers communs parce que c'est principalement (seulement?) là que se pose le problème.

Par contre, le but de tout ça était déjà de faire fonctionner le classeur, mais aussi de désactiver le message d'erreur à l'ouverture du fichier "Attention références manquantes" etc, c'est possible ?

[Invité]

Bonjour

Il me semble que dans le tuto SilkyRoad en parle.

Starec

[saipas]

Soit je suis une grosse fiante, soit non il n'en parle pas.. :p