Code VBA Rows Résolu/Fermé

Question

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

Le Pingou · Answer

Bonjour,
Sans voir le code c'est impossible dans faire plus.
Merci de le mettre en utilisant le symbole de code

fabricedu12 · Answer

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

Le Pingou · Answer

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 ObjectDim objMail As ObjectSet 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 messagesEnd WithEnd Sub

Le Pingou · Answer

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.

Code VBA Rows

4 réponses

Discussions similaires