Envoi Mail
Bonjour,
J'aimerais pouvoir envoyer un mail avec un corps de texte et une pièce jointe 'un fichier excel'
Seulement je ne peux pas envoyer car le fichier est trop gros. J'aimerais pouvoir envoyer une feuille en particulier dans le fichier Excel. Comment est-il possible de réaliser ça ?
J'ai fait ça
Merci de votre aide
Code :
Sub envoiMail()
Dim Fichier As Variant
Fichier = Application.GetOpenFilename("Tous les fichiers(*.*), *.*")
MsgBox Fichier
Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = CreateObject("Outlook.Application")
Set MonMessage = MaMessagerie.Createitem(0)
MonMessage.To = "xxxx@xxx.fr"
MonMessage.CC = "xxxx@xxx.fr"
MonMessage.attachments.Add Fichier
MonMessage.Subject = "Test Envoi VBA"
contenu = "Voici les tâches de la semaine"
contenu = contenu & Chr(10) & Chr(13)
contenu = contenu & "Ci-joint la fiche"
MonMessage.Body = contenu
MonMessage.Send
Set MaMessagerie = Nothing
End Sub
Hello,
J'ai pas excel pour te donner le code exact mais ce que tu peux faire c'est :
1) créer un nouveau classeur vierge
Workbooks.Add2) copier-coller la feuille voulue dans ce classeur
Worksheets("nom_de_feuille").Copy3)enregistrer le classeur sur le bureau par exemple
ActiveWorkbook.SaveAs4) envoie du mail avec la PJ (ta procédure)
5) supprimer le classeur
Kill ("\nomdudossier\nomdufichier.xls")+ un peu de recherche sur ce forum et tu devrais t'en sortir
R@G