Transmettre une feuille de calcul directement par e-mail (macro)

le document que j'envoie par mail ne reprend pas les options que j'ai mis
dan la sheet concernee, par ex : enlever le quadrillage, cacher les
résultats
à zéro, etc...

Bonjour.
Essaie :

Sub test()
ActiveSheet.Copy
ActiveSheet.Cells.ClearContents
ThisWorkbook.Sheets("Feuil2").Range("A1:G38").Copy
Range("A1").Select
ActiveWorkbook.ActiveSheet.Paste
ActiveWorkbook.SendMail "toto@cretin.fr", "sujet"
ActiveWorkbook.Close False
End Sub

Daniel

quand je lance la macro, une fenetre d'outlook s'ouvre et me

donne bien le sujet, mais n'indique pas l'adresse e-mail que j'ai mis
dans
la
macro !!!!

Est-ce Outlook ou Outlook Express ? et quelle version ?. Si tu envoies un
message aveec la macro, arrive-t-il à destination ?
Daniel

S'il reste des formats indésirables, remplace "ClearContents" par "Clear"
Daniel
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uxGenMVvHHA.1208@TK2MSFTNGP05.phx.gbl...

le document que j'envoie par mail ne reprend pas les options que j'ai mis
dan la sheet concernee, par ex : enlever le quadrillage, cacher les
résultats
à zéro, etc...

Bonjour.
Essaie :

Sub test()
ActiveSheet.Copy
ActiveSheet.Cells.ClearContents
ThisWorkbook.Sheets("Feuil2").Range("A1:G38").Copy
Range("A1").Select
ActiveWorkbook.ActiveSheet.Paste
ActiveWorkbook.SendMail "toto@cretin.fr", "sujet"
ActiveWorkbook.Close False
End Sub

Daniel

Version Microsoft Office Outlook 2003

quand je lance la macro, une fenetre d'outlook s'ouvre et me

donne bien le sujet, mais n'indique pas l'adresse e-mail que j'ai mis
dans
la
macro !!!!

Est-ce Outlook ou Outlook Express ? et quelle version ?. Si tu envoies un
message aveec la macro, arrive-t-il à destination ?
Daniel

......mais le message arrive à destination!!!!

quand je lance la macro, une fenetre d'outlook s'ouvre et me

donne bien le sujet, mais n'indique pas l'adresse e-mail que j'ai mis
dans
la
macro !!!!

Est-ce Outlook ou Outlook Express ? et quelle version ?. Si tu envoies un
message aveec la macro, arrive-t-il à destination ?
Daniel

J'ai la même version et je ne vois pas le message ! L'essentiel est qu'il
arrive à destination, non ?
Daniel
"LAFORCADE" <LAFORCADE@discussions.microsoft.com> a écrit dans le message de
news: 93A88BAA-E39B-4C41-8BCC-2B0318EAE408@microsoft.com...

......mais le message arrive à destination!!!!

quand je lance la macro, une fenetre d'outlook s'ouvre et me

donne bien le sujet, mais n'indique pas l'adresse e-mail que j'ai
mis
dans
la
macro !!!!

Est-ce Outlook ou Outlook Express ? et quelle version ?. Si tu envoies un
message aveec la macro, arrive-t-il à destination ?
Daniel

OK, Daniel, ça marche !l'envoi par mail fait parfaitement bien avec les
options choisies (cellules calculées à 0 cachées...), mais par contre il
reprend les boutons de commande que j'ai créees, et que je veux pas envoyer
dans la mail

quand je lance la macro, une fenetre d'outlook s'ouvre et me

donne bien le sujet, mais n'indique pas l'adresse e-mail que j'ai mis
dans
la
macro !!!!

Est-ce Outlook ou Outlook Express ? et quelle version ?. Si tu envoies un
message aveec la macro, arrive-t-il à destination ?
Daniel

Bon, je suis reparti sur ma première idée, parce que, si je sais supprimer
les boutons, je ne sais pas suprimer les macros qui leur sont affectées :

Sub test()
Workbooks.Add 1
With ActiveWindow
.DisplayGridlines = False
.DisplayZeros = False
End With
ThisWorkbook.Sheets("Feuil2").Range("A1:G38").Copy
ActiveWorkbook.ActiveSheet.Paste
ActiveWorkbook.SendMail "toto@cretin.fr", "sujet"
ActiveWorkbook.Close False
End Sub

Daniel
"LAFORCADE" <LAFORCADE@discussions.microsoft.com> a écrit dans le message de
news: EB0C602B-4855-414B-8EEA-2963534A633A@microsoft.com...

OK, Daniel, ça marche !l'envoi par mail fait parfaitement bien avec les
options choisies (cellules calculées à 0 cachées...), mais par contre il
reprend les boutons de commande que j'ai créees, et que je veux pas
envoyer
dans la mail

quand je lance la macro, une fenetre d'outlook s'ouvre et me

donne bien le sujet, mais n'indique pas l'adresse e-mail que j'ai
mis
dans
la
macro !!!!

Est-ce Outlook ou Outlook Express ? et quelle version ?. Si tu envoies un
message aveec la macro, arrive-t-il à destination ?
Daniel

Daniel, Je t'ai envoyé un message, mais je le répète ici :

Je voulais te remercier pour toute l'aide que m'a apportée sur mon petit
projet !
j'ai été très impressionné par la qualité et la rapidité de tes réponses

Bravo et encore merci

A bientôt

Version Microsoft Office Outlook 2003

quand je lance la macro, une fenetre d'outlook s'ouvre et me

donne bien le sujet, mais n'indique pas l'adresse e-mail que j'ai mis
dans
la
macro !!!!

Est-ce Outlook ou Outlook Express ? et quelle version ?. Si tu envoies un
message aveec la macro, arrive-t-il à destination ?
Daniel

Bonjour Daniel,
Grâce à vous, j'ai pu trouver une solution à mon pb. J'ai testé votre macro
et elle fonctionne parfaitement bien. Cependant, je souhaiterais pouvoir
modifier l'adresse mail à chaque envoi (en effet, chacune des feuilles de mon
classeur doit être envoyée systématiquement à un interlocuteur différent). Je
n'ai encore pas de notion du VB. Il doit certainement y avoir une solution
pour pouvoir modifier l'adresse mail lors de l'exécution de la macro mais je
ne sais absolument pas le formuler. Pouvez vous m'aider SVP ?
D'avance, je vous en remercie
Sylvie

Bonjour.
La macro suivante envoie la feuille active sous forme de classeur en pièce
jointe :

Sub test()
ActiveSheet.Copy
ActiveWorkbook.SendMail "toto@cretin.fr", "sujet"
ActiveWorkbook.Close False
End Sub

"LAFORCADE" <LAFORCADE@discussions.microsoft.com> a écrit dans le message de
news: 2E518008-C7E0-4F80-A3EE-3018A88FF1C1@microsoft.com...

Bjrs à tous !!!
j'ai une feuille excel qui comprends des informations résultant de macros
(bon de commande) et je voudrais envoyer directement cette feuille par
e-mail
à mon fournisseur.

On peut m'aider a réaliser cette macro ?

Merci d'avance !