Trouver l'erreur Résolu/Fermé

Question

Bonjour,

Sous excel 2002, je voudrais créer un bouton 'envoyer' afin que les informations 
saisie dans le classeur soit envoyé par mail.
Alors dans un premier temps, j'ai fait ce petit bout de code mais lors 
du lancement j'ai une erreur de lancement '9'. Vous avez certainement dû la voir une 
bonne centaine de fois.
J'ai beau chercher je ne trouve pas l'origine du problème
Ci après le code:

Sub EnvoiMail() 
         
         Workbooks("TM").SendMail Recipients:="mondestinataire@FAI.fr", _ 
         Subject:="Test envoi classeur", _ 
         ReturnReceipt:=True 

End Sub 

Le fichier excel ce nomme TM.xls
Restera une fois ce problème réglé de créer le bouton....

Merci par avance,

plubarj · Answer

Hello Pluto
Tu as quel client mail?

toto · Answer

Bonjour

Workbooks("TM.xls") ne marcherait pas mieux ?

PLUTO · Answer

Hello Toto,

Déjà tenté et ça ne marche pas,

PLUTO · Answer

Par contre je précise que la même chose avait été conçue bien au chaud chez moi et 
ça a fonctionné.
La différence est que chez moi excel 2000 et au job excel 2002.

La différence vient de là certainement, maintenant quelle est la solution d'après vous??

Ankhsuamon · Answer

Hello,

L'erreur 9 est produite si tu ne met pas ton extension.
Je confirme la syntaxe marche pour 2003 :

Workbooks("Test.xls").SendMail Recipients:="mondestinataire@FAI.fr", _
Subject:="Test envoi classeur", ReturnReceipt:=True

A+
Tu peux toujours programmer une procedure d'envoi par Outlook, si vous utilisez

Ankhsuamon · Answer

Oui au meme titre que l'on peut developper des macros dans Excel, on peut aussi programmer dans Excel l'envoi d'Email en utilisant la reference Outlook.

As tu essayé de modifier ta syntaxe par ActiveWorkbook.SendMail ... a la place de Workbooks("Test.xls").SendMail ...

toto · Answer

L'erreur 9 indique sans ambiguïté un problème d'indice inexistant.
Et le seul indice dans la ligne, c'est le nom du classeur utilisé comme indice de Workbooks.

PLUTO · Answer

Bonjour,

Une nouvelle erreur est survenu, 

Alors j'ai tout bien fait comme vous avez dit, j'ai mis l'extension au fichier l'erreur '9' ne s'affiche plus.
Par contre erreur '400' sans plus d'explication.
Je ne pige plus rien, à moins que ce soit dû au fait que nos pc utilisent lotus notes par défaut?!?!?

toto · Answer

Peux-tu exécuter le bout de code suivant pour voir ce que ton VBA pense de ton système de mail ?


Select Case Application.MailSystem
    Case xlMAPI
        MsgBox "Mail system is Microsoft Mail"
    Case xlPowerTalk
        MsgBox "Mail system is PowerTalk"
    Case xlNoMailSystem
        MsgBox "No mail system installed"
End Select

PLUTO · Answer

Réponse :

No mail system installed

Je ne comprend plus rien, lorsque je suis sur internet et je veux répondre à quelqu'un sur un site je clic sur le lien et mon lotus s'ouvre automatiquement d'ailleur dans les paramètres de IE lotus est le mail par défaut.

toto · Answer

Comme j'ignore tout de ce qui se passe entre l'instruction Sendmail et le logiciel d'envoi de mail, je ne peux pas t'en dire plus.
Dans mon aide VBA, il n'y a que ces 3 valeurs possibles pour MailSystem.

PLUTO · Answer

Hello,

Alors du nouveau dans mon problème, j'ai ajouté une ligne en prenant ce qu'on conseiller précèdement comme base de travail.

Select Case Application.MailSystem
    Case xlMAPI
        MsgBox "Mail system is Microsoft Mail"
    Case xlPowerTalk
        MsgBox "Mail system is PowerTalk"
    Case xlLotusNotes
        MsgBox "T es dans la merde
    Case xlNoMailSystem
        MsgBox "No mail system installed"
End Select

Et ben figurez vous que mon pc m'a répondu "T es pas dans la merde"...
Bon je l'ai cherché!!!

Maintenant on est certains de ce qui est installé par défaut, peu t on d'après vous utiliser Lotus Notes (produit IBM) dans le VB de Excel.
Aussi dans VBA je suis allé dans Outils>Références et j'ai coché tous les éléments en rapport avec Lotus.

S'il vous plais aidez moi.

Merci

Ankhsuamon · Answer

Hello,

La reponse est oui, va voir ce lien, je pense que cela repondra a ta question :
http://www.fabalou.com/VBandVBA/lotusnotesmail.asp

Trouver l'erreur

13 réponses

Discussions similaires