VBA identification par numéro de série Excel

[tom6821]

Bonjour,

je cherche à exécuter une macro uniquement si le fichier est lancé d'un ordinateur spécifique. De cette manière le fichier pourra être utilisé sans intervention de la macro à partir d'un autre poste.

J'ai pensé à utiliser le numéro de série ou a défaut le nom d'utilisateur du programme Excel de la machine.

Est-il possible d'accéder à ces paramètres sous VBA ?

Merci d'avance pour votre aide, bonne journée !

 

[Staple1600]

Re : VBA identification par numéro de série Excel

Bonjour

Oui c'est possible
Application.UserName

(mais cela peut-être facilement contournable... en désactivant les macros à l'ouverture du fichier)

EDITION: Bonjour Pierrot93

 

[Pierrot93]

Re : VBA identification par numéro de série Excel

Bonjour,

pour d'autres paramètres windows et machine regarde du coté de la fonction "Environ".

bon après midi
@+

 

[Staple1600]

Re : VBA identification par numéro de série Excel

Re


Merci Pierrot93 d'avoir été dans les Environs 😉
(j'ai tendance à zapper les possibilités offertes par cette voie )

Pour avoir le nom de l'ordinateur
MsgBox Environ(4)

(Mais là aussi la remarque de mon premier message reste valable)

 

[Pierrot93]

Re : VBA identification par numéro de série Excel

Re, bonjour JM

Re


Merci Pierrot93 d'avoir été dans les Environs 😉
(j'ai tendance à zapper les possibilités offertes par cette voie )

Pour avoir le nom de l'ordinateur
MsgBox Environ(4)

(Mais là aussi la remarque de mon premier message reste valable)

Aarf chez moi le nom de l'ordi c'est l'index 6, soit la variable d'environnement "COMPUTERNAME".... pour avoir la liste et les valeurs associées :

Dim i As Byte
i = 1
Do
    Cells(i, 1) = Split(Environ(i), "=")(0)
    Cells(i, 2) = Split(Environ(i), "=")(1)
    i = i + 1
Loop While Len(Environ(i)) > 0

 

[tototiti2008]

Re : VBA identification par numéro de série Excel

Bonjour Tom, Bonjour Staple 🙂, Bonjour Pierrot 🙂,

C'est 4 chez moi aussi, mais pour éviter les problèmes d'index et de définition des variables d'environnement en fonction de la version de Windows, je suppose qu'il vaut mieux utiliser

Environ("ComputerName")

 

[Staple1600]

Re : VBA identification par numéro de série Excel

Re

Environ(4)= NOM ORDI sur un PC sous VISTA.

Tu as quel OS ?

 

[tototiti2008]

Re : VBA identification par numéro de série Excel

Re,

Moi j'ai Windows XP et c'est 4 aussi, mais je suppose que c'est en fonction de l'OS sans être sûr que ce soit ça...

 

[Pierrot93]

Re : VBA identification par numéro de série Excel

Re,

bah moi windows xp, excel 2003... 4 = "CLIENTNAME"....

 

[tom6821]

Re : VBA identification par numéro de série Excel

Merci pour votre aide.
Je pense que le code Application.UserName conviendra parfaitement ! 😉

 

[Gelinotte]

Re : VBA identification par numéro de série Excel

Bonjour,

Windows 7 pro 64 bits > environ(7) = ComputerName

G

 

[tototiti2008]

Re : VBA identification par numéro de série Excel

Bonjour Gelinotte,
Re,

Je pense que le code Application.UserName conviendra parfaitement ! 😉

Tant mieux 🙂

Arf, chez moi je n'ai même pas de variable d'environnement qui s'appelle ClientName....

 

[Staple1600]

Re : VBA identification par numéro de série Excel

Re


Comme cela, plus de souci pour personne 😉
MsgBox Environ("COMPUTERNAME")

 

[Pierrot93]

Re : VBA identification par numéro de série Excel

Re,

Bonjour Gelinotte,
Re,



Tant mieux 🙂

Arf, chez moi je n'ai même pas de variable d'environnement qui s'appelle ClientName....

A noter chez moi windows xp PRO.... ceci doit expliquer cela....

 

[tototiti2008]

Re : VBA identification par numéro de série Excel

Re,

A noter chez moi windows xp PRO

voui voui, moi aussi, XP PRO SP3 intégré à un domaine, mais visiblement elle est liée à l'utilisation de la connexion du bureau à distance, désactivée sur mon poste de travail (sécurité 🙂) ce qui doit expliquer cela... je ne maîtrise pas bien tout ça