Envoi copie feuille excel par mail

sthl · 19 Juin 2014

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 · 20 Juin 2014

Re : Envoi copie feuille excel par mail

Bonjour,

Tu peux rajouter ces 2 lignes de code

Code:

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

juste après le

Code:

ActiveSheet.Copy

Caillou

sthl · 20 Juin 2014

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 · 21 Juin 2014

Re : Envoi copie feuille excel par mail

Bonjour,

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

Code:

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

Envoi copie feuille excel par mail

sthl

XLDnaute Nouveau

Pièces jointes

Caillou

XLDnaute Impliqué

sthl

XLDnaute Nouveau

camarchepas

XLDnaute Barbatruc

Discussions similaires