bouton d'envoi

M

marc

Guest
Bonjours,

Voila j'ai créer une feuille excel et j'aimerai pouvoir creer un bouton d'envoi
sur cette feuille qui permete de faire patir directement cette feuille via outlook à une adresse preséfinie.

Merci si quelqu'un à la réponse.

Tchao Marc
 
M

michel

Guest
bonsoir Marc

la macro ci dessous permet d'envoyer par mail la feuille active . cela ne fonctionne pas avec outlookExpress .
j'espere que cela pourra t'aider.

Sub envoiMailEtFeuilleActive()
activeSheet.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
End Sub

bonne soirée
michel
lapin4.gif
 

Discussions similaires

Réponses
1
Affichages
250
Compte Supprimé 979
C

Statistiques des forums

Discussions
311 723
Messages
2 081 932
Membres
101 844
dernier inscrit
pktla