Code VBA Rows
Résolu
fabricedu12
-
27 oct. 2021 à 14:22
Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 - 27 oct. 2021 à 16:41
Le Pingou Messages postés 12242 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 16 mars 2025 - 27 oct. 2021 à 16:41
A voir également:
- Code VBA Rows
- Code ascii - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Code deverouillage telephone perdu - Guide
- Code blocks - Télécharger - Langages
4 réponses
Le Pingou
Messages postés
12242
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 mars 2025
1 458
27 oct. 2021 à 14:46
27 oct. 2021 à 14:46
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
Le Pingou
Messages postés
12242
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 mars 2025
1 458
27 oct. 2021 à 15:26
27 oct. 2021 à 15:26
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
Le Pingou
Messages postés
12242
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
16 mars 2025
1 458
27 oct. 2021 à 16:41
27 oct. 2021 à 16:41
Bonjour,
Ce code indique une erreur (Erreur d'exécution 10004) )à la ligne:
Je ne peux donc pas continuer n'ayant pas les éléments nécessaire.
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.
