Discussion :

[garheb]

Bonjour à tous,

Dans un module que j'ai créé, j'utilise plusieurs références, en l’occurrence ceux-ci:



Donc là c'est un screenshot depuis lequel ça bug. Une référence est marquée manquante, et du coup il m'est impossible d'exécuter la macro. J'ai tenté d'utiliser divers macros afin de résoudre le problème (y compris trouvés sur le forum), mais le code de fix ne s'exécute pas du tout étant donné que le blocage se fait dès que l'on tente d'exécuter le module:



Sur les autres posts le code marche pourtant très bien.

Voici le code utilisé pour tenter de résoudre le souci, mais qui ne fonctionne pas car il ne s'exécute pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
NbreRef = ThisWorkbook.VBProject.References.Count
 
For i = 1 To NbreRef
 
    If ThisWorkbook.VBProject.References(i).IsBroken Then
 
        Debug.Print ThisWorkbook.VBProject.References(i)
        ThisWorkbook.VBProject.References.Remove     ThisWorkbook.VBProject.References(i)
 
    End If
 
Next i

NB: Si je décoche la référence manquante ça fonctionne bien.

Merci à vous!

[Qwazerty]

Salut
Dans ta boucle il t'ai possible de tester si les références sont en bon état ou pas

Code :

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

if ThisWorkbook.VBProject.References(i).IsBroken then 'la reference ne fonctionne pas

J’espère que cela t'aidera.

Par contre 2 remarques, si la référence est marquée manquante sur un poste c'est que le fichier (Dll par exemple) est manquant sur le poste en question, essai de voir pour le rajouter si tu as les droits
.
Tu dis que si tu retires cette référence tout fonctionne bien, pourquoi ne pas carrément la retirer du fichier que tu diffuses?

++
Qwaz

[tarnx]

Il te manque un fichier DLL.
Apparemment c'est Comctl32.dll

Tu peux télécharger la librairie ici.

Mais si ça fonctionne sans, pourquoi vouloir la référencer?

[garheb]

Coucou,

Le souci c'est que si je le décoche sur ce poste et enregistre, il sera recoché après reboot, donc le décochage devra être fait à chaque boot, c'est pas difficile pour moi, mais pour les personnes du service qui ne savent même pas ce qu'est VBA ça peut poser problème.

Sinon Qwazerty je l'ai bien mise cette condition dans mon code:

Code :

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

1
2
3
4
5
6
If ThisWorkbook.VBProject.References(i).IsBroken Then
 
        Debug.Print ThisWorkbook.VBProject.References(i)
        ThisWorkbook.VBProject.References.Remove     ThisWorkbook.VBProject.References(i)
 
    End If

Le souci c'est que le module ne se compile pas à cause de ça, du coup je ne peux pas exécuter la correction

Je vais tester d'ajouter le .dll, mais par contre il y a aussi un souci à ce niveau, car ça marchera sur le poste à problème, mais rien ne dit que dans 6 mois il ne manquera pas la même dll ou une autre sur un autre poste et du coup ils seront bloqués (car je suis en stage, je pars dans un mois et demi), j'aurais voulu automatiser la résolution d'éventuels bugs pour pas qu'ils aient de soucis.

Merci en tous cas!

[garheb]

Update: J'ai tenté d'installer la dll que tu m'as fourni, mais ça n'a pas fonctionné (rien changé), j'ai regardé le chemin de la référence, et ça donnait sur le fichier "mscomtc2.osx", j'ai aussi tenté, mais pareil ça n'a rien changé toujours le bug de référence manquante.

(Je les ai mis dans C:\WINDOWS\System32, où ils étaient déjà présents, je les ai donc remplacés)

[tarnx]

J'avais eu le même soucis . Pour palier au problème, j'avais ajouté un dossier contenant les références nécessaires à l'application, dans le même répertoire que le fichier. A chaque démarrage de l'appli, je teste s'il ne manque pas de références, si c'est le cas, je les charge.

Voilà le code en question :

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
27
28
29
30
31
32
33
34
Public Sub verifReferences()
 
    Dim arrRef(5) As String
    Dim ref As Reference
    Dim blnExit As Boolean
    Dim strPath As String
    Dim i As Integer
 
    arrRef(0) = "X.DLL"
    ...
    arrRef(5) = "Y.DLL"
 
 
 
    For i = 0 To 5
        blnExist = False
        For Each ref In ThisWorkbook.VBProject.References
 
            If Right(ref.FullPath, Len(arrRef(i))) = arrRef(i) Then
                blnExist = True
            End If
        Next ref
 
        If Not blnExist Then
            strPath = ThisWorkbook.Path & "\Sources\Utilitaires\" & arrRef(i)
            If Dir(strPath) = "" Then GoTo Err_File
             ThisWorkbook.VBProject.References.AddFromFile strPath
        End If
    Next i
    Exit Sub
Err_File:
        MsgBox "Une référence est manquante, certaines fonctionnalités de l'application risquent de ne pas être disponibles", vbCritical
 
End Sub

C'est un solution, peut-être pas la meilleur, mais s'en est une.

[garheb]

Merci je vais tester ça je vous tiens au courant!

[tarnx]

Message précédent en réponse à celui de 13:33.

ça donnait sur le fichier "mscomtc2.osx"

Je me suis peut-être (sans doute ) trompé.

Du coup, le ficher mscomtc2.osx est-il présent sur ton disque?

[garheb]

Oui il est bien présent, je l'ai écrasé par un dl sur le net, mais ça ne fonctionnait toujours pas, je teste ta deuxième solution, ça a bien régénéré la référence donc elle n'est plus marquée manquante, je reboot pour voir si ça reste ou pas.

Edit: Ta solution fonctionne parfaitement! La référence était toujours ok après reboot!

Le code adapté au souci, si quelqu'un en a l'utilité:

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
27
28
29
30
31
32
33
34
35
36
Public Sub verifReferences()
 
    Dim arrRef As String
    Dim blnExit As Boolean
    Dim strPath As String
 
    arrRef = "MSCOMCT2.OCX"
 
 
 
    'For i = 0 To 5
 
        blnExist = False
 
        For Each ref In ThisWorkbook.VBProject.References
            Debug.Print ref.Name & " " & arrRef
            If ref.Name = "MSComCtl2" Then
                blnExist = True
            End If
 
        Next ref
 
        If Not blnExist Then
 
            strPath = ThisWorkbook.Path
            If Dir(strPath) = "" Then GoTo Err_File
            References.AddFromFile strPath
 
        End If
 
    Exit Sub
 
Err_File:
        MsgBox "Une référence est manquante, certaines fonctionnalités de l'application risquent de ne pas être disponibles", vbCritical
 
End Sub