suppression lignes avant envoi email[RESOLU]

moutchec

XLDnaute Occasionnel
bonjour le forum
bonjour et bonne année à tous,
j'ai récupéré ce code sur un fil du forum et je sollicite svp, votre aide pour l'améliorer.

Private Sub CommandButton1_Click()
Destinataire = "moutchec@gmail.com"
ActiveSheet.Copy
With ActiveWorkbook
.SendMail Recipients:=Destinataire
Application.DisplayAlerts = False
.Close
Application.DisplayAlerts = True
End With
End Sub

il fonctionne bien mais j'aimerais :
- avant envoi = que le code supprime les lignes 1 et 2 qui contiennent des données que je ne souhaite pas partager.
- envoi à plusieurs personnes (comment ajouter d'autres destinataires?)
merci d'avance pour votre aide.
cordialement.
Moutchec
 

D.D.

XLDnaute Impliqué
Hello,

Comme ca ?

Code:
Private Sub CommandButton1_Click()
Destinataire = "moutchec@gmail.com; Yo@Man.com"
ActiveSheet.Copy
With ActiveWorkbook
Rows("1:2").Delete Shift:=xlUp
.SendMail Recipients:=Destinataire
Application.DisplayAlerts = False
.Close
Application.DisplayAlerts = True
End With
End Sub
 
Dernière édition:

D.D.

XLDnaute Impliqué
Pas tout compris.
Il faut que les 2 lignes soient supprimées sur le classeur principal d'abord ?
Ou que le classeur principal ne soit pas touché, qu'il s'en fasse une copie, que les 2 lignes soient supprimées dans la copie puis que ce soit cette copie qui soit envoyée ?
(Et que fait on de la copie ensuite ?)
 

moutchec

XLDnaute Occasionnel
c'est la deuxième option :
que le classeur principal ne soit pas touché, qu'il s'en fasse une copie, que les 2 lignes soient supprimées dans la copie puis que ce soit cette copie qui soit envoyée ?
une fois la copie envoyée pas besoin de la conserver.
 

moutchec

XLDnaute Occasionnel
j'ai essayé sur un fichier exemple, joint, c'est l'original qui est modifié et la copie est envoyée sans modification.

marche avec ce code qui agit en 2 temps

Private Sub CommandButton1_Click()
ActiveSheet.Copy After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = "copie"
.Rows("1:2").Delete Shift:=xlUp
End With
Destinataire = "m@gmail.com"
ActiveSheet.Copy
With ActiveWorkbook
.SendMail Recipients:=Destinataire
Application.DisplayAlerts = False
.Close
Sheets("copie").Delete
Application.DisplayAlerts = True
End With
End Sub
Haut
Répondre Sujet précédentSujet suivant
 

Pièces jointes

  • Classeur2.xlsm
    26 KB · Affichages: 11
Dernière édition:

Discussions similaires

Réponses
1
Affichages
302

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 850
dernier inscrit
Danigra