Problèe envoi mail VBA sur Excel

Bonjour à tous,

Je viens ici car j'ai une erreur 400 qui apparait lorsque je souhaite cliquer sur le bouton me permettant d'envoyer un mail via Excel. Je ne comprends d'ou ele vient et je n'ai pas beaucoup de connaissances en VBA. C'est piur celà que je fais appel a vous.

Voici le code en question :

Sub EnvoiMail()
    Dim mafeuille As Worksheet
    Dim nbligne As Integer
    Set mafeuille = ThisWorkbook.Sheets("Guter")
    Application.ScreenUpdating = False
    
    nbligne = mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
    mafeuille.Range("A1:0" & nbligne).Select
    With Selection.Parent.MailEnvelope.Item
        .To = mafeuille.Range("L3").Value
        .Subject = mafeuille.Range("L4").Value
        .Send
    End With
        
End Sub


Un grand merci !

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.

1 réponse

  1. Contributeur
    1. Merci pour votre aide. Toutefois, Excel plante systématiquement au moment d'entrer la plage de cellules, après avoir fait F5. Est-ce normal ?
    2. Contributeur
      @Dylan570La variable xTitleId n'est pas déclarée!

      Dim xTitleId As String


      Cela fonctionne chez moi!
    3. Contributeur
      @Dylan570comme ceci:

      Sub EmailRange()
      'Update 20131209
      Dim WorkRng As Range
      Dim xTitleId As String


      @+