Choix liste

Bonjour,

je sollicite votre aide afin que je puisse envoyer un mail selon l adresse mail que je choisi par exemple de A1 à A4 c'est a dire 4 adresse

lorsque j'aurais fait mon choix sur le mail en question que ma plage de donnes soit envoyer a cette adresse

bref voila mon code a modifier

merci

Sub EnvoyerMail()

 ActiveSheet.range("C4:O20").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope
    .Introduction = "bonjour , ci joint les données ..."
    .Item.To = "xxxxi@aol.fr.com"
    .Item.Subject = "test"
    .Item.send
End With

End Sub

Bonjour, admettons que ce code soit "lancé" par un bouton [Envoyer], il vous suffit de sélectionner la cellule de l'adresse mail que vous voulez utiliser puis dans le code modifiez avec ceci :

.Item.To = ActiveCell.Value

Je n'ai pas essayé, mais logiquement cela devrait marcher.

ce que vous pouvez faire c'est un envoie suite à un double-clic sur l'adresse voulue :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:A4")) Is Nothing Then
        Cancel = True ' inhiber l'entrée dans la cellule suite au double clic
        ' votre code
        ActiveSheet.Range("C4:O20").Select ' la plage de cellules à envoyer
        ActiveWorkbook.EnvelopeVisible = True
        With ActiveSheet.MailEnvelope
            .Introduction = "bonjour , ci joint les données ..."
            .Item.To = Target.Value ' "xxxxi@aol.fr.com" ' ici la modification du code
            .Item.Subject = "test"
            .Item.send
        End With
End Sub

vbMBHB

Merci c'est parfait

Merci

vbMBHB