Discussion :

[babuf]

Bonjour,

Je suis étudiant et dans le cadre de mon stage je dois faire de la macro excel ( or ce n'est pas mon domaine... ). J'ai effectué pas mal de recherche et j'ai bien avancé mais me voila bloqué sur un point depuis plusieurs jours.

Je détaille, je dois effectuer un renvoie de mail automatique cette partie je l'ai. le probleme c'est que dans ce mail je dois y ajouter une valeur d'une cellule excel (variable ) et je n'arrive pas a copier la cellule A3 feuille 2 (par exemple) dans le message du mail .

ma question ce trouve sur ce passage plus précisément:

.HTMLBody = "Bonjour, <BR><BR>Ce message est un mail automatique, il vous informe que " & Environ("username") & " a mis à jour la main courante.<BR><BR>" _

A la place de " Environ("usurname") je cherche a copier la cellule A3 feuille 2 da maniere a ce que la copie change en fonction de la case.




je vous mets la macro que j'ai en dessous,

en vous remerciant pour toute l'aide que vous pouvez m'apportez .

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
Sub envoi_mail()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim olFormatHTML As String
MsgBox ("Préparation du MAIL D'INFORMATION AUX UTILISATEURS DE LA MAIN COURANTE. " & Chr(10) & Chr(10) & "la fenêtre du message va s'afficher" & Chr(10) & "Merci de valider l'envoi")
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
*strbody = "Information sur la mise à jour"
On Error Resume Next
* * With OutMail
* * * * .To = "Administrateur@organisme.fr"
* * * * .CC = "Toto@yahoo.fr; <!-- e --><a href="mailto:titi@yahoo.fr">titi@yahoo.fr</a><!-- e -->"
* * * * .BCC = ""
* * * * .Subject = "Mise à jour de la main courante"
* * * * .BodyFormat = olFormatHTML
* * * .HTMLBody = "Bonjour, <BR><BR>Ce message est un mail automatique, il vous informe que " & Environ("username") & " a mis à jour la main courante.<BR><BR>" _
* * * * & "<A href=" & """" & "\\Nom_serveur\Repertoire\nom_ficihier.xls" & """" & ">Accéder à la main courante.</A>" & Chr(10) & "<BR><BR>Cordialement"
* * * * .Display
* * End With
* * * * On Error GoTo 0
*
* * Set OutMail = Nothing
* * Set OutApp = Nothing
End Sub

[parmi]

Bonjour,

Ce n'est pas très clair...
Tu veux copier la valeur de A3 de feuil2 ou un hyperlien vers ton fichier ?

PS: quand tu mets du code, utilise le bouton # pour le formater et le rendre plus lisible... (tu peux éditer ton post)

[babuf]

Copier la valeur de la cellule mais j'ai obtenu la réponse sur un autre forum, il faut mettre & ws.cells (1, "A"),

suite ça j'ai une autre question, plus complexe,

je souhaite que le destinataire change de façon automatique,

je m'explique, dans la cellule A3 j'ai mis en place un système de volet déroulant avec 8 noms, je souhaite que si je sélectionne les 3 premiers noms je veux que le mail s'envoie à test1@hotmail.fr si je sélectionne les 3 suivants je veux que le mail s'envoie a test2@hotmail.fr et ainsi de suite c'est possible?

merci de ta réponse

[parmi]

J'imagine que ce ne sont pas les vraies adresses...
Je dis ça parce que le 1, 2,... pourraient servir de base à un calcul.

Et si tu utilisais une feuille avec les noms en A et les adresses en B, par exemple ?
Au moment de ton envoi, tu pourrais faire une recherche dans cette feuille pour avoir la ou les bonnes adresses.

[babuf]

Dans mon excel les adresses mail n'apparaissent pas, seulement dans la macro, dans mon tableau j'ai un volet déroulant avec plusieurs nom et chaque groupe de 4 noms doit avoir un renvoie vers une adresse mail différente (par groupe) .

exemple dans la cellule A3 j'ai mon déroulant avec Jean Fabrice Claude Jack Bastien, Clément Thomas .... si je choisis Jean Fabrice et Claude, je veux que la mail parte pour Test1@hotmail.fr et ainsi de suite , c'est possible?

Et si j'ai bien compris ton système de feuille c'est quoi la commande de recherche ?

[parmi]

Je ne comprends ce qu'est un système de volet déroulant (?)
une cellule avec liste déroulante ? un combobox ? autre ?

Pour la feuille (qui peut être masquée), tu fais une recherche pour trouver un nom ou partie de nom.
Il peut y avoir plusieurs méthodes:

Code :

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

Adresse = Application.WorksheetFunction.VLookUp(LeNom, Sheets("machin").Range("A:B"), 2, False)

Code :

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

1
2
Set Adresse = Sheets("machin").Columns("A").Find(LeNom, LookAt:=xlPart)

Code :

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

1
2
3
4
5
6
For I = 1 to nbLignes
   If Sheets("machin").Range("A" & I) = LeNom Then
      Adresse = Sheets("machin").Range("B" & I)
      Exit For
   End If
Next