Discussion :

[Sibuxian]

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

[le_dilem]

Essaye ça

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
19
20
21
22
23
Sub Send_Range()
 
   Dim Count, i As Integer
    Dim nomf
 
 
   For i = 1 To 2
 
   nomf = InputBox("Le Nom de La feuille" & " N°" & i)
 
  Sheets(nomf).Select
      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 = "yacine.bensidhoum@gmail.com" 'Sibuxian@adresse-mail.fr
      .Item.Subject = "Test "
      .Item.Send
 
   End With
 
   Next i
End Sub

[Sibuxian]

Bonne idée.

J'ai testé. Mon problème, c'est que ca envoit 2 mails alors que je voudrais avoir le contenu des 2 feuilles dans le même mail à la suite.
et que le mail s'envoit automatiquement après

Enfaite, n'utilisant pas la fonction Copy/Past.
Je ne sais pas comment sélectionner 2 range différents pour les insérer à la suite dans le mail

[zyhack]

bonjour

une solution ne serait-elle pas de créer une nouvelle feuille dans laquelle tu copie tous ce que tu veux envoyer et après l'envoi tu la supprime ?

[Sibuxian]

malheureusement, j'y avais déjà pensé Mais la mise ne forme auniveau de la taille des lignes et colonnes de mes tableau ne me permet pas de le faire.

[zyhack]

et en passant par word avec un code dans ce style

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub test()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Count As Integer
    Set WordApp = New Word.Application
    'WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Add
 
    'selection dans la premiere feuille
    Sheets("Feuil1").Select '<- nom de la feuille à modifier
    Count = Application.WorksheetFunction.Count(Range("L13:L35"))
    Range(Cells(3, 2), Cells(11 + Count + 11, 15)).Copy
 
    WordApp.Selection.Paste 'copie dans word
 
    'selection dans la deuxième feuille
    Sheets("Feuil2").Select '<- nom de la feuille à modifier
    Range("A1:H10").Copy '<- selection à changer
 
    WordApp.Selection.Paste 'copie dans word
 
    WordApp.Selection.WholeStory 'selection de ce qui a été copié dans word
    Application.CutCopyMode = False
 
   'et on envoi
   With WordDoc.MailEnvelope
 
      .Item.To = "<a href="mailto:yacine.bensidhoum@gmail.com">yacine.bensidhoum@gmail.com</a>"
      .Item.Subject = "Test "
      .Item.Send
 
   End With
End Sub

en commentaire quelques endroits a modifier suivant tes besoins

a+

[Sibuxian]

Je vais tester le passage par word aujourd'hui. J'espere que cla fonctionnera.
Merci du conseil.