nrdz83
XLDnaute Impliqué
je repost parce que l'intitulé était pas correst
Bonjour à tous , voila mon problèmes j'essaye d'apapter un code pris sur le forum, qui me permette d'envoyer une feuille de mon classeur par mail, j'utilise ce code>>
Private Sub CommandButton7_Click()
'modifs pour :
Dim Sujet$
Sujet = _
InputBox("Plongée du jour ", _
"Envoi Mail", "Plongée du : " _
& Format(Date, "dd-mm-yyyy"))
ActiveSheet.Range("A1:O21").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = "phillipe.tdudud@defense.gouv.fr"
.Item.Subject = Sujet
.Item.Send
End With
End Sub
et il bloque la feuille que je souhaite envoyer c'est la feuille"plongée journalière",
merci pour vos lumières amitiés
Bonjour à tous , voila mon problèmes j'essaye d'apapter un code pris sur le forum, qui me permette d'envoyer une feuille de mon classeur par mail, j'utilise ce code>>
Private Sub CommandButton7_Click()
'modifs pour :
Dim Sujet$
Sujet = _
InputBox("Plongée du jour ", _
"Envoi Mail", "Plongée du : " _
& Format(Date, "dd-mm-yyyy"))
ActiveSheet.Range("A1:O21").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "This is a sample worksheet."
.Item.To = "phillipe.tdudud@defense.gouv.fr"
.Item.Subject = Sujet
.Item.Send
End With
End Sub
et il bloque la feuille que je souhaite envoyer c'est la feuille"plongée journalière",
merci pour vos lumières amitiés
Dernière édition: