Code VBA Rows
Résolu
Bonjour,
J'ai codé une macro vba qui envoie des mails. La feuille 1 excel sert de base de donnée:
-colone A: le nom
-B: le mail
-C: mail cc
-D: le sujet
-E: les slautations
-F: l'envoyeur
-G: commentaires.
ainsi que le texte dans une text box car il ne change pas.
Ma question est la suivante, comment faie en sorte que l vba run sur chaque ligne et non seulement sur la première.
j'ai essayé For Row = First_Entry To Last_Entry Step 1, mais cela ne semble pas marcher.
Merci d'avance
J'ai codé une macro vba qui envoie des mails. La feuille 1 excel sert de base de donnée:
-colone A: le nom
-B: le mail
-C: mail cc
-D: le sujet
-E: les slautations
-F: l'envoyeur
-G: commentaires.
ainsi que le texte dans une text box car il ne change pas.
Ma question est la suivante, comment faie en sorte que l vba run sur chaque ligne et non seulement sur la première.
j'ai essayé For Row = First_Entry To Last_Entry Step 1, mais cela ne semble pas marcher.
Merci d'avance
4 réponses
-
Bonjour,
Ce code indique une erreur (Erreur d'exécution 10004) )à la ligne:strbody = Rang......,Range("F2" & Row)
Je ne peux donc pas continuer n'ayant pas les éléments nécessaire.
-
Bonjour,
Si on demande d'utiliser le symbole de code [<>], nous avons ceci, a noter que le bonjour n'est pas inclus:Sub Display_Mail()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
strbody = Range("E2" & Row) & vbNewLine & _
ActiveSheet.TextBoxes("TextBox 1").Text & vbNewLine & _
Range("F2" & Row)
With objMail
.To = Range("B2" & Row)
.Subject = "X"
.body = strbody
.Attachments.Add "X"
.Display
' Replace Desplay by .Send to automatically send the messages
End With
End Sub
-
Sub Display_Mail()
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
strbody = Range("E2" & Row) & vbNewLine & _
ActiveSheet.TextBoxes("TextBox 1").Text & vbNewLine & _
Range("F2" & Row)
With objMail
.To = Range("B2" & Row)
.Subject = "X"
.body = strbody
.Attachments.Add "X"
.Display
' Replace Desplay by .Send to automatically send the messages
End With
End Sub -
Bonjour,
Sans voir le code c'est impossible dans faire plus.
Merci de le mettre en utilisant le symbole de code
