G
Guy NSIMBA
Guest
Bonjour à Tous,
Je voudrais envoyer un tableau Excel (A1:F4) par OUTLOOK ou OUTLOOK EXPRESS comme corps du message et non pas comme fichier joint. Voici le code VBA que j'utilise mais qui ne marche pas. Je ne comprends pas où se situe l'erreur. Merci de m'aider.
Sub EnvoiPlageDonnéeParMail()
Dim Plage As Range, T As Variant, A As Long
Dim Shap As Object, F As Integer
Application.ScreenUpdating = False
With Worksheets("envoyer")
Set Plage = Worksheets("envoyer").Range("A1:F4")
T = Plage
.Copy
End With
A = Plage.Rows.Count
F = Plage.Columns.Count
With ActiveWorkbook
With .VBProject.VBComponents(ActiveSheet.Name).CodeModule
.deletelines 1, .countoflines
End With
With .ActiveSheet
.Cells.Clear
.Range(Cells(1, 1), Cells(A, F)) = T
For Each Shap In .Shapes
Shap.Select Replace:=False
Next
Selection.Delete
End With
SendKeys "(%{E})", False
.SendMail Recipients:="simba59pa@yahoo.fr", Subject:="Test"
.Close savechanges:=False
End With
Set Plage = Nothing: Set Shap = Nothing
End Sub
N.B: "envoyer" = nom de ma feuille Excel
(A1:F4) = mon tableau Excel à envoyer
simba59pa@yahoo.fr = mon adresse email
Je voudrais envoyer un tableau Excel (A1:F4) par OUTLOOK ou OUTLOOK EXPRESS comme corps du message et non pas comme fichier joint. Voici le code VBA que j'utilise mais qui ne marche pas. Je ne comprends pas où se situe l'erreur. Merci de m'aider.
Sub EnvoiPlageDonnéeParMail()
Dim Plage As Range, T As Variant, A As Long
Dim Shap As Object, F As Integer
Application.ScreenUpdating = False
With Worksheets("envoyer")
Set Plage = Worksheets("envoyer").Range("A1:F4")
T = Plage
.Copy
End With
A = Plage.Rows.Count
F = Plage.Columns.Count
With ActiveWorkbook
With .VBProject.VBComponents(ActiveSheet.Name).CodeModule
.deletelines 1, .countoflines
End With
With .ActiveSheet
.Cells.Clear
.Range(Cells(1, 1), Cells(A, F)) = T
For Each Shap In .Shapes
Shap.Select Replace:=False
Next
Selection.Delete
End With
SendKeys "(%{E})", False
.SendMail Recipients:="simba59pa@yahoo.fr", Subject:="Test"
.Close savechanges:=False
End With
Set Plage = Nothing: Set Shap = Nothing
End Sub
N.B: "envoyer" = nom de ma feuille Excel
(A1:F4) = mon tableau Excel à envoyer
simba59pa@yahoo.fr = mon adresse email