destinataire en copie pour envoie email en vba

[cindy75015]

bonjour j'utilise un code vba issu de ce forum
mais je ne vois pas comment attache la ligne b25 a l'adresse email du destinataire pour la copie du message
voici le code
Dim olapp As Object 'Outlook.Application
Sheets("Envoie Email").Select
Range("B18").Select

Set olapp = CreateObject("Outlook.Application")
Do While Not IsEmpty(ActiveCell)
Dim msg As Object 'MailItem
Set msg = olapp.CreateItem(0)
msg.To = ActiveCell.Value

msg.Subject = Range("B5").Value

msg.Body = Range("B8").Value & Chr(13)
msg.Attachments.Add répertoireAppli & "\test " & _
Format(Worksheets("test").Range("a4"), "d\-mm\-yyyy") & ".xls"
msg.Send
ActiveCell.Offset(1, 0).Select
Loop
Set msg = Nothing
Set olapp = Nothing


il faut ajouter une ligne mais je ne trouve pas laquelle


Cindy

j'ai essayé ca mais sans succé
.CC = "toto@neuf.fr"

 

[cindy75015]

Re : destinataire en copie pour envoie email en vba

CC = Range("b25")

ne passe pas non plus

 

[Yaloo]

Re : destinataire en copie pour envoie email en vba

Bonsoir à tous,

Et si tu mets

msg.CC = Range("b25").value

Ca devrait le faire.

A te relire

Martial

 

[cindy75015]

Re : destinataire en copie pour envoie email en vba

re le fil ,yaloo
oui
encore merci Yaloo
je l'avait testé aussi avec value mais il manquer msg

merci Cindy