Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Pbm d'envoi de fichier en VBA

Pbm d'envoi de fichier en VBA

2 réponses
Avatar
Denis
Bonjour,

Cette macro se trouve dans le module de mon fichier "toto",
Quelle instruction dois-je rajouter pour qu'il envoi le=20
fichier "tonton" qui est ouvert =E0 l'=E9cran ?

Sub EMail()
Dim Mail As Object
With CreateObject("Outlook.Application")
Set Mail =3D .CreateItem(0)
With Mail
.Subject =3D "Aper=E7u " & Date
.Body =3D "Mesdames et Messieurs" & Chr(13) _
& "Veuillez svp, examiner les documents attach=E9s." &=20
Chr(13) _
& "Salutations." & Chr(13) & Application.UserName
.To =3D "denis"
.CC =3D ""
.Send
End With
Set Mail =3D Nothing
End With
End Sub

Merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour Denis
.Attachments.Add (Workbooks("tonton.xls").FullName)
Cordialement
Pascal

"Denis" a écrit dans le message de
news:2f7f01c3fd19$92a62e80$
Bonjour,

Cette macro se trouve dans le module de mon fichier "toto",
Quelle instruction dois-je rajouter pour qu'il envoi le
fichier "tonton" qui est ouvert à l'écran ?

Sub EMail()
Dim Mail As Object
With CreateObject("Outlook.Application")
Set Mail = .CreateItem(0)
With Mail
.Subject = "Aperçu " & Date
.Body = "Mesdames et Messieurs" & Chr(13) _
& "Veuillez svp, examiner les documents attachés." &
Chr(13) _
& "Salutations." & Chr(13) & Application.UserName
.To = "denis"
.CC = ""
.Send
End With
Set Mail = Nothing
End With
End Sub

Merci
Avatar
papou
Heu ...
pour prévenir en cas d'erreur :
On Error Resume Next
.Attachments.Add (Workbooks("USF_FiltreElabore.xls").FullName)
If Err Then MsgBox "Fichier non trouvé pour la pièce jointe",
vbInformation
Cordialement
Pascal

"papou" <DesolePasDeMail> a écrit dans le message de
news:OK8FOkT$
Bonjour Denis
.Attachments.Add (Workbooks("tonton.xls").FullName)
Cordialement
Pascal

"Denis" a écrit dans le message de
news:2f7f01c3fd19$92a62e80$
Bonjour,

Cette macro se trouve dans le module de mon fichier "toto",
Quelle instruction dois-je rajouter pour qu'il envoi le
fichier "tonton" qui est ouvert à l'écran ?

Sub EMail()
Dim Mail As Object
With CreateObject("Outlook.Application")
Set Mail = .CreateItem(0)
With Mail
.Subject = "Aperçu " & Date
.Body = "Mesdames et Messieurs" & Chr(13) _
& "Veuillez svp, examiner les documents attachés." &
Chr(13) _
& "Salutations." & Chr(13) & Application.UserName
.To = "denis"
.CC = ""
.Send
End With
Set Mail = Nothing
End With
End Sub

Merci