Envoi copie feuille excel par mail

[sthl]

Bonjour à tous,

Je voudrais envoyer uniquement une feuille avec les valeurs et non les formules dans la feuille par mail. Est ce que quelqu'un pourrait m'aider, je suis un peu largué là ... (voir macro envoi et envoi résultats dans le fichier)

 

[Caillou]

Re : Envoi copie feuille excel par mail

Bonjour,

Tu peux rajouter ces 2 lignes de code

Cells.Copy
Range("A1").PasteSpecial Paste:=xlPasteValues

juste après le

ActiveSheet.Copy

Caillou

 

[sthl]

Re : Envoi copie feuille excel par mail

J'ai rajouté les deux lignes. Il me demande si je veux remplacer les cellules donc je mets oui et met un msg d'erreur... As tu essayé de ton côté ?

 

[camarchepas]

Re : Envoi copie feuille excel par mail

Bonjour,

Voici la requête envoir résultats aprés livting fonctionnel

Sub Envoi_resultats()
Dim Dest As Variant, Sujet As String

Sheets("Fiche résultats").Copy 'crée une copie de la feuille active
ActiveSheet.Cells.Copy
Application.DisplayAlerts = False
  ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=False
Application.DisplayAlerts = True

Dest = Sheets("Fiche résultats").Range("E5:E7")
Sujet = "Rapport d'expertise"

ActiveWorkbook.SendMail Dest, Sujet, True

Application.DisplayAlerts = False
  ActiveWorkbook.Close 'ferme la copie de la feuille active
Application.DisplayAlerts = True

MsgBox "La fiche de résultats vient d'être envoyée. Veuillez ensuite valider votre fiche en cliquant sur le bouton Valider. Merci."
End Sub