Discussion :

[jicayom]

Bonjour,

Je rencontre une petite difficulté pour créer une macro Excel :
J'ai un tableau Excel avec une colonne reprenant des adresses mails. J'aimerais qu'en cliquant sur une des cellules de la colonne des adresses mails, cela ouvre un template Outlook avec dans le champs "To" les adresses mails de la cellule en question.

Que me conseillez-vous de faire ?

J'ai fais un petit début d'esquisse ce macro :

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
 
Sub Mail_Workbook_1()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
 
    With OutMail
        .To = Worksheets("Clients").Range(1, 2) //Point bloquant à ce niveau
        .CC = "test@test.fr"
        .BCC = ""
        .Subject = "Hello World"
        .Body = "Hello World!"
        .Send
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Je suis confronté à plusieurs difficultés :
- Comment définir le champs "To" ?
Pour exemple : je n'arrive pas à faire en sorte que lorsqu'on clique dans le fichier Excel sur une cellule des adresses mails, on retrouve dans le champs "To" les adresses mails qui correspondent ?
- Est-il possible d'utiliser un template Outlook .oft existant en intégrant dans le champs "To" les adresses mails du fichier Excel ?

Exemple :
Dans la cellule A2 : j'ai les adresses mails "test1@test.fr; test2@test.fr".
J'aimerais qu'en cliquant dans cette cellule, j'ai mon template .oft existant qui s'ouvre avec dans le champs "To" les adresses mails "test1@test.fr; test2@test.fr".

Comment je peux m'y prendre ?

Merci !

[patricktoulon]

Bonjour

remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.To = Worksheets("Clients").Range(1, 2)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.To = Worksheets("Clients").cells(1, 2)

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.To = Worksheets("Clients").Range("a2")

[jicayom]

Merci pour ton retour.
Seulement, si je clique sur la cellule "a3" cela continuera de récupérer les champs de la cellule "a2"... Comment contourner ce problème ?

[patricktoulon]

ok
alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.To = Worksheets("Clients").selection

[jicayom]

Cela ne fonctionnait pas avec le ".selection" mais j'ai réussi à trouver.

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
Sub Mail_Workbook_1()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
 
    With OutMail
        .To = ActiveCell.Value
        .CC = "operatorsit@efa.eu"
        .BCC = ""
        .Subject = "Hello World"
        .Body = "Hello World!"
        .Open
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Par contre il me reste une dernière petite chose... Je n'arrive pas juste à ouvrir le mail... Je peux l'envoyer via la commande .Send mais à première vue la commande .Open ne fonctionne pas.
Savez-vous comment faire pour créer le mail sans l'envoyer : il y a une petite modification manuelle à mettre dans le mail avant l'envoi.

[Fvandermeulen]

Salut,

C'est pas .Open mais .Display

A+

[patricktoulon]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Clients").selection

c'est la mem chose que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Clients").activecell