Double click et envoi des données par mail
Bonsoir à tous,
J'ai besoin de votre aide pour envoyer des donnes dans un corps de mail.
Actuellement j'utilise cette formule quand je double clik elle envoie les données vers la feuille INFO303
mais je souhaite maintenant qu'elle met tout cela dans un mail
Merci pour votre Aide
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Mise en Place du double clik pour INFO303
' A) ==> INFO303 _ Mise en place du code par double click pour INFO303
Dim sh3 As Object, sh4 As Object, rw3 As Long, El As Long
Set sh3 = Sheets("Suivi Dossier")
El = sh3.Range("B" & Rows.Count).End(xlUp).Row 'Onglet Suivi Dossier
If Not Application.Intersect(Target, Range("B2:B" & El)) Is Nothing Then
Target.Offset(0, 1).Select 'decale et selectionne la cellule sur la droite afin d'eviter de rentrer à l'intérieur de la cellule
Set sh4 = Sheets("INFO303")
sh4.Range("B11:D11").ClearContents
rw3 = sh4.Cells(Rows.Count, 2).End(xlUp).Row + 1
sh4.Cells(rw3, "B").Value = sh3.Cells(Target.Row, "D") 'On écrit l'OF
sh4.Cells(rw3, "G").Value = sh3.Cells(Target.Row, "B") 'On écrit le Projet
sh4.Cells(rw3, "K").Value = sh3.Cells(Target.Row, "C") ' on ecrit le DT
sh4.Range("A15").Value = sh3.Cells(Target.Row, "P") ' type d'Arbre
sh4.Range("A18").Value = sh3.Cells(Target.Row, "S") ' type d'Arbre
Sheets("INFO303").Select
MsgBox "Copie de L'OF, DT et Projet sur INFO303" 'petit message de confirmation
End IfBonjour Man
Vous avez tout ce qu'il faut dans différents sujets de ce forum
ou dans le fichier qui se trouve en téléchargement
https://www.excel-pratique.com/fr/telechargements/utilitaires/pdf-email-vba-excel-no508
A+
Bonjour BrunoM45,
Oui j'avais déjà regardé et je n'arrive pas a adapter à mon besoin.
Car je souhaite en double click sur la cellule de la colonne B, renvoyer certaines données de la même ligne vers le mail.
J'espère avoir été clair.
Merci pour votre aide, a moins que ce n'est pas possible.