envoi email avec adresse auto

[jcc]

Bonjour le forum ,
voila mon probleme :
en fonction de mon choix dans la cellule A2 , il s'affiche une adresse email dans la cellule D2.
J'aimerais , si c'est possible , avec un bouton envoyer le classeur à cette adresse .
merci pour votre aide

 

[Arnaud]

salut,

en rajouter la ligne suivante derrière le code de ton bouton cela devrais fonctionner :

ActiveWorkbook.SendMail Recipients:=ActiveWorkbook.Worksheets(1).Range("D2")

 

[jcc]

merci pour ta reponse ,
ca marche super bien , maintenant si je veux envoyer uniquement la feuille LISTE

 

[Arnaud]

re,


regarde le fil Lien supprimé , j'ai donner 2 liens vers 2 solutions différentes pour ton problème.

 

[jcc]

le sujet est vaste lorsqu il s'agit d'une feuille active
la il n y a aucun probleme
par contre je veux envoyer une autre feuille que la feuille active
merci

 

[Arnaud]

re,

non cela revient exactement à la même chose :


ActiveWorkbook.Worsheet("Liste").Copy ' créée une copie de la feuille active
activeWorkbook.sendMail Recipients:="forumXLD@test.net" 'envoi Mail
Application.displayAlerts = False
activeWorkbook.Close ' supprime le classeur créé après l'envoi
Application.displayAlerts = True

 

[jcc]

cette commande ne fonctionne pas chez moi

Sub CommandButton1_Click()
ActiveWorkbook.Worsheet("liste").Copy ' créée une copie de la feuille active
ActiveWorkbook.SendMail Recipients:=ActiveWorkbook.Worksheets(1).Range("D2")
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End Sub

j ai une erreur 438

 

[Arnaud]

re,

autant pour moi ^^

ActiveWorkbook.Worksheets("liste").Activate
ActiveWorkbook.ActiveSheet.Copy ' créée une copie de la feuille active
ActiveWorkbook.SendMail Recipients:=ActiveWorkbook.Worksheets(1).Range("D2")
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
ActiveWorkbook.Worksheets("ACCEUIL").Activate

 

[jcc]

Sub CommandButton1_Click()
ActiveWorkbook.Worksheets("liste").Activate
ActiveWorkbook.ActiveSheet.Copy ' créée une copie de la feuille active
ActiveWorkbook.SendMail Recipients:=ActiveWorkbook.Worksheets(1).Range("D2")
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
ActiveWorkbook.Worksheets("ACCUEIL").Activate
End Sub

en fait le probleme est qu'on copie la feuille LISTE pour envoyer mais ladresse email se trouve en D2 dans la feuille ACCUEIL .

 

[Arnaud]

re,

Dim Adresse As String
Adresse = ActiveWorkbook.Worksheets(1).Range("D2")
ActiveWorkbook.Worksheets("liste").Activate
ActiveWorkbook.ActiveSheet.Copy ' créée une copie de la feuille active
ActiveWorkbook.SendMail Recipients:=Adresse
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
ActiveWorkbook.Worksheets("ACCUEIL").Activate

 

[jcc]

merci pour ton aide .