Rajouter un bouton"envoi par mail"

Bonjour à tous, et merci d'avance à tous ceux qui m'aideront dans cette tâche qui pour moi est plus que fastidieuse .

Je souhaiterais dans le tableau joint, rajouter un bouton permettant d'envoyer uniquement la fiche d'intervention à une adresse mail précise.

Merci de votre aide précieuse.

Bonjour,

Pour que l'on puisse t'aider,

RemBabar

Bonjour,

Désolé pour l'oublie voici le fichier.

Bonjour,

Voilà un code pour remplacer celui que tu as mis sur ton bouton "mail" :

Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String

    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)
'---------------------------------------------------------
        With oBjMail
       .To = "servicedlts@gmail.com" 'le destinataire
       .Subject = "Objet du mail" 'l'objet du mail
       .Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous prie de bien vouloir trouver blabla" 'le corps du mail ..son contenu
       .Attachments.Add ActiveWorkbook.FullName 'Nomfichier
       .Display  'Ici on peut supprimer pour l'envoyer sans vérification
       .Send
        End With

    Set oBjMail = Nothing
    Set ObjOutlook = Nothing

    MsgBox "la demande a bien été transmise "
End Sub

A plus

Merci de ta réponse rapide cependant je pense ne pas avoir été assez clair dans ma demande.

Le but serait que dans le formulaire j'ai ce fameux bouton envoie par mail, pour éviter constamment d'imprimer du papier ce qui n'est pas du tout devp durable .

Penses tu pouvoir m'aider.

D'accord pas de soucis,

Petite question, le destinataire est toujours le même ?

Ta pièce jointe doit être le fichier excel complet ou bien juste la feuille "Fiche DI" en format excel ou PDF par exemple ?

A plus

C'est cool merci

Oui le destinataire est toujours le même et je souhaite qu'ils recevoient uniquement la fiche Di en format PDF se serait parfait

Merci encore

Re,

voilà un code à mettre sur un bouton de ton userform (ici le CommandBouton5)

Private Sub CommandButton5_Click()

Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String

    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)

'---------------------------------------------------------
    NomFichier = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 4)

    Sheets("Fiche DI").ExportAsFixedFormat Type:=xlTypePDF, Filename:=NomFichier & "pdf"

        With oBjMail
       .To = "servicedlts@gmail.com" 'le destinataire
       .Subject = "Objet du mail" 'l'objet du mail
       .Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous prie de bien vouloir trouver blabla" 'le corps du mail ..son contenu
       .Attachments.Add NomFichier & "pdf" 'Nomfichier
       .Display  'Ici on peut supprimer pour l'envoyer sans vérification
       .Send
        End With

    Set oBjMail = Nothing
    Set ObjOutlook = Nothing

    MsgBox "la demande a bien été transmise "

End Sub

A plus !

Salut Braters,

Le code ne fonctionne pas il me met un message d'erreur en me demandant de spécifier une ligne...

Je joins le fichier pour que se soit plus clair.

Merci

Dans VBA, Outil > Référence > cocher Microsoft Outlook 14.0 Object Library

Ca devrait le faire ensuite !

Un grand merci s'était exactement ça.

Merci infiniment.