Sélection multiple sur des feuilles différentes

Version imprimable

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:

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

Salut

Essaye ça

Code:

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

31/05/2010, 11h24
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
31/05/2010, 12h05
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 ?
31/05/2010, 12h14
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.

et en passant par word avec un code dans ce style

Code:

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+

01/06/2010, 09h43
Sibuxian

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