error: can't find project or library

**kanissouf** · 10/07/2018, 22h34

Bonsoir à tous, je récupère des information à partir des automations dans un fichier Excel. je désire avoir tous les ordinateurs connectés sur mon réseau afin de choisir le serveur. j'ai un petit programme en VBA mais qui me génère l'erreur suivante: error can't find project or library.

Merci pour votre aide

voici le code:

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
37
38
39
40
41
42
43
 
Private Declare Function GetComputerName Lib "kernel32" _
        Alias "GetComputerNameA" (ByVal lpBuffer As String, _
        nSize As Long) As Long
 
Private Sub Workbook_Open()
    Dim Buffer As String, CName As String
    Dim Result As Long, lngMaxLen As Long
    Dim cmbServer As Object
    Dim i As Integer
    Dim ServerList As ListOfServer
 
    Const MAX_COMPUTERNAME_LENGTH = 15
 
    Sheet1.ResetSheet
 
    'Get local computer name
    lngMaxLen = MAX_COMPUTERNAME_LENGTH + 1
    Buffer = Space$(lngMaxLen)
    Result = GetComputerName(Buffer, lngMaxLen)
 
    If Result = 1 Then
        CName = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
    End If
 
    'Get remote computer names
    Set cmbServer = Sheet1.OLEObjects("cmbServer").Object
    ServerList = EnumServer(SRV_TYPE_ALL)
 
    'List all computer names
    cmbServer.AddItem CName
    cmbServer.ListIndex = 0
 
    If ServerList.Init Then
        For i = 1 To UBound(ServerList.List)
           If CName <> (ServerList.List(i).ServerName) Then
                 cmbServer.AddItem (ServerList.List(i).ServerName)
           End If
        Next
    End If
 
    Sheet1.OLEObjects("cmdConnect").Object.Enabled = True
End Sub

Invité · 10/07/2018, 22h44

Bonsoir,
Présentes nous un imprime écran de cette partie là

Code :

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

1
2
3
4
5
 
Private Declare Function GetComputerName Lib "kernel32" _
        Alias "GetComputerNameA" (ByVal lpBuffer As String, _
        nSize As Long) As Long
*