VBA Excel - Outlook

Bonjour à tous,

Je rencontre un soucis en codant entre excel et outlook.

Je voudrais que mon code balaye ma boite de réception et que pour chaque mail ayant comme objet les termes "données liquidité au", une action soit effectuée (matérialisée par ma msgbox "coucou" !)

Sub test_pour_autre_chose()
Dim olApp As Outlook.Application
    Dim olSpace As Outlook.Namespace
    Dim olFolder As Outlook.MAPIFolder
    Dim olInbox As Outlook.MAPIFolder
    Dim olmail As Outlook.MailItem
    Dim pceJointe As Outlook.Attachment

    Set olApp = New Outlook.Application
    Set olSpace = olApp.GetNamespace("MAPI")
    Set olInbox = olSpace.Folders("monadresse@mail.fr")
    Set olFolder = olSpace.GetDefaultFolder(olFolderInbox)

    For Each olmail In olFolder.Items

        If olmail.Subject Like "*Données Liquidité du*" Then

MsgBox "coucou"

End If

Next olmail

End Sub

Je rencontre une erreur d'execution 13 sur le 'next olmail' et je n'arrive pas à m'en sortir.

Auriez-vous une piste ?

D'avance merci à tous

bonjour

essaie en définissant olmail sans le typer (enlève le As et ce qui suit)

Dim olmail

je me sens très bête !

ça marche merci beaucoup.

une bonne fin de journée.