petit problème de cellule active Résolu

Question

Bonjour, 

Voilà mon problème :

j'ai créé une cellule avec une liste de choix qui comprend plusieurs adresses email ainsi qu'une macro qui enverrai un message à l'adresse séléctionnée.

Autrement dit je veux intégre la notion de cellule active ce qui permettrait d'envoyer un mail à l'adresse choisie.

Voici la macro : 

Sub envoiMailEtFeuilleActive()
Worksheets("Feuil2").Select
ActiveSheet.Copy
Recipients = Array("ActiveCell.address")
ActiveWorkbook.SendMail Recipients, Subject:="Traitement"
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub

Cependant il y a un message d'erreur s'affiche...

Merci

kgigant · Answer

S'il vous plaît ....

Mytå · Answer

Salut le forum

Essaye le code suivant :
 

Sub PrepareUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String, Bcc As String

MailAd = Range("d1")
Subj = Range("d2")
Msg = Msg & Range("d3")
Bcc = Range("D5")

URLto = "mailto:" & MailAd & "?subject=" & Subj & "&Bcc=" & Bcc & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

L'adresse principale est dans la cellule D1, 
Le sujet dans la D2,
Le texte dans la D3, 
Le Cci en D5

Mytå

kgigant · Answer

Merci de ta réponse je vais essayé cependant je ne vois pas la notion de cellule active dans ta macro...

Petit problème de cellule active

3 réponses

Discussions similaires

Newsletters