error: can't find project or library
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:
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 |
