Cellule (n) dans email

[bambi]

Bonsoir à tous 😉

Voici mon problème:
Feuille 1: J'ai un tableau de 3 colonnes en feuille 1: NOM DE L'ARTICLE-DATE-RETRAIT
Feuille 2: J'ai une macro associée à un bouton qui envoi un email à plusieurs destinataires.
Ce mail contient un objet et un texte prédéfini.
Cette macro marche parfaitement donc jusque là, pas de problème. 😀

MAIS je voudrais appeler dans le corps du message la dernière cellule A de la feuille 1 saisie.
C'est à dire le NOM DE L'ARTICLE.

Comment rajouter cette ligne dans le corps du message ?
Ou au pire en Objet du message ?

Merci d'avance pour vos idées 😉

 

[bqtr]

Re : Cellule (n) dans email

Bonsoir bambi,

Essaye ceci, ton code avec l'ajout d'une variable Articl qui prend la valeur de la dernière cellule de la colonne A de la feuille ARTICLE non vide.

La variable est ajoutée à la fin de la variable Msg.

J'ai simulé un envoi et ca ajoute bien le nom de l'article.

Sub MailingListe()
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dim Articl As String
Articl = Sheets("ARTICLE").Range("A65536").End(xlUp).Value
For Each Lescellules In Range("A1")
Dest = Lescellules.Value
Sujt = "Publication Article"
Msg = "Bonjour, un nouvel article concernant votre activité" _
& vbNewLine & "est disponible : " & Articl
Shell "D:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"
Next
End Sub

Bonne soirée

P.O

 

[bqtr]

Re : Cellule (n) dans email

Re,

Je ne peux pas éditer, donc je refait un message.

J'ai été obligé de supprimer les mises en formes conditionnelles de la feuille article car cela empéchait d'arriver à la dernière cellule de la colonne A.

Je vais essayer de trouver une solution qui évite cette suppression.

P.O

 

[JYLL]

Re : Cellule (n) dans email

Bonsoir Bamby et le Forum,

Voici la macro modifiée rapidement, il y a moyen de faire mieux mais vu l'heure et ça fonctionne pour tous les articles.

Sub MailingListe()
Dim Dest As String
Dim Sujt As String
Dim Msg As String
For Each lescellules In Range("A1")
Dest = lescellules.Value
Next
Sujt = "Publication Article" & vbCrLf
Msg = "Bonjour, un nouvel article concernant votre activité" _
& vbNewLine & "est disponible" & vbNewLine
Sheets("Article").Select
I = 2
While Cells(I, 1) <> ""
Msg = Msg & Cells(I, 1) & vbCrLf
I = I + 1
Wend
Shell "c:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"
End Sub

Bon test.

 

[JYLL]

Re : Cellule (n) dans email

Re Bonsoir,

J'ai modifié le code de bqtr pour qu'il fontionne :

Sub MailingListe()
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dim Articl As String

Articl = Sheets("ARTICLE").Cells(Sheets("ARTICLE").Range("A65536").End(xlUp).Row, 1) & vbCrLf
Sheets("envoi mail").Select

For Each Lescellules In Range("A1")
Dest = Lescellules.Value
Sujt = "Publication Article"
Msg = "Bonjour, un nouvel article concernant votre activité" _
& vbNewLine & "est disponible : " & vbCrLf & Articl
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"
Next
End Sub

Tu peux également ajouter une InputBox pour mettre le numéro ou nom de la cellule, là par défaut c'est la dernière.

Bon test.

 

[bqtr]

Re : Cellule (n) dans email

Bonjour JYLL

Je viens de voir ta modif sur le code que j'ai fait. Je l'ai testé et elle ne fonctionne pas. Je pense avoir trouvé pourquoi.

Il y a des espaces dans les cellules de la colonne A de la feuille ARTICLE.
Si tu exécutes cette macro :

Sub supespace()
Dim cell As Range
For Each cell In Range("a2:a" & Range("a1142").End(xlUp).Row)
cell.Value = Trim(cell.Value)
Next
End Sub

et que tu exécutes de nouveau ma macro, elle fonctionne et du coup plus besoin de supprimer les mises en formes conditionnelles.

Bonne fin de nuit

P.O

 

[bambi]

Re : Cellule (n) dans email

Merci beaucoup pour toutes vos réponses 😀
Je vais regarder ça aujourd'hui.

Oui pour les espaces dans la colonne A, c'est ma faute, 😳
j'ai repris un fichier sur lequel je travaillais pour une MFC
et j'avais fait des espaces pour contourner provisoirement un pb.
(Mais monique m'a résolu ça sans espace)

Je vais donc reprendre un fichier propre et essayer vos solutions. 😉

 

[JYLL]

Re : Cellule (n) dans email

Bonjour btqr,bambi et le forum,

Effectivement pour les espace, j'avais remarqué, le numéro de la dernière ligne occupée était 1100 environ, j'avais efface tout le contenu de la colonne à l'exception des des données. J'ai oublié de le signaler.

Bonne journée et à bientôt.

 

[JYLL]

Re erreur

erreur de manip

 

[bambi]

Re : Cellule (n) dans email

ça marche parfaitement.
Donc vraiment un grand grand merci à tous les deux . 🙂
Et bonne année 2007 !!! 😉