Bonjour,

Je rencontre un petit souci avec mon code VBA (je suis débutant), j'ai pour objectif de programmer à l'aide d'une macro, un envoi de mail via Outlook. Ce mail contient un template qui est crée à base de RechercheV. A l'interieur de ce mail, j'aimerai y joindre plusieurs Pj, vous apercevrez plus bas que mon code n'est pas très très optimisé ahah, dû au faite que pour envoyer plusieurs pj j'ai du réaliser un code qui me permettais d'envoyer une seul PJ et ensuite faire un LoopUntil.
J'aimerais savoir si il est possible de choisir plusieurs Pj à la fois lorsque je clique sur la macro ?

Pour l'envoie de mail je n'arrive pas à mettre plusieurs personnes en copi, j'ai essayé plusieurs méthodes mais je n'y arrives pas :/.

Pour finir j'utilise une macro qui me permet d'envoyer ce que je selectionne c'est à dire de la cellule A4 à F16 et je me pose la question suivante : est il possible au lieu de selectionner l'ensemble du template, de dire au code de directement envoyer le mail de la cellule A4 a F16 ?

Je vous remercie

Voici le code :

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
34
35
36
Sub Bouton1_Cliquer()
    Dim oOutlook As Object
    Set oOutlook = CreateObject("Outlook.Application")
 
    Dim oMail As Object
    Set oMail = oOutlook.CreateItem(0)
 
    Dim Fichier As Variant
 
    With oMail
 
        Dim oObjetWord As Object
        Set oObjetWord = .GetInspector.WordEditor
 
        .to = "test@outlook.com"
        .CC = "test@gmail.com" ; "test2@gmai.com"
        .Subject = "Devis SR: " & Range("a5") & " / " & Range("b5") & " / " & Range("c5")
        .Body = ActiveCell
         Selection.Copy
         oObjetWord.Range(0).Paste
 
        .Display
    End With
Do
        Fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")
        MsgBox Fichier
        ajoutpj = MsgBox("Ajouter une autre pièce jointe ?", vbYesNo, "Ajout Pièce Jointe")
        oMail.attachments.Add Fichier
    Loop Until ajoutpj = vbNo
 
oMail.Send
Set oOutlook = Nothing
 
MsgBox " Votre mail à bien été envoyé."
 
End Sub
Merci à vous !