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 xls pour envoi en messagerie

xls pour envoi en messagerie

2 réponses
Avatar
Cvar
Bonjour,

J'ai un fichier à envoyer par messagerie
j'ai écrit cette macro

Sheets("Envois").Select
Range("A7:H27").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Application.Dialogs(xlDialogSendMail).Show
ActiveWindow.Close
Sheets("Paye").Select
Range("A1").Select
Sheets("Paye").Select
Range("A1").Select
est_il possible : d'inclure le correspondant, automatiser l'envoi, supprimer
le message "voulez-vous enregistre le classeur"et de retourner au fichier
xls

Merci de votre réponse
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
Franck
Bonjour

Voici la macro que j'utilise pour envoyer un amil

Sub EnvoiUnMail()

Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String

MailAd = ""
Subj = "Subject"
Msg = "Texte du message"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body="
& Msg

ActiveWorkbook.FollowHyperlink Address:=URLto

End Sub

Franck
-----Message d'origine-----
Bonjour,

J'ai un fichier à envoyer par messagerie
j'ai écrit cette macro

Sheets("Envois").Select
Range("A7:H27").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Application.Dialogs(xlDialogSendMail).Show
ActiveWindow.Close
Sheets("Paye").Select
Range("A1").Select
Sheets("Paye").Select
Range("A1").Select
est_il possible : d'inclure le correspondant, automatiser
l'envoi, supprimer

le message "voulez-vous enregistre le classeur"et de
retourner au fichier

xls

Merci de votre réponse


.



Avatar
Cvar
Merci, mais je n'arrive pas à mettre la pièce jointe dans ce cas
"Franck" a écrit dans le message de news:
31a501c42915$1c6a5840$
Bonjour

Voici la macro que j'utilise pour envoyer un amil

Sub EnvoiUnMail()

Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String

MailAd = ""
Subj = "Subject"
Msg = "Texte du message"
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body="
& Msg

ActiveWorkbook.FollowHyperlink Address:=URLto

End Sub

Franck
-----Message d'origine-----
Bonjour,

J'ai un fichier à envoyer par messagerie
j'ai écrit cette macro

Sheets("Envois").Select
Range("A7:H27").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Application.Dialogs(xlDialogSendMail).Show
ActiveWindow.Close
Sheets("Paye").Select
Range("A1").Select
Sheets("Paye").Select
Range("A1").Select
est_il possible : d'inclure le correspondant, automatiser
l'envoi, supprimer

le message "voulez-vous enregistre le classeur"et de
retourner au fichier

xls

Merci de votre réponse


.