Message d'erreur

Bonjour

J'ai mis en place un code VBA outlook qui appelle un fichier Excel, qui lui même exécute une procédure dès qu'il est ouvert

J'ai ce message d'erreur qui s'affiche à chaque fois que je lance le code

Avez-vous une idée de quoi il s'agit svp?

Merci d'avance

bonjour Leo10Messi,

non.

merci quand même pour le retour :)

Bonnr journée à tous

Bonjour

Si tu mets un exemple de ton fichier tu pourrais avoir une réponse favorable

Sans fichier on ne peut rien voir

Public Sub GERERMAILS()

 Dim myOlApp As New Outlook.Application
  Dim myNamespace As Outlook.NameSpace
   Dim myInbox As Outlook.MAPIFolder
    Dim Dossier As Outlook.Folder
    Dim myItems As Outlook.Items
    Dim myItem As MailItem
    Dim myrecipient As Outlook.Recipient
    Set myNamespace = myOlApp.GetNamespace("MAPI")

    Dim strName As String
    Set myrecipient = myNamespace.CreateRecipient("boîte mail globale"): myrecipient.Resolve
    Set myInbox = myNamespace.GetSharedDefaultFolder(myrecipient, olFolderInbox)
    Set Dossier = myInbox.Folders("dossier outook")
    Set myItem = Application.CreateItem(olMailItem)

      For Each myItem In Dossier.Items
   If myItem.SenderName = "boîte mail " Then
   Dim XlApp, XlClas
    Set XlApp = CreateObject("Excel.Application")
    Set XlClas = XlApp.Workbooks.Open("chemin du fichier .xlsm")
  XlApp.Quit
  Set XlClas = Nothing
   Set XlApp = Nothing

   End If
   Exit Sub
       Next myItem

End Sub

Voici le VBAoutlook, c'est au moment de l'ouverture du fichier Excel que tout plante

quand j'execute la procédure directement dans le fichier Excel, tout se passe bien

Merci d'avance

Bonsoir,

Ca ce n'est pas possible si tu as ouvert ton workbook avec l'instance Excel

 XlApp.Quit

Instruction à virer pour moi

A+

Bonjour

ci-joint le fichier excel

J'ai supprimé quelques données perso du code

j'ai également supprimé l'appel à la procédure dans THISWORKBOOK

@BrunoM45: j'ai copié bêtement le code VBA OUTLOOK, en quoi cette instruction pose problème?

 XlApp.Quit

merci d'avance

Salut

C'est normal l'espace en fin de non du fichier et avant le ".xlsm" ?

Set XlClas = XlApp.Workbooks.Open("chemin du fichier .xlsm")

Salut

C’est juste une erreur de copie/colle, sinon le chemin complet je le colle correctement