envoi email avec adresse auto

A

Arnaud

Guest

• 13 Août 2004

• #2

salut,

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

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

 

Vote positif 0 Vote négatif

J

jcc

Guest

• 13 Août 2004

• #3

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

 

Vote positif 0 Vote négatif

A

Arnaud

Guest

• 13 Août 2004

• #4

re,


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

 

Vote positif 0 Vote négatif

J

jcc

Guest

• 13 Août 2004

• #5

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

 

Vote positif 0 Vote négatif

A

Arnaud

Guest

• 13 Août 2004

• #6

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

 

Vote positif 0 Vote négatif

J

jcc

Guest

• 13 Août 2004

• #7

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

 

Vote positif 0 Vote négatif

A

Arnaud

Guest

• 13 Août 2004

• #8

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

 

Vote positif 0 Vote négatif

J

jcc

Guest

• 13 Août 2004

• #9

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 .

 

Pièces jointes

• help.zip

  11.3 KB · Affichages: 39
• help.zip

  11.3 KB · Affichages: 40
• help.zip

  11.3 KB · Affichages: 42

Vote positif 0 Vote négatif

A

Arnaud

Guest

• 13 Août 2004

• #10

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

 

Vote positif 0 Vote négatif

J

jcc

Guest

• 13 Août 2004

• #11

merci pour ton aide .

 

Vote positif 0 Vote négatif