MACRO envoi fichier mail à modifier

Bonjour,

J'ai beaucoup de mal à trouver une formule qui s'adapte à ce dont j'ai besoin. Celle-ci s'en approche beaucoup et fonctionne parfaitement.

Seul petit bemol avec le fait d'attacher le fichier dans le mail

MonMessage.Attachments.Add "P:\Demande d'intervention.xls"

Je souhaiterais quelque chose du type This workbook ou active Worbook comme c'est un fichier qui sera partagé à tous mes colaborateurs et que aucun ne sait utiliser VBA, je ne veux pas passer mon temps à modifier l'adresse cible.

Dim MonOutlook As Object
    Dim MonMessage As Object
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.createitem(0)
    MonMessage.To = ""
    MonMessage.Cc = ""
    MonMessage.Bcc = ""
    MonMessage.Subject = "Demande d'intervention"
    Corps = "Bonjour,"
    Corps = Corps & Chr(13) & Chr(10)
    Corps = Corps & "Je vous prie de bien vouloir trouver ci joint, une demande d'intervention"
    Corps = Corps & Chr(13) & Chr(10)
    Corps = Corps & "Bien à vous"
    MonMessage.Body = Corps
    MonMessage.Attachments.Add "P:\Demande d'intervention.xls"
MsgBox "Votre demande a bien été transmise"

    MonMessage.send

    Set MonOutlook = Nothing
End If

Merci bcp

Bonjour,

Dois-je modifier l'intégralité du code, ou est-il possible de ne modifier que cette partie?

Bonjour,

Je n'ai pas compris tout, essaye de remplacer celui-ci :

MonMessage.Attachments.Add "P:\Demande d'intervention.xls"

par :

MonMessage.Attachments.Add ActiveWorkbook.FullName

C'est exactement ce que je voulais.

Merci beaucoup