Envoie automatique fichier Excel

Todre

XLDnaute Occasionnel
Bonjour à tous,

J'aimerai savoir s'il est possible d'envoyer à une certaine heure ou fin de journée un fichier par mail. J'ai un planning excel sur mon bureau, j'aimerai que tt les soirs le fichier parte sur une boite mail pour pouvoir le consulter à l'extérieur. Je ne maîtrise pas excel à la perfection :/

D'avance merci pour votre aide
 

zebanx

XLDnaute Accro
Bonjour @Todre,

Je n'utilise pas en ce moment outlook donc me permets juste de t'envoyer quelques liens qui devraient t'aider si c'est ton cas.

https://www.excel-downloads.com/thr...nt-texte-personnalise-donnees-excel.20022665/
https://excel-malin.com/codes-sources-vba/envoyer-un-email-avec-excel/
https://www.commentcamarche.net/for...vba-envoie-automatique-mail-avec-piece-jointe
http://maitrise-excel.com/excel-outlook-envoi-mail-macro-excel-envoi-email-piece-jointe/

Désolé de ne pouvoir t'aider davantage, en espérant que la solution soit facile à mettre en place.

@+
 

Todre

XLDnaute Occasionnel
Re bonjour !

J'ai récupéré un code sur un vieux forum ... L'envoie se fait bien quand je clic sur le bouton envoyer, par contre j'aimerai envoyer une feuille précise et non tout le classeur, pourtant dans le code je mets bien la feuille "planning" que je souhaite envoyer ...

Voici le code:
Sub Envoi()
Dim Dest As String, Sujet As String
Sheets("Planning").Select 'Saisir le nom exact la feuille
ActiveSheet.Copy 'crée une copie de la feuille active
Dest = Range("A1").Value 'Saisir l'adresse mail
Sujet = "Planning"
ActiveWorkbook.SendMail Dest, Sujet, True
Application.DisplayAlerts = False
ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True
End Sub
 

zebanx

XLDnaute Accro
Bonjour Todre

Pas étonnant car activeworkbook correspond à un classeur et non à une feuille. Or ton code ne permet pas de savoir quel classeur il faut envoyer.

Je viens de retrouver ce fil qui semble faire le travail attendu et c'est bien expliqué.
Si c'est le cas, peux-tu juste stp indiquer un commentaire permettant d'indiquer que ce code est fonctionnel ? Je t'en remercie par avance.

@+

http://www.mdf-xlpages.com/modules/newbb/viewtopic.php?post_id=7831

Sub Envoi()
Dim Dest As String, Sujet As String
Sheets("Feuil4").Copy 'Saisir le nom exact la feuille à copier
Dest = "xxxxxx.xxx@xxx.xx" 'Saisir l'adresse mail
Sujet = "Envoi Test" 'mettre le sujet de l'envoi
With ActiveWorkbook
.SendMail Dest, Sujet, True
.Close SaveChanges:=False 'ferme LA COPIE de la feuille
End With
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 926
Membres
101 841
dernier inscrit
ferid87