Changer le destinataire d'un mail selon une checkbox d'un Userform

Bonjour à tous,

Je vous explique mon problème.

J'ai un réalisé un userform. Dans celui-ci on a le choix entre Paris et Marseille (pour l'exemple)..

Si on choisi Paris, je veux envoyer un mail "contenant le classeur excel" à plusieurs destinataires dont leurs adresses mails sont en A2:A6

Si on choisi Marseille, je veux envoyer un mail "contenant le classeur excel" à plusieurs destinataires dont leurs adresses mails sont en B2:B6

Je tiens a préciser que les données de l'userform reste même si on le ferme .

L'erreur lors de l'envoie est :Objet requis

Je vous joint mon classeur EXCEL. Comme vous vous en doutez c'est juste un exemple que j'adapterai a mon vrai fichier excel de travail.

Merci pour votre futur aide

Passez une bonne journée

Cordialement

Frozbee

Frozbee,

Une petite modification dans le code :

Sub EnvoiCourrier()

    Dim sDest(), sSujet As String

    If [b]UserForm1.[/b]CheckBox1.Value = True Then
    sDest = Range("A2:A6")
    Else
    sDest = Range("B2:B6")
    End If
    sSujet = "XX"
    Application.Dialogs(xlDialogSendMail).Show sDest, sSujet, True

 End Sub

et ça passe pour moi.

Le code sans les balises de mise en forme :

Sub EnvoiCourrier()

    Dim sDest(), sSujet As String

    If UserForm1.CheckBox1.Value = True Then
    sDest = Range("A2:A6")
    Else
    sDest = Range("B2:B6")
    End If
    sSujet = "XX"
    Application.Dialogs(xlDialogSendMail).Show sDest, sSujet, True

 End Sub

Bonsoir à tous,

Moi j'avais pensé qu'il mette le bouton envoyer dans l'userform avec le même code que celui qu'il avait, cela ferait peut-être plus propre, car son userform est presque vide

Bye

Bonjour,

Niquel !

Merci beaucoup pour ton aide

Bonne fin de journée

Bonsoir

N'oublie pas de mettre en résolu

Bonne soirée