Bonjour tout le monde,

Le programme consiste à sélectionner des données sous excel et de les insérer dans un mail Outlook.
Je ne m'y connais pas du tout dans ce type de manipulation mais je vais apprendre.

Un ami m'a montré un bout de code pour effectuer cette opération, mais ne sachant pas faire une sélection multiple et je ne vois pas comment utiliser le code également.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Send_Range()
 
   Dim Count As Integer
 
   Count = Application.WorksheetFunction.Count(Range("L13:L35"))
 
   Range(Cells(3, 2), Cells(11 + Count + 11, 15)).Select
 
   ActiveWorkbook.EnvelopeVisible = True
 
   With ActiveSheet.MailEnvelope
 
      .Item.To = "Sibuxian@adresse-mail.fr"
      .Item.Subject = "Test "
      .Item.Send
 
   End With
End Sub
Avec ce code, cela me permet d'insérer directement dans le mail, la zone sélectionnée. Sachant que j'ai 2 zones à insérer dans le mail qui sont forcément sur des feuilles différentes. Je ne sais pas comment faire.

Si quelqu'un a une idée, je suis preneur. Merci