Envoi d'un mail avec erreur (Novice)

Bonjour à toutes / tous !

Je suis tout nouveau sur le forum ainsi que sur Excel VBA. Je serais ravi que vous vous penchiez sur mon cas qui me donne du fil à retordre !

Alors voilà : j'essaie tout simplement d'envoyer un mail avec comme contenu le cadre qui se trouve dans la feuille intitulée "Agent" qui va de C7:I26... le message d'erreur est "incompatibilité de type", NbLigne = 0 ... Cela fait trois jours que je suis sur ce problème !

Voilà mon code :

Sub EnvoiMail()

    Dim Mafeuille As Worksheet
    Dim Nbligne As Integer
    Set Mafeuille = ThisWorkbook.Sheets("Agent")

    Nbligne = Mafeuille.Range("C7:C26")
    Mafeuille.Range("C7:I" & Nbligne).Select

    With Selection.Parent.MailEnvelope.Item
            .Subject = Mafeuille.Range("c5").Value
            .To = Mafeuille.Range("C3").Value
            .Display
    End With

End Sub

Edit modo : code entre balsies SVP

D'avance merci à vous toutes / tous !

Manu

Bonjour ManuBE et

J'oserai dire, erreur de débutant

 Nbligne = Mafeuille.Range("C7:C26").Rows.Count

Ceci dit, la plage semble fixe, pourquoi ne pas mettre le nombre de ligne directement

@+

Bonjour Bruno,

Merci pour ta réponse mais ... ca ne fonctionne pas, malheureusement !

Voici ce que j'ai fait, suivant ce que tu m'as dit :

Sub EnvoiMail()

    Dim Mafeuille As Worksheet
    Dim Nbligne As Integer
    Set Mafeuille = ThisWorkbook.Sheets("Agent")

    Nbligne = Mafeuille.Range("C7:C26").Rows.Count
    Mafeuille.Range("C7:I" & Nbligne).Select

    With Selection.Parent.MailEnvelope.Item
            .Subject = Mafeuille.Range("c5").Value
            .To = Mafeuille.Range("C3").Value
            .Display
    End With

End Sub

- > Aucune réaction de la part d'Excel (tout à l'heure quand j'ai essayé il me mettait "erreur d'automation")

Autre chose étrange que je remarque :

Bien que ceci soit inscrit - > Nbligne = Mafeuille.Range("C7:C26").Rows.Count , Excel ne sélectionne que la plage de C7 à C20... je dois reprendre cette ligne de code et mettre genre ("C7:C33") pour qu'il me selectionne jusque C26 !

Si tu as une solution à ce problème, ou une autre facon de faire qui marche , je suis preneur !

D'avance merci, bien à toi,

Manu

Bonjour,

Tu devrai trouver ton bonheur ici

https://forum.excel-pratique.com/viewtopic.php?p=177045

Bonjour,

Pourquoi écrire

    Nbligne = Mafeuille.Range("C7:C26").Rows.Count
    Mafeuille.Range("C7:I" & Nbligne).Select

    Mafeuille.Range("C7:I26").Select

suffit !

Essai ceci ...

    ActiveWorkbook.EnvelopeVisible = True
    With Mafeuille.MailEnvelope
    .Item.To = "xxxxxx@xxxxxxx"
    .Item.Subject = "Test "
    .Introduction = "Bonjour, ci-dessous un test VBA."
    .Item.Display
    End With

Je me demande s'il ne manquait pas tout simplement ActiveWorkbook.EnvelopeVisible = True

bonjour Bruno