Discussion :

[jackfred]

Bonjour à tous.

J'ai mis en place un tracker avec l'aide précieuse de vos intelligeances respective et de ce fameu "Dave Peterson".

Cf code suivant :

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
Declare Function GetComputerName& Lib "kernel32" Alias "GetComputerNameA" (ByVal lbbuffer As String, nSize As Long)
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
'---------------------------------
Function OSMachineName() As String
 
'Num : 00001B1
'Suivi des Connexions
'Date de dernière modification : 18/05/2007
 
'Dave Peterson, mpep
Dim Buffer As String * 256
Dim BuffLen As Long
Dim lngX As Long
Dim strCompName As String
BuffLen = 255
If GetComputerName(Buffer, BuffLen) Then
OSMachineName = Left(Buffer, BuffLen)
End If
End Function
'---------------------------------
 
Function OSUserName() As String
 
'Num : 00001B2
'Suivi des Connexions
'Date de dernière modification : 18/05/2007
 
'Dave Peterson, mpep
Dim Buffer As String * 256
Dim BuffLen As Long
BuffLen = 256
If GetUserName(Buffer, BuffLen) Then
OSUserName = Left(Buffer, BuffLen - 1)
End If
End Function

Mon problème est le suivant

Ce code marche tres bien avec certains ordinateur mais pas du tout avec d'autres. Je supose qu'un module n'est pas installé sur les postes en question.
Le pb c'est que je ne sais pas lequel.
D'autre part, le fichier sur lequel je travail doit etre accessible à tous.
Est-il possible d'importer un module sur un poste n'ayant pas ce module en question à la simple ouverture du fichier.

En gros il s'agit d'importer le module manquant dans un ordinateur qd l'utilisateur ouvre le fichier.
(Je ne sais pas si je suis assez clair)


Si tt cela n'était pas possible, comment emmettre une condition afin d'éviter l'erreur "75" qui apparait sur un poste sans le module?


Merci de votre aide


fred

[cafeine]

Hello, tu peux essayer une autre méthode pour obtenir ces infos ...

Pour la machine :

Code :

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

Environ("ComputerName")

et pour l'utilisateur

Code :

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

Environ("UserName")

[jackfred]

Ok merci, je vais essayer ca dessuite, je tiens au courant

Merci

A+

fred

[jackfred]

heu encore moi :

je dois les placer ou les codes?

est-ce que si je fais

msgbox environ("computername")

il me ressort le nom de la machine?


merci

fred

[cafeine]

Oui, mais ça prenait moins de temps de le tester en direct, plutôt que de l'écrire

[jackfred]

non, en fait, j'avais fais le test avant, et ca ne marchait pas...

Je vais revoir le code alors...

La suite demain.

En tt cas merci pour ton aide, je te tien informé...


a+
fred