Macro Pour Envoyer Une Feuille Excel Par Mail De
ExportAsFixedFormat Type:=xlTypePDF, & "\" & & "", Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False Set OutApp = CreateObject("lication") Set OutMail = eateItem(0) 'envoi/prépration du mail With OutMail = "" = "". Subject = "sujet du mail". & "\" & & "" = "Bonjour, le message a mettre dans le mail ". display 'ou alors utiliser ' 'pour envoi 'Effacer le fichier envoyé 'Kill & "\" & & "" Set OutMail = Nothing Set OutApp = Nothing With Application. ScreenUpdating = True. Macro pour envoyer une feuille excel par mail. EnableEvents = True End Sub Je ne réponds pas aux M. P. non sollicités. 2022 Emploi Responsable fabrication Lieu Seine et Marne France bonjour, merci beaucoup pour ce retour rapide, cela fonctionne tres bien, le problème est d avoir un format PDF qui n est pas a la bonne taille par rapport au excel. est ce qu il est possible de faire la sauvegarde en excel, avec la date dans le nom de l onglet qui s incrémente en fonction du jour d envoi. est ce qu il est possible d avoir une liste de diffusion différente en fonction de l onglet envoyé?
Macro Pour Envoyer Une Feuille Excel Par Mail Google
Je vous remercie de m'avoir lu et de porter un intérêt à ma problématique. Dans l'attente de vous lire, Cordialement, Babacool22
Subject = leSujet = mesAA = lecorp = mesCC. display If contenu = "" Then contenu = "vide" modifier = MsgBox ( contenu & vbCr & "Voulez vous choisir un fichier à joindre? ", vbYesNo, "Fichiers paramétrés") If modifier = vbYes Then For i = 0 To 9 If i > 0 Then encore = MsgBox ( "un autre? ", vbYesNo) quest: If encore <> vbNo Then PJ = InputBox ( "Emplacement du fichier joint au PUBLIPOSTAGE? Macro pour envoyer une feuille excel par mail 1. ", "Paramétrage du PUBLIPOSTAGE pour la session", publipostagePJ ( i)) End With mesCC = "" mesAA = "" Next Set leOutlook = Nothing End Sub Merci d'avance pour votre aide! 02/02/2022, 13h10 #2 + Répondre à la discussion Cette discussion est résolue.