Petit problème de cellule active
Résolu
kgigant
Messages postés
202
Date d'inscription
Statut
Membre
Dernière intervention
-
Sam -
Sam -
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
A voir également:
- Petit problème de cellule active
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Petit 1 comme ² ✓ - Forum Windows
- Petit 2 ✓ - Forum Bureautique
- Trier du plus petit au plus grand excel - Guide
3 réponses
Salut le forum
Essaye le code suivant :
L'adresse principale est dans la cellule D1,
Le sujet dans la D2,
Le texte dans la D3,
Le Cci en D5
Mytå
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å
