Récupérer texte d'une listbox dans code VBA

Bonjour le forum,

J'ai besoin de vos lumières :

J'ai une listbox (contrôle active x) sur ma feuille. Celle ci se remplie en fonction de ce qui a été choisi dans un menu déroulant.

J'essaie d'automatiser certaines taches de ma vie professionnelle. La listbox en question contient une adresse mail.

Et je voudrai utiliser l'adresse mail contenue dans ma listbox afin d'envoyer un mail automatiquement avec le code suivant ;

Sub Mail1erdegré()
Dim ligne As Long
Dim destinataire, sujet, As String

destinataire = listbox3.value
sujet = Range("h5")

Text = Range("h7")

Body = Text
strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & sujet1 & ","
strcommand = strcommand & "body='" & Body & "'"

Call Shell(strcommand, vbNormalFocus)

End Sub

Le code "listbox3.value" ne fonctionne pas, sans surprise.

Quelq'un aurait-il une solution à m'apporter ?

Grand merci d'avance

LC

Bonjour Lucas, bonjour le forum,

Essaie avec :

destinataire = Sheets("Feuil1").ListBox3.Value 'nom de l'onglet à adapter

Bonjour Thauthème, merci beaucoup pour ta réponse.

Cela résout une petite partie du problème : En faisant plusieurs test avec ta solution, il faut impérativement que je clique sur la listbox afin de sélectionner le contenu pour que ça fonctionne. Sinon le destinataire ne se met pas dans mon mail.

On y arrive tout doucement...

Merci encore

Lucas

Bonjour,

Bé si tu sélectionnes rien la Value dans la ListBox est vide !

S'il n'y a qu'un seul item dans la ListBox, tu l'atteins par : ListBox1.List(0)

Mais dans ce cas pourquoi une ListBox ? Une ListBox, c'est fait pour sélectionner dans une liste !

Cordialement.

aaah super Mferrand, ça marche parfaitement avec ListBox1.List(0).

Je sais bien que c'est ridicule mais ce n'est pas moi qui ai créé ce fichier à la base. Je le prends donc comme il est en essayant d'automatiser ce qui peut l'être. Ca fait le job quand même

Merci beaucoup de ton efficacité, ce n'est pas la première fois que tu m'aides.

Cordialement,

LC