Discussion :

[patinator3182]

Bonjour,

La macro si dessous envoie par mail le non de la personne qui a ouvert le fichier et le nom du fichier ouvert. J'aimerai y rajouter l'adresse ip d'où a été ouvert le fichier.

Je n'y arrive pas, qui peux m'aider ?

Merci.

Patine

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
Sub envoimail()
    Set OlApp = CreateObject("Outlook.application")
    Set OlItem = OlApp.CreateItem(olMailItem)
    Dim Nom_Fichier As String, Utilisateur As String
    With OlItem
        'Récupére le nom du fichier
        Nom_Fichier = ThisWorkbook.Name
        'Récupére le nom de l'utilisateur
        Utilisateur = Environ("username")
        ' Destinataire du mail
        .To = "Mon <a href="mailto:mail@domaine.fr">mail@domaine.fr</a>"
        'sujet du mail + variable
        .Subject = "Notification de modification du fichier : " & Nom_Fichier
        'Corps du mail + variables
        .Body = "Le fichier excel : " & Nom_Fichier & " a été modifié et enregistré le " & Now & " par l'utilisateur : " & Utilisateur & "."
        .Send
    End With
End Sub

[patricktoulon]

re
bonjour
une solution parmi tant d'autre

Code :

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

1
2
3
4
5
6
Function addresse_IP() As String
    Dim NIC1, Nic, StrIP$
    Set NIC1 = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
    For Each Nic In NIC1:    StrIP = StrIP & IIf(Nic.IPEnabled, Nic.IPAddress(i), ""): Next
addresse_IP = StrIP
End Function

exemple pour la tester

Code :

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

1
2
3
Sub test2()
MsgBox addresse_IP
End Sub

----------------------------------------------------------------------------------------------------------
EDIT:
petite variante on recupere l'ipv4 et ipv6

Code :

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

1
2
3
4
5
6
Function addresse_IP() As String
    Dim NIC1, Nic, Ipv4$,ipv6$
    Set NIC1 = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
    For Each Nic In NIC1:    Ipv4 = Ipv4 & IIf(Nic.IPEnabled, Nic.IPAddress(0), ""): ipv6 = ipv6 & IIf(Nic.IPEnabled, Nic.IPAddress(1), ""): Next
 addresse_IP = "Adresse Ipv4: " & Ipv4 & vbCrLf & "Adresse Ipv6: " & ipv6
End Function

[patinator3182]

Bonjour Patrick,

Merci pour ton retour. Le problème c'est que je n'arrive as a Integer le code dans le mien pour que ca fonctionne.

Avez vous une idée ?

Merci beaucoup.

Patinator