Comment envoyer la sélection de mon tableau par mail en 1 clic avec VBA
Bonjour
pouvez vous m'aider a trouver un code Vba pour envoyer par mail un tableau qui se trouve sur mon fichier Excel
Merci pour vôtres aides
Bonsoir Excel38, bonsoir à tous,
Je ne suis pas spécialiste de la messagerie, mais ce code fonctionne.
Sélectionner le tableau à la souris, et cliquer sur le bouton que vous avez crée.
Une fenêtre Outlook s'ouvrira, vous pourrez modifier les attributs (texte, copie, multi destinataire...) et envoyer.
Si vous n'avez qu'un seul destinataire, vous pouvez le préciser directement dans le code.
Sub EnvoyerParMail()
'Sélectionner une plage, une cellule
Dim oOutlook As Object
Dim oMail As Object
Dim oObjetWord As Object
Dim StrBody
Set oOutlook = CreateObject("Outlook.Application")
Set oMail = oOutlook.CreateItem(0)
With oMail
Set oObjetWord = .GetInspector.WordEditor
.To = "Votre adresse mail"
.Subject = "Extrait de la feuille " & ThisWorkbook.Name
StrBody = "<HTML> Bonjour,</HTML>"
.HTMLBody = StrBody & .HTMLBody
Selection.Copy
oObjetWord.Range(8).Paste
.display
End With
Application.CutCopyMode = xlCut
End SubBons tests.
A+
AL 22
Bonsoir AL22
je viens de faire un essai, il y a un bug dans le code
merci pour ton aide
Bonjour Excel38, bonjour à tous,
Ah ! Mince !
Essaie de rajouter dans le code juste après "With oMail" :
.Displayet avant la ligne en défaut :
Set oObjetWord = .GetInspector.WordEditorBonne journée.
AL 22