Envoie d une feuille par mail en VBA

bonjour

étant tout nouveau sur ce forum je fait appel a vos lumières.

novice en VBA je désire envoyer par mail une feuille d'un classeur via un bouton ou j aurai au préalable affecter cette macro.

j ai pu trouver ce code le souci c est que j ai bien une fenêtre de dialogue qui s'ouvre "un programme tente d'envoyer un message Electronique..."j'accepte mais je ne reçois rien sur ma boite mail.

pouvez vous venir a mon aide.

Bonsoir,

Un exemple

Sub envoiMail()
Dim Fichier As Variant
Dim Wbk As Workbook

For Each Wbk In Workbooks
    Wbk.Save
  Next Wbk

Fichier = "E:\Excel\....xlsx" ' completer

Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("Outlook.Application")
Set MonMessage = MaMessagerie.createitem(0)
MonMessage.to = "adresseDestinataire@xx.fr" ' completer

MonMessage.attachments.Add Fichier
MonMessage.Subject = "sujet" ' completer

MonMessage.body = contenu ' completer
MonMessage.send
Set MaMessagerie = Nothing
MsgBox "Votre Mail a bien été envoyé avec la P.J. ." ' completer
Application.DisplayAlerts = False
Workbooks("Test Mail.xlsm").Close

End Sub

Bonsoir,

les tableaux VB utilisant l'index 0 comme premier index par défaut j’essaierais ...

...
Destinataires(0) = "Hamidou@gunmail.com"
...

j ai essayer

Dim Destinataires(0) As String, Sujet As String

Destinataires(0) = "adresse mail"

mais toujours rien

M12

Fichier = "E:\Excel\....xlsx" ' complete

celaveyt dire qu'il faut automatiquement sauvegarder la feuille concerner du classeur sur le pc

M12 j ai ce retour ???

Bonjour, Hamidou, Pierre.Py

Explications:

1 - Fichier = "E:\Excel\....xlsx" ' completer

C'est le chemin où tu enregistres le classeur EXCEL. S'il n'est pas enregistré, comment veut-tu qu'il soit joint (entre "")

et à la vue de l'erreur, E correspond à ton lecteur DVD

2 - MonMessage.to = "adresseDestinataire@xx.fr" ' completer

C'est l'adresse Mail du destinataire. Tu mets la tienne pour essai par exemple (entre "")

3 - MonMessage.Subject = "sujet" ' completer

Titre du message(entre "")

4 - MonMessage.body = contenu ' completer

Corps du Message. Tu peut ajouter juste avant ceci

contenu = contenu & "Ci-joint le classeur."

J ai bien pris compte de ton retour et effectivement on avance

j'ai bien un message qui me dit que le mail a bien était envoyer

par contre je ne reçois toujours rien et j ai un debogage sur la dernière ligne

un dernier coup de pouce et je pourrai crier victoire

Re,

Excuse, une erreur de ma part, ôte cette ligne

toujours rien même en supriment cette ligne completement

Re, le code est dans un module ou dans une feuille

le code est dans un module

Re,

Bizarre que çà marche pas, je m'en sert tous les jours pour mes envois

je présume que tu as bien vérifié le chemin de l'emplacement du fichier

l'adresse Mail pour l'envoi

oui a plusieurs reprise