[VBA - Excel/Word] Récupérer les noms utilisateur & ordinateur ?

Récupérer les noms utilisateur & ordinateur ? [VBA - Excel/Word] - VB/VBA/VBS - Programmation

Marsh Posté le 22-05-2003 à 09:57:56    

Un truc con mais à force de coder en VB PHP ASP & Co, on oubli comment ca marche la bureautique !   :D  
 
Ya un moyen, donc, de récupérer ces noms ? J'ai pas trouvé l'existence de variables system utilisables sous Excel alors peut-etre en VBA ?
 
C'est surement très con mais ca va bien me dépanner.
 
Merci    :jap:

Reply

Marsh Posté le 22-05-2003 à 09:57:56   

Reply

Marsh Posté le 22-05-2003 à 13:27:40    

BabarZ a écrit :

Un truc con mais à force de coder en VB PHP ASP & Co, on oubli comment ca marche la bureautique !   :D  
 
Ya un moyen, donc, de récupérer ces noms ? J'ai pas trouvé l'existence de variables system utilisables sous Excel alors peut-etre en VBA ?
 
C'est surement très con mais ca va bien me dépanner.
 
Merci    :jap:  


 
Les API windows ---> www.vbfrance.com ou http://docvb.free.fr/api.php tu as celle qui te faut et le code avec !

Reply

Marsh Posté le 22-05-2003 à 13:45:48    

Ben oui, je connais Kernel32 mais je savais pas qu'on pouvait l'appeler depuis Excel ! :D
 
Ca marche comme sous VB, du style :
 
Declare Function RecupNomOrdinateur Lib "Kernel32.dll" Alias "GetComputerNameA" (ByVal lpbuffer As String, nsize As Long) As Long
 
et
Dim NomOrdinateur As String
Dim Resultat As Long
NomOrdinateur = String$(255, 32)
Resultat = RecupNomOrdinateur(NomOrdinateur, 255)
 
:??:
J'essaie.
 
Merci  :jap:

Reply

Marsh Posté le 22-05-2003 à 13:47:01    

BabarZ a écrit :

Ben oui, je connais Kernel32 mais je savais pas qu'on pouvait l'appeler depuis Excel ! :D
 
Ca marche comme sous VB, du style :
 
Declare Function RecupNomOrdinateur Lib "Kernel32.dll" Alias "GetComputerNameA" (ByVal lpbuffer As String, nsize As Long) As Long
 
et
Dim NomOrdinateur As String
Dim Resultat As Long
NomOrdinateur = String$(255, 32)
Resultat = RecupNomOrdinateur(NomOrdinateur, 255)
 
:??:
J'essaie.
 
Merci  :jap:
 


 
bien sur que sa fonctionne !  [:spamafote]

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed