comment envoyer une partie de feuille de travail par courriel
1 réponse
Nina
J'ai un fichier qui contient plusieurs feuilles de même format et je dois
envoyer par courriel une partie de chaque feuille par courriel. y a-t-il une
façon de faire
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
Daniel.j
Bonjour Un tas d'exemple ici : http://dj.joss.free.fr/web.htm
Comment envoyer une plage de cellules dans un message en VBA?(testé avec Excel 2003)
Cette macro envoie la plage A1:A10, vous pouvez évidement modifier cette ligne Range("A1:A10").Copy pour envoyer une autre plage de cellules. 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
-Daniel FAQ MPFE FAQ du forum microsoft.public.fr.excel http://dj.joss.free.fr/faq.htm
"Nina" a écrit dans le message de news:
J'ai un fichier qui contient plusieurs feuilles de même format et je dois envoyer par courriel une partie de chaque feuille par courriel. y a-t-il une façon de faire
Bonjour
Un tas d'exemple ici :
http://dj.joss.free.fr/web.htm
Comment envoyer une plage de cellules dans un message en VBA?(testé avec
Excel 2003)
Cette macro envoie la plage A1:A10, vous pouvez évidement modifier cette
ligne Range("A1:A10").Copy
pour envoyer une autre plage de cellules.
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
-Daniel
FAQ MPFE
FAQ du forum microsoft.public.fr.excel
http://dj.joss.free.fr/faq.htm
"Nina" <Nina@discussions.microsoft.com> a écrit dans le message de news:
83A917F5-F9A6-415C-A24D-DDEFC347FFF8@microsoft.com...
J'ai un fichier qui contient plusieurs feuilles de même format et je dois
envoyer par courriel une partie de chaque feuille par courriel. y a-t-il
une
façon de faire
Bonjour Un tas d'exemple ici : http://dj.joss.free.fr/web.htm
Comment envoyer une plage de cellules dans un message en VBA?(testé avec Excel 2003)
Cette macro envoie la plage A1:A10, vous pouvez évidement modifier cette ligne Range("A1:A10").Copy pour envoyer une autre plage de cellules. 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
-Daniel FAQ MPFE FAQ du forum microsoft.public.fr.excel http://dj.joss.free.fr/faq.htm
"Nina" a écrit dans le message de news:
J'ai un fichier qui contient plusieurs feuilles de même format et je dois envoyer par courriel une partie de chaque feuille par courriel. y a-t-il une façon de faire