Code VBA Rows
Résolu
fabricedu12
-
Le Pingou Messages postés 12638 Statut Contributeur -
Le Pingou Messages postés 12638 Statut Contributeur -
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
A voir également:
- Code VBA Rows
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
4 réponses
Bonjour,
Sans voir le code c'est impossible dans faire plus.
Merci de le mettre en utilisant le symbole de code
Sans voir le code c'est impossible dans faire plus.
Merci de le mettre en utilisant le symbole de code
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
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,
Si on demande d'utiliser le symbole de code [<>], nous avons ceci, a noter que le bonjour n'est pas inclus:
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
