Envoyer un mail via Outlook à plusieurs contacts

Résolu/Fermé
BCDLM Messages postés 12 Date d'inscription mardi 2 juillet 2013 Statut Membre Dernière intervention 26 août 2015 - 17 oct. 2013 à 11:06
 BCDLM - 17 oct. 2013 à 15:50
Bonjour,

Je suis actuellement coincé sur une partie de ma macros Excel.
Je suis en train de coder cette macros afin d'envoyer un formulaire à plusieurs personnes, voici le code :

Application.DisplayAlerts = False
ActiveWorkbook.SendMail recipients:=receiver, Subject:=str_name
ActiveWindow.Close
Application.DisplayAlerts = False

L'erreur vient de la variable receiver car quand je la remplace pas une adresse ça marche.

Cette variable contient deux contacts. Un contact qui ne changera jamais et un autre qui change en fonction d'une cellule du formulaire.

If Cells(22, 7) = "Paris" Then
Worksheets("Data").Select
Sender_1 = Cells(6, 28).Value
ElseIf Cells(22, 7) = "Berlin" Then
Worksheets("Data").Select
Sender_1 = Cells(6, 29).Value
End If

Les deux adresse mails sont rangées dans la variable receiver de cette façon :

receiver = Sender_1 & "; " & Sender_2
(Sender_1 est la variable qui contient l'adresse qui change et Sender_2 celle qui ne change pas...)

Je ne comprends pas pourquoi cela ne peut pas marcher avec une variable.
J'ai aussi essayé avec la fonction Array mais pareil
Si vous avez des idées je suis preneur.

merci pour votre aide !
A voir également:

1 réponse

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
17 oct. 2013 à 12:15
Bonjour,

Je me demande si tu n'as pas inversé ligne et colonne...
Place éventuellement
MsgBox Cells(22, 7).Value 
MsgBox Cells(6, 28).Value
MsgBox Cells(6, 29).Value
avant le If

A+
0
BCDLM Messages postés 12 Date d'inscription mardi 2 juillet 2013 Statut Membre Dernière intervention 26 août 2015
17 oct. 2013 à 13:15
Non non, les lignes et les colonnes n'ont pas été inversés.
J'ai déjà placé des contrôle avec les Msgbox pour être sûr de ne pas m'être trompé et ils renvoient les bonnes valeurs...
0
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
17 oct. 2013 à 13:45
En fouinant, il semblerait effectivement qu'il faille passer par un tableau (Array).
Sinon, quand ça marche sans passer par la variable tu écris quoi ?
0
Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
17 oct. 2013 à 13:53
Essaie
receiver = """" & Sender_1 & "; " & Sender_2 & """"
0
Quand je le fais sans passer par la variable j'écris directement l'adresse mail...
Je vais essayer ça, mais pourquoi autant de guillemets?

merci bien
0
Bon bah ça ne marche toujours pas, ça bloque sur cette ligne de code :

ActiveWorkbook.SendMail recipients:=receiver, Subject:=str_name
0