Macro excel envoi email avec piéce jointe
Fermé
virgile84
Messages postés
20
Date d'inscription
jeudi 9 avril 2009
Statut
Membre
Dernière intervention
4 mai 2009
-
30 avril 2009 à 19:27
lichen1 Messages postés 8 Date d'inscription vendredi 11 décembre 2009 Statut Membre Dernière intervention 17 décembre 2009 - 17 déc. 2009 à 14:21
lichen1 Messages postés 8 Date d'inscription vendredi 11 décembre 2009 Statut Membre Dernière intervention 17 décembre 2009 - 17 déc. 2009 à 14:21
A voir également:
- Macro excel envoi email avec piéce jointe
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Comment creer un compte email - Guide
3 réponses
Utilisateur anonyme
2 mai 2009 à 00:08
2 mai 2009 à 00:08
Bonjour,
Sub EnvoiMail()
Workbooks("UnClasseur").SendMail Recipients:="adresse@mail", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True
End Sub
Fonctionne pour un classeur, mais pour une feuille c'est sheet non ?
Sub EnvoiMail()
Workbooks("UnClasseur").SendMail Recipients:="adresse@mail", _
Subject:="Test envoi classeur", _
ReturnReceipt:=True
End Sub
Fonctionne pour un classeur, mais pour une feuille c'est sheet non ?
virgile84
Messages postés
20
Date d'inscription
jeudi 9 avril 2009
Statut
Membre
Dernière intervention
4 mai 2009
4 mai 2009 à 18:35
4 mai 2009 à 18:35
bonjour cocotehier
avec sheet ça marche pas non plus
Sub EnvoiMail()
Workbooks("sheet").SendMail Recipients:="virgile84@gmail.com", _
Subject:="commande", _
ReturnReceipt:=True
End Sub
j'ai pas de solution......
avec sheet ça marche pas non plus
Sub EnvoiMail()
Workbooks("sheet").SendMail Recipients:="virgile84@gmail.com", _
Subject:="commande", _
ReturnReceipt:=True
End Sub
j'ai pas de solution......
lichen1
Messages postés
8
Date d'inscription
vendredi 11 décembre 2009
Statut
Membre
Dernière intervention
17 décembre 2009
17 déc. 2009 à 14:21
17 déc. 2009 à 14:21
je vois que cela fait longtemps, et j'espère que tu as une solution, dans le cas négatif, j'utilise ça qui fonctionne
'.......................copy feuil1
Sheets("feuil1").Select
Sheets("feuil1").Copy
ActiveWorkbook.SaveAs Filename:= _
"Y:\xx.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'........................ouvre outlook
'................................................................
ActiveWorkbook.SendMail Recipients:="nom@cx.fr", _
Subject:="titre"
'.........................................................timer
ActiveWorkbook.Close
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("Y:xx.xls")
f.Delete
j'espère que ça aidera qqn
bon courage
'.......................copy feuil1
Sheets("feuil1").Select
Sheets("feuil1").Copy
ActiveWorkbook.SaveAs Filename:= _
"Y:\xx.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'........................ouvre outlook
'................................................................
ActiveWorkbook.SendMail Recipients:="nom@cx.fr", _
Subject:="titre"
'.........................................................timer
ActiveWorkbook.Close
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile("Y:xx.xls")
f.Delete
j'espère que ça aidera qqn
bon courage
Utilisateur anonyme
4 mai 2009 à 20:12
4 mai 2009 à 20:12
Bonjour,
Bizarre, voici un lien avec les mêmes données, par contre, regardes bien pour Firefox..
http://www.commentcamarche.net/forum/affich 2253001 macro excel envoi email avec piece jointe
Bizarre, voici un lien avec les mêmes données, par contre, regardes bien pour Firefox..
http://www.commentcamarche.net/forum/affich 2253001 macro excel envoi email avec piece jointe