Bonsoir,

sur cette macro que j'ai un peu modifiée pour l'adapter à mon tableau, j'atteins la limite d'envoi de mail à 45, alors que mon besoin est supérieur  :

es ce un bug excel, il y a t il un moyen de le contourner ?

Sub mail()
'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("D3:D100,i3:i100,n3:n100").SpecialCells(xlCellTypeConstants, 3)
    
    '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
     Range("D3:D100,i3:i100,n3:n100").ClearContents
    
End Sub

en vous remerciant

François

Bonsoir francoisIc,

Comme je te l'ai dit dans un précédent fil de discussions, je n'ai pas Thunderbird et donc, je ne peux analyser pleinement la situation, ni même la tester.

Toutefois, je doute fort que 45 destinataires maxi, soit une limitation ou un bug Excel.

Je pencherais plutôt pour une limite imposée par ton fournisseur de messagerie ou même, peut-être, par Thunderbird lui-même.

Une recherche sur le net pourrait sans doute t'en dire plus...

Cordialement,

c'est une erreur excel : "erreur d'éxécution5" argument ou appel de procédure incorrect

le débogage est sur la ligne :

ActiveWorkbook.FollowHyperlink "mailto:" & ListeMails

merci

Salut le Forum

Surement un problème de longueur de chaîne (255 ou 1024 caractères)

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

Ajout un Msgbox Len(ListeMails) pour voir la longueur de la chaîne.

Mytå

Bonsoir Myta

comment intégrer la msgbox au code, je n'en suis pas là dans vba, en le mettant en fin de code ça m'affiche 0

mais ça ne me donne pas la longueur de chaîne

en te remerciant

François

Bonjour Myta, ça bloque à 1024 caractères, y a t il un moyen de dépasser cette limite

cordialement

François