.value

[foster_1883]

Bonsoir,
Comment puis-je remplacer l'adresse couriel dans la macro suivante par cette valeur sans obtenir d'erreur dû au : " "

Sheets("OUVETURE").Range("G15")

'envoi par mail
If CheckBox1 = True Then
 ' Select the range of cells on the active worksheet.
   ActiveSheet.Range("b12:d17").Select
   
   ' Show the envelope on the ActiveWorkbook.
   ActiveWorkbook.EnvelopeVisible = True
   
   ' Set the optional introduction field thats adds
   ' some header text to the email body. It also sets
   ' the To and Subject lines. Finally the message
   ' is sent.
   With ActiveSheet.MailEnvelope
      .Introduction = "Bonsoir, voici le rapport de balancement effectué par ________ pour la journée du " & Format(Date, "ddd mmmm yyyy")
      .Item.To = "xxxxxxx@hotmail.com"
      .Item.Subject = "Rapport de balancement - Délices en vrac :  " & Format(Date, "dddd dd mmmm yyyy")
      .Item.Send
   End With
End If

 

[CBernardT]

Re : .value

Bonjour foster_1883,

essaye cette syntaxe :

.Item.To = CStr(Sheets("OUVETURE").Range("G15"))

 

[CBernardT]

Re : .value

Bonjour foster_1883,

essaye cette syntaxe :

.Item.To = CStr(Sheets("OUVETURE").Range("G15"))

 

[Chris401]

Re : .value

Bonjour

La syntaxe :

.Item.To = Sheets("OUVETURE").Range("G15")

Cependant, n'as-tu pas une erreur d'orthographe sur le nom de la feuille ?

Sheets("OUVERTURE").Range("G15")

Cordialement
Chris

 

[foster_1883]

Re : .value

Merci à vous deux, oui tout à fait j'ai deja remarquer l'erreur, mais trop lâche pour la corriger dans tout les références (trop de copier coller