Bonjour à tous,
je souhaite faire un envoi de mail en automatique.
J'ai ce code de début qui fonctionne
'ActiveSheet.Range("E74:L90").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "bonjour, essai..." & Range("A6") & "toto"
.Item.To = Range("C2") '"adresse mail"
.Item.Subject = "essai"
'.Item.Send
End With
Mais pour fonctionner correctement il faudrait que j'envoi pour mail en fonction du choix de la colonne D je sélectionne la ligne associer à ma colonne D.
Je vous joins mon exemple
par exemple pour la ligne sélectionne "Jxxx5" sur la combobox j'aimerais faire apparaitre "COXXXX5" (col A) et" E5" (col J)
Je reste dispo pour plus info.
Merci d'avance