envoie copie fichier par mail

[drisou]

bonsoir le Forum,
voila j'utilise le code suivant pour envoyer par mail , le fichier actif, mais le fichier contient plusieurs feuille , avec des formules et des macro ,du coup le fichier deviens lourd et surtout les expéditeurs n'ont besoin que de la "feuille1" ,sans les macros que le fichier contient.

je voulais savoir si en reprenant la macro suivante , il était possible d'envoyer le fichier actif mais uniquement la "feuille1", ce qui ferait que le fichier soit leger pour l'envoie par mail.

Sub envoiemail(ByVal control As IRibbonControl)


ActiveWorkbook.SendMail ("leric@wa.fr")
ActiveWorkbook.SendMail ("pascal@coco.com")

End Sub

Merci pour votre aide.

 

[Roland_M]

Re : envoie copie fichier par mail

re, manu

comme ceci

Sub EnvoiEmail()
Dim NewBook As Workbook, Fich As String, FichTemp As String

'select source et init nom du fich avec date en [A3]
Worksheets("feuil1").Select: Worksheets("feuil1").Activate
Fich = "journée du " & Format(ActiveSheet.Range("A3"), "ddmmyy") & ".xls"

'copy toutes les cellules occupées de cette feuille
ActiveSheet.UsedRange.Copy

'cré NewBook et colle les valeurs avec formats
Set NewBook = Workbooks.Add
NewBook.Sheets(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.FormatConditions.Delete
Application.CutCopyMode = False
NewBook.Sheets(1).Range("A1").Select

'save et load le chemin complet pour suppr après
Application.DisplayAlerts = False
NewBook.SaveAs Filename:=Fich, FileFormat:=xlWorkbookNormal
FichTemp = ActiveWorkbook.FullName
Application.DisplayAlerts = True
'envoi
ActiveWorkbook.SendMail ("leric@wa.fr")
ActiveWorkbook.SendMail ("pascal@coco.com")
'close et supprime le fichier du disque
ActiveWorkbook.Close False
Kill FichTemp
End Sub

 

[drisou]

Re : envoie copie fichier par mail

Bonsoir Roland_M, manuBX, le forum
Roland , j'ai essayé en mettant une rem , disons qu'au lieu de 2,40 mo, il fait maintenant 1,60 mo.
c'est déja pas mal pour moi, ca me divise le poids du fichier par près de 3 a l'envoie.
je passe de 4 mo du fichier source a 1,60mo fichier créé.

merci de m'avoir aidé et ta patience, c'est super sympa.
Bonne soirée

 

[manuBX]

Re : envoie copie fichier par mail

MERCI MERCI à vous tous
Manu