Je ne sais pas si c'est parce que j'utilise outloox express ou tout simplement parce que je ne suis pas assez calé en VBA, mais cela ne marche pas ...
Voici la macro que j'ai récupérée sur un autre forum, qui me permet effectivement de séléctionner la plage de cellules à envoyer (le mail est placé dans la boite d'envoi d'outlook express, donc OK...) si tu pouvais juste la modifier pour choisir les destinataires à partir d'une colonne ou ligne Excel ce serait super...
Merci d'avance Pascal et désolé pour mes lacunes basiques.
Sub EnvoiPlageDonnéeParCourriel()
Dim Plage As Range, T As Variant, A As Long
Dim Shap As Object, B As Integer
Application.ScreenUpdating = False
With Worksheets("Feuil1")
Set Plage = Worksheets("feuil1").Range("A1:A10")
T = Plage
.Copy
End With
A = Plage.Rows.Count
B = 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, B)) = T
For Each Shap In .Shapes
Shap.Select Replace:=False
Next
Selection.Delete
End With
SendKeys "(%{E})", False
.SendMail Recipients:="azerty@serveur.fr", , Subject:="Test"
.Close savechanges:=False
End With
Set Plage = Nothing: Set Shap = Nothing
End Sub
