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