Ajout fichier pour envoi mail
Bonjour,
Je voudrais envoyer un fichier par mail. Tout marche mais ...
Je voudrais maintenant copier la feuille "semaine" du fichier puis l'enregistrer sous un nom sur le bureau puis l'ajouter avec Attachments.Add
Est-il possible de le faire sans que personne n'est à appuyer sur ok pour les eregistrements ... ? de façon automatique ?
Merci de votre aide
Tropico
Voici le code :
Sub Envoidu_Mail_Outlook()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
'corps du message si besoin
Contenu = "Bonjour,"
Contenu = Contenu & Chr(10) & Chr(13)
Contenu = Contenu & "Voici les tâches à effectuer dans la semaine"
Contenu = Contenu & Chr(10) & Chr(13)
Contenu = Contenu & "Ci-joint la fiche,"
Contenu = Contenu & Chr(10) & Chr(13)
Contenu = Contenu & "Corentin RIOU"
Contenu = Contenu & Chr(10) & Chr(13)
Contenu = Contenu & Chr(10) & Chr(13)
Contenu = Contenu & "(Le fichier est lourd, merci d'être patient pour l'ouverture)"
Workbooks.Open "C:\Users...........xlsm"
ActiveSheet.Name = "Semaine"
Sheets("Semaine").Copy
With OutMail
.To = "xxxxxx@xxxx.fr" 'destinataire(s)
.CC = "xxxxxx@xxxx.fr" ' copie
'.BCC = "aaaaa@gmail.com,bbbbbb@gmail.com,ccccccc@gmail.com" ' si BCC
.Subject = "Fichier Maintenance Semaine"
.Body = Contenu
'Piece_jointe
.Attachments.Add ("C:\Bureau\ 'mettre chemin et fichier a joindre
.Display 'ouvre Outlook
.Send 'envoi sans ouvrir Outlook
End With
Set OutMail = Nothing
Set OutApp = Nothing
ActiveWorkbook.Close False
'Kill ("\nomdudossier\nomdufichier.xls")
End Sub
Bonjour,
à tester,
'...
Workbooks.Open "C:\Users...........xlsm"
ActiveSheet.Name = "Semaine"
Sheets("Semaine").Copy
leFichier = chemin & "\nomdufichier.xlsx" 'à adapter
ActiveWorkbook.SaveAs leFichier
ActiveWorkbook.Close False
'...
.Attachments.Add (leFichier)
'...
Merci pour ton aide mais
leFichier = chemin & "\nomdufichier.xlsx
ne marcher pas. J'ai fait un enregistrement manuelle avec une nouvelle macro et j'ai copier coller l'enregistrement. simple et efficace