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