Erreur de compilation sub ou fonction non définie

bonjour à tous,

je souhaite appliquer une macro d'envoi de mail automatique sous condition:

Private Sub CommandButton1_Click()

Dim LeMail As Variant

Dim ligne As Integer

Set LeMail = CreateOject("Outlook.Application")

For ligne = 17 To 34

If Range("S" & ligne) = "True" Then

With LeMail.CreateItem(olMailItem)

.Subject = Range("T36") & Range("U" & ligne)

.To = Range("T" & ligne)

.cc = Range("T37")

.Body = "Bonjour à tous"

.Display

End With

Next ligne

End Sub

mais il y a un message erreur de compilation sub ou fonction non définie.

je ne sais pas comment résoudre ce probleme.

bonjour,

il manque un b dans cette instruction

Set LeMail = CreateObject("Outlook.Application")

Merci pour ta promptitude mais j'ai remplacé et ça me marque une autre erreur compilation: Next sans For

re-bonjour,

Private Sub CommandButton1_Click()

Dim LeMail As Variant
Dim ligne As Integer

Set LeMail = CreateOject("Outlook.Application")

For ligne = 17 To 34
If Range("S" & ligne) = "True" Then

With LeMail.CreateItem(olMailItem)

.Subject = Range("T36") & Range("U" & ligne)
.To = Range("T" & ligne)
.cc = Range("T37")
.Body = "Bonjour à tous"
.Display

End With
end if
Next ligne

End Sub

oui j'ai effectué des recherches sur le forum mes les solutions trouvées ne cadre pas avec mon problème car il persiste malgré les multiples ajustements.

"erreur de compilation sub ou fonction non définie" revient . Le problème n'est toujours pas résolu...

bonjour,

oui j'ai effectué des recherches sur le forum mes les solutions trouvées ne cadre pas avec mon problème car il persiste malgré les multiples ajustements.

je ne comprend pas cette réponse.

pour le reste, applique la correction que j'ai proposée pour résoudre ce problème. (manque un B dans OBJET)

j'ai effectivement ajouté le B "Object" mais ça ne marche toujours pas...

re-bonsoir,

chez moi ce code ne donne pas ce message d'erreur

 Dim LeMail As Variant
    Dim ligne As Integer

    Set LeMail = CreateObject("Outlook.Application")

    For ligne = 17 To 34
        If Range("S" & ligne) = "True" Then

            With LeMail.CreateItem(olMailItem)

                .Subject = Range("T36") & Range("U" & ligne)
                .To = Range("T" & ligne)
                .cc = Range("T37")
                .Body = "Bonjour à tous"
                .Display

            End With
        End If
    Next ligne
    

Manque le "End if" dans le code de départ non ?

à palcer entre "End With" et "Next ligne" comme le montre le code de h2so4...

Merci ça marche à merveille....