Erreur d'exécution 424

Bonjour à tous

Je rencontre un problème sur Excel (c'est d'ailleurs la première fois que je me lance dans ce genre de choses... soyez patient!).

J'ai un document que j'utilise pour le travail, il est partagé, et peut être rempli par plusieurs personnes. Seulement, je souhaiterais recevoir un mail dès que quelqu'un le modifie, pour éviter d'avoir à aller checker ça chaque jour... J'ai bien évidemment fait mes recherches sur internet, j'ai trouvé un code à entre dans VBA, je l'ai fait, et là ... "Erreur d'exécution 424, Object requis". Je ne comprends pas.

La ligne de code en surveillance après cette erreur est : Set ol = (outlook.Application)

Je vous remets tout le code ici

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim ol As Object, monmail As Object

DisplayAlerts = False

Set ol = (outlook.Application)

Set MyItem = ol.CreateItem(0)

Set monmail = ol.CreateItem(olMailItem)

monmail.To = "'mail1@mail1.com';'mail2@mail2.com'"

monmail.Subject = "Modifs"

monmail.Body = "Modifications apportees dans le fichier"

monmail.Send

Set ol = Nothing

End Sub

Merci d'avance pour votre aide !!

Bonne journée

ps : je suis sur Mac. !

Bonjour,

Comme ceci peut être mais pas testé sur Mac car je n'en ai pas !

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    Dim Ol As Object
    Dim MonMail As Object

    Application.DisplayAlerts = False
    Set Ol = CreateObject("Outlook.Application")

    Set MonMail = Ol.CreateItem(0)

    With MonMail

        '.Display
        .To = "mail1@mail1.com; mail2@mail2.com"
        .Subject = "Modifs"
        .Body = "Modifications apportées dans le fichier le " & Date & " à " & Time
        .Send

    End With

    Application.DisplayAlerts = True

    Set Ol = Nothing

End Sub

Merci bcp pour ta réponse...

Malheureusement ça ne fonctionne toujours pas et c'est toujours la même ligne qui semble déclencher ce message d'erreur...