Bonjour,

comme messagerie , j'utilise thunderbird,

à partir d'un fichier excel  dans la colonne L par ex j'ai 20 lignes avec lien hypertexte type mailto,

avec un premier bouton, "envoyer mail ?", je souhaite pouvoir choisir dans ces 20 liens à qui j'envoie un mail (avec une liste de checkbox) puis valider cet envoi via un second bouton de confirmation. Une macro ou un ensemble de macros pourrait elle faire ce travail ?

pour l'instant l'objet du mail et les pièces jointes ne m'intéressent pas, si tout est dans le même mail je peux le faire depuis la messagerie.

Je tatonne depuis quelques jours mais je suis encore loin du résultat escompté

Merci

voici la macro testée, lorsque je la crée, elle fonctionne, thunderbird s'ouvre avec un mail aux deux destinataires (moi sur deux adresses différentes en l'occurrence) mais quand je l'affecte au bouton le message d'erreur éxécution "9", l'indice n'appartient pas à la sélection s'affiche

Sub envoi()
'
' envoi Macro
'

'
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "0601020304@sfr.fr"
    Range("A1").Select
    ActiveSheet.PasteSpecial Format:="Texte Unicode", Link:=False, _
        DisplayAsIcon:=False, NoHTMLFormatting:=True
    ActiveCell.FormulaR1C1 = "0601020304@sfr.fr;"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "mailto:mon.mail@orange.fr"
    Range("A1").Select
    ActiveCell.FormulaR1C1 = _
        "0601020304@sfr.fr;mailto:mon.mail@orange.fr"
    Range("A1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Selection.ClearContents
End Sub

merci pour votre aide

Modifications du post et du fichier joint faites par le webmaster :

Attention ! On ne laisse jamais de vraies adresses mail comme exemple dans les posts d'un forum (ni dans les fichiers joints) sous peine de voir ton adresse mail devenir la cible immédiate des robots spammeurs qui parcourent le net !!! Si tu tiens à ton adresse mail, ne la diffuse jamais à la vue de tout le monde...

myDearFriend! (Webmaster XLpages)

Bonsoir francoisIc, bienvenue sur XLpages.com

Tu peux peut-être tester le classeur joint.

J'ai utilisé le code VBA suivant :

Option Explicit

Sub EnvoiMail()
'myDearFriend!  -  www.mdf-xlpages.com
Dim Plage As Range, R As Range
Dim ListeMails As String

    'Collecte les cellules contenant une croix en colonne E
    Set Plage = Range("E2:E20").SpecialCells(xlCellTypeConstants, 2)
    'Pour chaque cellule collectée
    For Each R In Plage
        'On récupère l'adresse mail en colonne précédente(D)
        ListeMails = ListeMails & IIf(Len(ListeMails) > 0, ";", "") & R.Offset(0, -1).Text
    Next R
    'Envoi via le client mail Thunderbird ---> A VERIFIER
    ActiveWorkbook.FollowHyperlink "mailto:" & ListeMails
End Sub

Attention toutefois : je n'ai pas eu vraiment le temps de tester et surtout, je n'ai pas ThunderBird !

Regarde si ça peut être une piste pour toi.

Cordialement,

PS : merci de voir également ma remarque sur ton post précédent.

ça marche, mais je n'ai pas le temps ce soir de l'appliquer à mon tableau final, dès que je l'aurai fait je passerai le sujet en résolu.

Peux tu supprimer mon post précédent ?

Avec mes remerciements

François

Citation :

Non, je l'ai simplement modifié (ainsi que le fichier joint) avec des adresses mail fictives au lieu des adresses que tu avais indiquées.

Si je supprime ton post précédent, le fil de discussions ne voudrait plus rien dire.

Merci de faire attention la prochaine fois, STP.

Cordialement,

j'ai rajouté cette ligne pour que ça nettoie automatiquement après l'ouverture du mail :

Set Plage = Range("B2:B20").SpecialCells(xlCellTypeConstants, 2).ClearContents

même si le mail s'ouvre, j ai la boite de dialogue débogage qui s'ouvre avec comme msg :

erreur d'éxé "424" objet requis

peux tu continuer à m'aider

merci  !

j'ai trouvé en simplifiant le code tout simplement !

Range("B2:B20").ClearContents

désolé

Bonsoir, voici un semblant de fichier final avec deux colonnes de mail, j'ai modifié la macro, ça marche super bien ! encore merci.

deux soucis : quand j'utilise le bouton choix destinataires, j'aurais voulu que lorsque je clique sur la checkbox tous, ça me coche les trois autres checkbox (je ne les ai pas toutes créées pour l'exemple) en plus de me cocher le "x" dans sélection

deuxième souci complètement indépendant, dans la feuille "donnée", colonne compétition, j'y ai rentré des liens hypertexte internet, lorsque je rentre les données de la liste déroulante (=compet) dans la feuille mai14 les liens disparaissent, j'ai essayé avec hyperdéroulant que tu as créé, mais ça ne me donne rien, as tu une solution pour appliquer "hyperderoulant" à mon cas.

Je t'ai aussi "piqué" mdf calendar, ça marche superbien, vraiment du beau travail !

avec mes remerciements

François

encore moi, es ce que la deuxième colonne pourrait servir à un envoi en CC ?

la macro fonctionne aussi avec lotus note

bonne soirée

François