Projet ou bibliothèque introuvable

Bonsoir,

Je travaille sur une feuille de demande de travaux avec un collègue.

Nous avons mis en place un commandButton qui envois automatiquement la demande.

Sur son poste cette commande fonctionne parfaitement mais pas sur le miens...

J'ai un message "projet ou bibliothèque introuvable" avec corps = "bonjour" surligné en bleu

Quelqu'un pourrait-il m'expliquer le pourquoi du comment??

Merci beaucoup

Ci-dessous le code:

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 ActiveWorkbook.FullName
MsgBox "Votre demande a bien été transmise"

    MonMessage.send

    Set MonOutlook = Nothing
End If

Bonsoir,

Dans VBA, Outils/références, tu dois cocher la référence 'Microsoft Outlook 14.0 Object Library' (ou son équivalent).

De plus, 'MonOutlook.createitem(0)' doit s'afficher ainsi 'Set MonMessage = MonOutlook.CreateItem(0)'.

Cdlt

Si je comprend bien chaque personne voulant utiliser ce formulaire devra auparavant cocher la référence 'Microsoft Outlook 14.0 Object Library' (ou son équivalent).

Merci beaucoup pour ton aide, c'est un code adapté du net

Re,

Oui, chaque classeur devra avoir cette référence!

Bon maintenant, tu ne dis pas que cela fonctionne!?

Cdlt

J'ai modifié "CreateItem" et j'ai ajouté 'Microsoft Outlook 11.0 Object Library'

Mais ça ne fonctionne pa j'ai encore la même erreur

Re,

Tentes avec la référence 'Microsoft Outlook xx Object Library' de coché :

Dim MonOutlook As Outlook.Application
    Dim MonMessage As Outlook.MailItem
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.CreateItem(0)

Toujours pareil, quel casse tête pour moi ce code, je l'ai déjà modifié un paquet de fois et je n'arrive pas à touver quelque chose de fonctionnel mais surtout simple mais qui puisse quand même intégrer un corps de message, un sujet et destinataire caché.

Dim MonOutlook As Outlook.Application
    Dim MonMessage As Outlook.MailItem
    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 ActiveWorkbook.FullName
MsgBox "Votre demande a bien été transmise"

    MonMessage.send

Bonjour,

A tout hasard, est-ce que tu n'aurais pas "Référence Manquante", lorsque tu cliques sur "Outils/Références"?

Dans ce cas, tu décoches...

ça arrive parfois, sans qu'on sache pourquoi....

Bon courage

Maintenant ça marche pourtant je n'ai pas l'impression d'avoir fait quelque chose de plus..

Comme quoi à tête reposée..

Petite question, c'est un formulaire type que je vais devoir partager à mes collègues.

Si je comprend bien il va falloir leur faire valider à chacun le module outlook sans quoi la formule ne fonctionnera pas??

On ne peut pas lier le module à la feuille??