Petit problème de cellule active
Résolu
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
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
3 réponses
-
S'il vous plaît ....
-
ContributeurSalut 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å -
Merci de ta réponse je vais essayé cependant je ne vois pas la notion de cellule active dans ta macro...
