inscrire dans une cellule le nom du pc

[pascal21]

bonsoir
tout est dit dans le titre je cherche comment inscrire dans une cellule le nom du pc
merci de votre aide

 

[Victor21]

Re : inscrire dans une cellule le nom du pc

Bonsoir, Pascal.

Si j'ai bien compris; avec les macros Excel4 :

Insère un nom (form1) par exemple
Fait référence à : =LIRE.ENV(27)
Dans la cellule, écris =form1

Argument : 26 pour le nom de l'utilisateur, 27 pour le nom de l'organisation.

 

[JCGL]

Re : inscrire dans une cellule le nom du pc

Bonjour à tous,
Salut Patrick,

Dans un module:

Option Explicit
Declare Function GetComputerName& Lib "kernel32" Alias "GetComputerNameA" (ByVal lbbuffer As String, nSize As Long)

Sub AfficherNomPC()
Dim Info As String * 64
GetComputerName Info, 64
MsgBox "Nom du PC : " & Info, , "Message"
End Sub

A + à tous

 

[kjin]

Re : inscrire dans une cellule le nom du pc

Bonsoir, Victor et JC 🙂

LeNomDuPC = Environ("ComputerName")

A+
kjin

 

[Victor21]

Re : inscrire dans une cellule le nom du pc

Re, Pascal Bonsoir, Jean-Claude 🙂

Oublie ma proposition. Celle de JC correspond exactement à ta demande.

Edit : Ainsi que celle de Kjin, que je salue au passage 🙂

 

[JCGL]

Re : inscrire dans une cellule le nom du pc

Bonjour à tous,
Salut Kjin 🙂,

Mais bien sur... Pourquoi sortir la grosse artillerie...

A++
A + à tous

 

[Victor21]

Re : inscrire dans une cellule le nom du pc

Re,

A toutes fins utiles, pour lister les arguments de environ() : Ce lien n'existe plus

Option Explicit
Sub listerEnviron()
Range("D1") = Environ("ALLUSERSPROFILE")
Range("D2") = Environ("APPDATA ")
Range("D3") = Environ("AVENGINE")
Range("D4") = Environ("CLIENTNAME")
Range("D5") = Environ("CommonProgramFiles")
Range("D6") = Environ("COMPUTERNAME")
Range("D7") = Environ("ComSpec")
Range("D8") = Environ("FP_NO_HOST_CHECK")
Range("D9") = Environ("HOMEDRIVE")
Range("D10") = Environ("HOMEPATH")
Range("D11") = Environ("INCLUDE")
Range("D12") = Environ("INOCULAN")
Range("D13") = Environ("LIB")
Range("D14") = Environ("LOGONSERVER")
Range("D15") = Environ("NUMBER_OF_PROCESSORS")
Range("D16") = Environ("OS")
Range("D17") = Environ("Path")
Range("D18") = Environ("PATHEXT")
Range("D19") = Environ("PROCESSOR_ARCHITECTURE")
Range("D20") = Environ("PROCESSOR_IDENTIFIER")
Range("D21") = Environ("PROCESSOR_LEVEL")
Range("D22") = Environ("PROCESSOR_REVISION")
Range("D23") = Environ("ProgramFiles")
Range("D24") = Environ("SESSIONNAME")
Range("D25") = Environ("SystemDrive")
Range("D26") = Environ("SystemRoot")
Range("D27") = Environ("TEMP")
Range("D28") = Environ("TMP")
Range("D29") = Environ("USERDOMAIN")
Range("D30") = Environ("UserName")
Range("D31") = Environ("USERPROFILE")
Range("D32") = Environ("VS71COMNTOOLS")
Range("D33") = Environ("WecVersionForRosebud.FF0")
Range("D34") = Environ("windir")
End Sub

 

[pascal21]

Re : inscrire dans une cellule le nom du pc

bonsoir
je reviens tardivement sur ce fil
victor21 (on est voisins)
j'ai eu l'occasion d'utiliser des macros excel4 qui m'avaient fichu un gros bug dans mon appli alors depuis j'évite mais merci quand même
jcgl, kjin je vais essayer ces solutions et je vous redis quoi......