Macro mail la plus simple

B

Bruce68

XLDnaute Impliqué

• 7 Avril 2012

• #2

Re : Macro mail la plus simple

Bonsoir xhudi69 et le forum

Voir fichier ci joint

 

Pièces jointes

• essais_mailM1.xls

  42.5 KB · Affichages: 46

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 7 Avril 2012

• #3

Re : Macro mail la plus simple

Bonsoir BRUCE68, le forum

un grand merci pour ce réaménagement de macro, cela fonctionne même si j'ai observé que le mail transitait 30 à 40 secondes dans la boîte d'envoi, mais cela n'est pas génant.

une autre question, comment faire pour mettre un texte, tout de même, du style "veuillez trouver en pièce jointe.........."
merci à toi pour ton travail.

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 7 Avril 2012

• #4

Re : Macro mail la plus simple

re bonsoir xhudi69 et le forum

Voir la nouvelle piece jointe, la feuille sera expédiée en PDF et on peut mettre un message.

Macros trouvées sur les forums ( merci aux auteurs)

 

Pièces jointes

• essais_mail-M2.xlsm

  24.6 KB · Affichages: 77

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 8 Avril 2012

• #5

Re : Macro mail la plus simple

Bonjour BRUCE, le forum et JOYEUSES PACQUES

merci beaucoup BRUCE pour ces codes,
la version envoi en PDF est redoutable, rapide et ne mesure que quelques centimètres 😉 toutefois les esprits chagrins voudrons sauvegarder une copie, il suffit de faire sauter la ligne de code:
Kill ActiveWorkbook.Path & "\" & "Feuil1.pdf"
et de la remplacer par un
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\User\Bureau\" & NomPDF
Je n'ai pas trouvé la bonne macro pour la sauvegarde en PDF.....si quelqu'un a une idée.......

merci de votre retour

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 8 Avril 2012

• #6

Re : Macro mail la plus simple

re:

pour la sauvegarde du pdf, remplacer la ligne:

Kill ActiveWorkbook.Path & "\" & "Feuil1.pdf"
par:

Activefeuil1.pdf.SaveAs Filename:= _
"C:\Users\MACHIN\Desktop\essais"

voila une macro qui nous change des plaques de goudron qui tiennent 2 pages de code et particulièrement indigeste.
attention toutefois à renommer vos fichier, si quelqu'un a une idée.....

Merci à tous.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Avril 2012

• #7

Re : Macro mail la plus simple

Bonjour à tous

Sous Excel 2007, il y a cet addin pour enregistrer en PDF.
Détails du téléchargement : Complément de Microsoft Office 2007 : Enregistrement en PDF dans Microsoft
Je suppose que tu l'as installé.
Si oui, utilises l'enregistreur de macros, pour avoir le code vba adéquat quand tu enregistres une feuille en PDF.

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 8 Avril 2012

• #8

Re : Macro mail la plus simple

bonjour STAPLE et joyeuses pacques

merci pour l'addin, je cherchais avec des jumelles ce que j'avais sous les yeux, mais je travaille beaucoup avec acrobat 9 et j'ai rarement l'occasion de convertir de l'EXCEL en PDF.
j'ai récupérer le code, mais n'apporte pas grand chose de plus si ce n'est ces deux lignes, non indispensables à mon avis.

, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

le confort serait de pouvoir incrémenter le nom des fichiers car dans mon cas cette même feuille de relevé d'heure seraenvoyée une fois par semaine aux agences d'intérim, (c'est une feuille récap)

donc pour la ligne:
"C:\Users\MACHIN\Desktop\essais"
il faudrait incrémenter le nom de fichier à chaque fois, par ex: le N° de semaine...................

un grand merci à vous.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Avril 2012

• #9

Re : Macro mail la plus simple

Re

Mon précédent message était la réponse à ce tu écrivais plus bas pourtant.

Je n'ai pas trouvé la bonne macro pour la sauvegarde en PDF.....si quelqu'un a une idée.......

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 8 Avril 2012

• #10

Re : Macro mail la plus simple

Re

encore une fois merci, STAPLE,
as tu une idée pour nommer différement le PDF,
je pensais faire appel à une cellule conténant le N° de semaine du style:
Activefeuil1.pdf.SaveAs Filename:=Range("A1").Value
mais je butte sur la ligne suivante:
"C:\Users\ARL MULTI\Desktop\filename..................

Merci de ton retour

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Avril 2012

• #11

Re : Macro mail la plus simple

Re

Comme suggéré précédemment , j'ai utilisé l'enregistreur de macros pour avoir une ébauche de code VBA.

Voici un exemple simple qui fonctionne, je te laisse adapter pour la conversion en pdf à partir de celui-ci.

Code:

Sub Macro1()
    Sheets("Feuil1").Select
    Sheets("Feuil1").Copy
    ChDir "C:\"
    ActiveWorkbook.SaveAs Filename:="C:\" & Range("A1").Text & ".xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWorkbook.Close True
End Sub

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 8 Avril 2012

• #12

Re : Macro mail la plus simple

Re,
merci pour tout STAPLE
le code remanié:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\MACHIN\Desktop\TIME_CONTROL\MACRO_TIME_CONTROL\NANA_" & Range("A1").Text & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

le PDF se rangera dans le bon dossier avec pour nom, NANA_ + le texte de la cellule A1

merci à tous et joyeuses Pacques. 😎

 

Vote positif 0 Vote négatif