suppression lignes avant envoi email[RESOLU]

[moutchec]

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.]

Hello,

Comme ca ?

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

 

[moutchec]

bonjour et merci pour votre réponse.
le code a plutôt supprimé les lignes 1 et 2 sur le fichier et c'est ainsi après l'envoi, et en même temps a quand même ennoyé une copie de la feuille active avec les 2 lignes pas supprimées.

 

[D.D.]

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]

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.

 

[D.D.]

Ok.
Je viens d'essayer.
Chez moi c'est bien le nouveau classeur qui a ses 2 lignes supprimées puis qui est envoyé.

 

[moutchec]

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