Récupérer le Mac Address

Bonjour à tous,

Avant j'étais effectivement sous MAC depuis quelque temps je suis sous PC.

J'aimerai pouvoir récupérer mon adresse Mac par un code VBA.

C'est un fil que j'avais ouvert étant sous MAC et que j'étais dans l'obligation de le fermer.

Quelqu'un pourrait-il m'aider pour récupérer l'adress Mac que je l'installe dans une cellule.

Merci d'avance

Amicalement

Noel

Bonjour,

juste une parenthèse : tu as biens conscience que le mot "MAC" dans Ordinateur MAC , n'as pas de lien directe avec le mot "MAC" dans adresse MAC ?

Bonjour Pierre,

Oui j'ai bien conscience en cela.

l'adresse Mac de mon PC est 3C-77-E6 etc...

Je ne comprends pas très bien ta question. Peux-tu développer un peu plus ta pensée.

Je ne travaille plus Mac Os.

Merci

Amicalement

Noel

Bonjour,*

Code à tester (récupéré sur le net et adapté) :

Sub addresseMac()
    On Error Resume Next
    Set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer).ExecQuery _
    ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE")
    If Err.Number <> 0 Then
        MsgBox " - non accessible -"
    Else
    For Each IPConfig In IPConfigSet
        MsgBox " Adresse MAC " & vbTab & " : " & IPConfig.MACAddress
    Next
    End If
End Sub

Bonjour Raja,

C'est formidable ça marche super bien.

Je suis arrivé à l'inscrire dans une cellule de ma feuille.

merci beaucoup

@+

Amicalement

Noel