Discussion :

[chafik2000]

Bonjour à tous,
Mon problème est le suivant : J'ai créé plusieurs fonctions sous VBA Excel que j'ai voulu intégrer en tant que module complémentaire d'Excel. j'ai créé donc un fichier .xlam . Tout marche très bien.

Le problème c'est que mes fonction nécessite l'activation de plusieurs références dans la bibliothèque VBA. je cherche donc un code qui me permettra d'activer automatiquement ses références avant chaque utilisation.

Ca aurait été plus simple de les activer une fois pour toute mais les fonction en question vont être utilisées sur plusieurs PC.

pour information, j'ai mis la liste des références que je voudrais activer


Merci pour votre aide

[CODYCO]

Essais ca en te servant d'un onglet administrateur avec la liste des bibliothèque nécessaire...

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
17
18
19
20
21
22
23
24
25
26
 
NbreRef = ThisWorkbook.VBProject.References.Count
y = 11
x = 1
Set ThisProj = ActiveWorkbook.VBProject
 
For Each thisref In ThisProj.References
   Cells(x, y) = thisref.Name
   x = x + 1
   Cells(x, y) = thisref.Description
   x = x + 1
   Cells(x, y) = thisref.Guid
   x = x + 1
   Cells(x, y) = thisref.FullPath
 
'SI PAS PRESENTE
            If thisref.IsBroken = True Then
                ThisWorkbook.VBProject.References.AddFromFile thisref.FullPath 'ON LA MET
                MsgBox "La bibliotheque " & thisref.Name & " a été ajoutée"
                Else
                MsgBox "Bibliotheque " & thisref.Name & " déja présente"
            End If
 
y = y + 1
x = 1
Next

[chafik2000]

Essais ca en te servant d'un onglet administrateur avec la liste des bibliothèque nécessaire...

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
17
18
19
20
21
22
23
24
25
26
 
NbreRef = ThisWorkbook.VBProject.References.Count
y = 11
x = 1
Set ThisProj = ActiveWorkbook.VBProject
 
For Each thisref In ThisProj.References
   Cells(x, y) = thisref.Name
   x = x + 1
   Cells(x, y) = thisref.Description
   x = x + 1
   Cells(x, y) = thisref.Guid
   x = x + 1
   Cells(x, y) = thisref.FullPath
 
'SI PAS PRESENTE
            If thisref.IsBroken = True Then
                ThisWorkbook.VBProject.References.AddFromFile thisref.FullPath 'ON LA MET
                MsgBox "La bibliotheque " & thisref.Name & " a été ajoutée"
                Else
                MsgBox "Bibliotheque " & thisref.Name & " déja présente"
            End If
 
y = y + 1
x = 1
Next

Merci pour la réponse,
Mais est-ce que tu pourrait stp être plus claire ? j'ai l'impression que dans ta boucle tu fais une boucle sur un tableau qui rajoute les path de chaque référence. est-ce que je dois mettre ce tableau dans une feuille ? d'où est ce que je pourrait avoir les path de chaque référence? et c'est quoi l'onglet administrateur dont tu as parlé?

Merci encore et désolé pour toutes ces questions.

[Jean-Philippe André]

salut,

il est possible d'ajouter des references avec du VBA.

Mot Clé Reference.

L'aide en ligne donne un bon exemple.

Reste à toi de récupérer les paths des références que tu souhaites ajouter, et de mettre le code à l'ouverture du classeur (Workbook_Open())