Activer les références

Bonjour tout le monde !

Je suis en train de développer une grosse application en vba (enfin quand je dis grosse, c'est grosse pour moi) et certaines fonctions que j'utilise ne sont pas gérées nativement par vba. Je me suis ainsi rendu compte que mon application ne fonctionnait pas sur certains postes. J'ai donc fait le tour des références activées sur mon poste, j'ai copié les fichiers DLL, OCX et TLB nécessaires dans un répertoire accessible à partir du réseau et j'appelle la macro suivante dans Workbook_Open :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub ActiverReferences()   Dim Path As String On Error Resume Next Application.DisplayAlerts = False Path = Range("Chemin_References").Value With ThisWorkbook.VBProject.References .AddFromFile Path & "FM20.DLL" .AddFromFile Path & "MSCOMCTL.OCX" .AddFromFile Path & "MSCAL.OCX" .AddFromFile Path & "FPDTC.DLL" .AddFromFile Path & "MSCOMCT2.OCX" .AddFromFile Path & "scrrun.dll" .AddFromFile Path & "msado21.tlb" End With Application.DisplayAlerts = True   End Sub

---

Mais voilà, je ne comprend pas pourquoi mais certaines références ne sont toujours pas activées sur certains postes (voir capture d'écran ci - jointe).

Le problème se répète surtout pour Microsoft Calendar Control 8.0 et pour Microsoft Windows Common Controls-2 6.0 (SP6).

Si quelqu'un pouvait me dire comment résoudre ce problème, j'avoue que ça m'arrangerai beaucoup.

Ce problème me bloque énormément car du coup je ne peux pas me servir de la macro suivante qui permet de supprimer le cadre autour de certains userforms :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long   Private Sub UserForm_Initialize()   '############################################# '## Suppression du cadre autour du Userform ## '#############################################   Dim hwnd As Long hwnd = FindWindow(vbNullString, Me.Caption) Style = GetWindowLong(hwnd, -16) And Not &HC00000 SetWindowLong hwnd, -16, Style DrawMenuBar hwnd   End Sub

---

Merci d'avance et très bonne journée à tout le monde.

Bon ben problème solutionné. Cette macro fonctionne très bien en fait. C'est jsute la personne qui s'en sert (moi en l'occurence) qui n'a pas été foutu de débugger ça correctement et qui as oublié de nommer la plage "Chemin_References". Désolé pour le dérangement.

Bonne journée tout le monde