je voudrais savoir comment faire pour adapter cette macro, afin de n'envoyer
par mail, que les cellules A5 à L29 ?
De plus, je voudrais pouvoir saisr le texte de l'objet, comment faire?
je vous remercie d'avance.
Yann
----------------------------
Sub mail()
Sheets("Résumé").Copy
Cells.Copy
Cells.PasteSpecial (xlPasteValues)
ActiveWorkbook.SendMail "xx@xx.fr", "Objet"
End Sub
-----------
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
jps
bonjour yann tu devrais t'inspirer de cette proc extraite de la FAQ du vieux motard que jamais DJ
Sub EnvoiSelectionparMail() Dim Dest, Sujt, Msg As String Dim TheFile Range("A1:A10").Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs Filename:="C:temptest.xls" TheFile = "C:temptest.xls" Dest = "" Sujt = "Test d'envoi avec Excel" Msg = "Bonjour, Excel vous envoie une plage de cellules avec OE" Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & "" SendKeys "%I" & "p" & TheFile & "~" & "%s" ActiveWorkbook.Close End Sub
HTH jps
"YANN24" a écrit dans le message de news:
Bonjour,
je voudrais savoir comment faire pour adapter cette macro, afin de n'envoyer
par mail, que les cellules A5 à L29 ? De plus, je voudrais pouvoir saisr le texte de l'objet, comment faire? je vous remercie d'avance. Yann ---------------------------- Sub mail() Sheets("Résumé").Copy Cells.Copy Cells.PasteSpecial (xlPasteValues) ActiveWorkbook.SendMail "", "Objet" End Sub -----------
bonjour yann
tu devrais t'inspirer de cette proc extraite de la FAQ du vieux motard que
jamais DJ
Sub EnvoiSelectionparMail()
Dim Dest, Sujt, Msg As String
Dim TheFile
Range("A1:A10").Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:="C:temptest.xls"
TheFile = "C:temptest.xls"
Dest = "dj@free.fr"
Sujt = "Test d'envoi avec Excel"
Msg = "Bonjour, Excel vous envoie une plage de cellules avec OE"
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%I" & "p" & TheFile & "~" & "%s"
ActiveWorkbook.Close
End Sub
HTH
jps
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de
news:AF0E7B77-5C55-420A-BBD6-751718BDAC86@microsoft.com...
Bonjour,
je voudrais savoir comment faire pour adapter cette macro, afin de
n'envoyer
par mail, que les cellules A5 à L29 ?
De plus, je voudrais pouvoir saisr le texte de l'objet, comment faire?
je vous remercie d'avance.
Yann
----------------------------
Sub mail()
Sheets("Résumé").Copy
Cells.Copy
Cells.PasteSpecial (xlPasteValues)
ActiveWorkbook.SendMail "xx@xx.fr", "Objet"
End Sub
-----------
bonjour yann tu devrais t'inspirer de cette proc extraite de la FAQ du vieux motard que jamais DJ
Sub EnvoiSelectionparMail() Dim Dest, Sujt, Msg As String Dim TheFile Range("A1:A10").Copy Workbooks.Add ActiveSheet.Paste ActiveWorkbook.SaveAs Filename:="C:temptest.xls" TheFile = "C:temptest.xls" Dest = "" Sujt = "Test d'envoi avec Excel" Msg = "Bonjour, Excel vous envoie une plage de cellules avec OE" Shell "C:Program FilesOutlook Expressmsimn.exe " & _ "/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & "" SendKeys "%I" & "p" & TheFile & "~" & "%s" ActiveWorkbook.Close End Sub
HTH jps
"YANN24" a écrit dans le message de news:
Bonjour,
je voudrais savoir comment faire pour adapter cette macro, afin de n'envoyer
par mail, que les cellules A5 à L29 ? De plus, je voudrais pouvoir saisr le texte de l'objet, comment faire? je vous remercie d'avance. Yann ---------------------------- Sub mail() Sheets("Résumé").Copy Cells.Copy Cells.PasteSpecial (xlPasteValues) ActiveWorkbook.SendMail "", "Objet" End Sub -----------
