XL 2013 VBA-Envoyer par email "Plage de cellules collée dans un nouveau classeur en gardant formules de certaines cellules

[MONTREAL2020]

Bonjour,

Un petit caprice d'un profane en VBA

J'ai trouvé ce code que j'utilise et qui fonctionne parfaitement bien et me permet d'envoyer une plage de cellules d'un fichier original coller dans un nouveau classeur. Le fichier (classeur) est une copie en valeurs de ma plage.

Serait-il possible de garder juste une colonne avec les formules, la colonne en question contient une Somme des cellules ( Ex. Cellule T74 contient la somme de E1:S1)

Merci à vous



********************************************************************************************************************
Option Explicit

'Ne pas oublier :
'de cocher la référence Microsoft Outlook xx.0 object library dans l'éditeur VBE (outil>références)



Sub EnvoiMailFeuilleActive_Watch_List()
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String




With Application
.ScreenUpdating = False
.EnableEvents = False
End With

Set Sourcewb = ActiveWorkbook

'Copy the sheet to a new workbook
ActiveSheet.Copy
Set Destwb = ActiveWorkbook

'Determine the Excel version and file extension/format
With Destwb
If Val(Application.Version) < 12 Then
'You use Excel 97-2003
FileExtStr = ".xls": FileFormatNum = -4143



Else
'You use Excel 2007-2010, we exit the sub when your answer is
'NO in the security dialog that you only see when you copy
'an sheet from a xlsm file with macro's disabled.
If Sourcewb.Name = .Name Then
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
MsgBox "Your answer is NO in the security dialog"
Exit Sub
Else
Select Case Sourcewb.FileFormat
Case 51: FileExtStr = ".xlsx": FileFormatNum = 51
Case 52:
If .HasVBProject Then
FileExtStr = ".xlsm": FileFormatNum = 52
Else
FileExtStr = ".xlsx": FileFormatNum = 51
End If
Case 56: FileExtStr = ".xls": FileFormatNum = 56
Case Else: FileExtStr = ".xlsb": FileFormatNum = 50
End Select
End If
End If
End With




'Change all cells in the worksheet to values if you want
With Destwb.Sheets(1).UsedRange
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Select
End With
Application.CutCopyMode = False

Range("A1:A70").EntireRow.Delete
'Columns("A:E").Delete



'Save the new workbook/Mail it/Delete it
TempFilePath = Environ$("temp") & "\"
TempFileName = "Liste à surveiller - Watch_List " & " " _
& Format(Now + 1, "dd-mm-yyyy ")

With Destwb
.SaveAs TempFilePath & TempFileName & FileExtStr, _
FileFormat:=FileFormatNum
.Close Savechanges:=False
End With
Dim OLApplication As Outlook.Application, OLMail As Outlook.MailItem
Set OLApplication = CreateObject("Outlook.Application")
Set OLMail = OLApplication.CreateItem(OLMailItem)
With OLMail

.To = "..com" ' Destinataire à préciser
.CC = "" ' MailCC ' Copie"
.BCC = "...com"
.Importance = olImportanceNormal
.Subject = "Liste à surveiller " & " " _
& Format(Now + 1, "dd-mm-yyyy ") ' Sujet
.body = "Fichier en PJ" ' Message
.Attachments.Add (TempFilePath & TempFileName & FileExtStr) ' Pièce jointe
.Categories = "Daily"
'.OriginatorDeliveryReportRequested = True ' Accusé de dépôt
'.ReadReceiptRequested = True ' Accusé de lecture
.Send '<<<<<<<<<<<<<<<Pour envoyer directement
'.Display '<<<<<<<<<<<<<Pour voir le mail avant envoi
End With



'Delete the file you have send
Kill TempFilePath & TempFileName & FileExtStr

With Application
.ScreenUpdating = True
.EnableEvents = True
End With

Set OLApplication = Nothing
Set OLMail = Nothing




End Sub

**********************************************************************************************************************

 

[Deadpool_CC]

Bonjour,

.Cells.PasteSpecial xlPasteValues

Vous coller uniquement les valeurs
Donc si vous voulez remettre les formules dans la nouvelle feuille il va falloir après avoir Coller, allez remettre les formules dans les cellules concernées ... par exemple positionné vous sur la nouvelle feuille et ensuite forcer les formule des cellules concernées

Sheets("NouvelleFeuil").Activate
Range("T74").formula = "=somme("$E$1:$S$1)"

Sinon, copier tout en valeur, puis ensuite faite des copier coller "normaux" des cellules ou vous souhaitez conserver les formule ...

bref cela dépend de votre fichier et du résultat attendu.

ps. : un fichier exemple aurait facilité la réponse, voir vous auriez eu une réponse sur mesure.

A+

 

[MONTREAL2020]

Bonjour è tous,

Merci pour vos suggestions, mais elles ne répondent pas è mon besoin malheureusement.

Mon classeur s'envoie directement vers le destinataire, donc je ne veux pas l'ouvrir.
la macro que j'ai, crée le classeur et lui donne un nom et copie/colle en valeurs le tableau (plage de cellules)
Ce que je veux c'est de garder les formule sur ma dernière colonne qui représente le total (somme)

MERCI

CODE	Cond L.P	ORLANDO	MASSACHUSSET	CALGARY	HALIFAX	OTTAWA	Total
POS9010221006	12"				2		50
NAT1010121003	24	1	1				10
NAT2410031001	23"	5	10	16		10	78
NAT2410011001	11"	5	20	20		10	98
POS9012881001	14x6		7	2			9
POS9010211001	20		15				63
NAT9010031002	18				4		72
NAT2010431001	20x454GR		1			1	8
NAT2010261008	40"	3	10	10	1		38
POS1210011004	113		10	18			39
POS1110011001	10KG	4	5	5		20	109
NAT2110061005	15"	15	30	16	5		193
NAT2210151002	12						10
NAT1010011004	24	2	2	3	1	3	62
NAT1810121002	4KG	5	20	8	3	18	88
NAT1210071002	24	1	1	1		2	12
POS9010061001	8x454GR		30		10	40	318