Macro pour envoyer des feuilles d'un classeur par mail
Fermé
fillip31
Messages postés
3
Date d'inscription
lundi 2 mars 2015
Statut
Membre
Dernière intervention
4 mars 2015
-
4 mars 2015 à 10:44
fillip31 Messages postés 3 Date d'inscription lundi 2 mars 2015 Statut Membre Dernière intervention 4 mars 2015 - 4 mars 2015 à 14:15
fillip31 Messages postés 3 Date d'inscription lundi 2 mars 2015 Statut Membre Dernière intervention 4 mars 2015 - 4 mars 2015 à 14:15
A voir également:
- Macro pour envoyer des feuilles d'un classeur par mail
- Yahoo mail - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Publipostage mail - Guide
- Gmail envoyer un mail - Guide
- Macro word - Guide
1 réponse
syrine12
Messages postés
1
Date d'inscription
mercredi 4 mars 2015
Statut
Membre
Dernière intervention
4 mars 2015
4 mars 2015 à 11:50
4 mars 2015 à 11:50
google
4 mars 2015 à 14:15
Voici la macro que je tente d'executer mais cela bug. Savez vous pourquoi ,
Sub Envoi()
'
' Envoi Macro
'
Dim Dest As String, Sujet As String
Sheets("PLANNING TRANSPORTEUR X").Select 'Saisir le nom exact la feuille
ActiveSheet.Copy 'crée une copie de la feuille active
Dest = Range("B5").Value 'Saisir l'adresse mail
Sujet = "VOTRE PLANNING DU" & Range("E1").Value
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
End Sub
Le problème semble se trouver dans la ligne suivante en jaune si demande de debug
ActiveWorkbook.SendMail Dest, Sujet, True
D'autre part la cellule E1 contient une date dans une cellule dont le format est date. je ne suis pas certain que si ma macro fonctionne la date s'inscrive correctement.
J'aurai également souhaité inserer un petit texte de politesse à mon mail mais ne sais comment proceder.
Merci de vos lumieres.