XL 2019 vba : copier en valeur un onglet avant envoi par mail

douguy · 13 Février 2022

bonjour le forum

Je bute sur un problème de copie valeur
je veux envoyer un onglet par mail avec VBA
L'onglet en question a des formules que je souhaite remplacer par la valeur avant envoi
Le code marche super sauf qu'il reprend les formules puisqu'il ne fait pas le coller pastespecial xlvalue
comment indiqué ce collage spécial?

MErci pour votre aide

le code utilisé est le suivant

VB:

Sub EnvoiMailavecPJ()
 
    Dim chemin As String, fichier As String
 
    chemin = ThisWorkbook.Path
    fichier = chemin & "\" & "fichier" & Range("A3") & ".xls"
 
    ThisWorkbook.Sheets("base").Copy
    ActiveWorkbook.SaveAs Filename:=fichier
 
    Dim MonOutlook As Object
    Dim MonMessage As Object
 
    Set MonOutlook = CreateObject("Outlook.Application")
    Set MonMessage = MonOutlook.CreateItem(0)
 
        MonMessage.To = "xxxxx@yyyy.fr"
        MonMessage.Subject = "pppp"
        MonMessage.body = "Bonjour," & _
                    Chr(13) & Chr(13) & "Veuillez trouver, ci-joint, fichier pppp ." & _
                    Chr(13) & Chr(13) & "Bonne réception."
 
        MonMessage.Attachments.Add ActiveWorkbook.FullName
        MonMessage.display
 
    ActiveWorkbook.Close
 
    Set MonOutlook = Nothing
 
End Sub

Compte Supprimé 979 · 13 Février 2022

Bonjour Douguy

Merci d'éditer votre post et de mettre le code entre balises SVP

Sinon, voici comment on peut faire

VB:

ThisWorkbook.Sheets("base").Copy
With ActiveWorkbook
  With .Sheets(1)
    .Cells.Copy
    .Cells.PasteSpecial Paste:=xlPasteValues
  End With
  .SaveAs Filename:=Fichier
End With

A+

Staple1600 · 13 Février 2022

Bonsoir le fil

Puisqu'on parle édition, tant qu'on y est, si j'étais moi, je mettrai un mail factice
Du genre : jean.bon@blanc.com
Ah, non , c'est vrai, c'est pas woke
Préférez alors : sojatofu@vegan.edu

PS: Salutations, BrunoM45

Staple1600 · 13 Février 2022

Re

Une autre syntaxe possible
(test OK sur mon PC- le classeur contenant le code VBA doit être enregistré au préalable)

VB:

Sub copievaleursseules()
ThisWorkbook.Sheets("base").Copy
ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
With Workbooks(ActiveSheet.Parent.Name)
    .SaveAs ThisWorkbook.Path & "\test1.xlsx", 51
    .Close 0
End With
End Sub

douguy · 13 Février 2022

bonjour à vous
Merci pour votre aide. j'ai utilisé la méthode de Bruno !
Ca fonctionne nickel
J'ai édité mon message
Bon dimanche

XL 2019 vba : copier en valeur un onglet avant envoi par mail

douguy

XLDnaute Junior

Compte Supprimé 979

Guest

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

douguy

XLDnaute Junior

Discussions similaires