Problèe envoi mail VBA sur Excel

Fermé
Dylan570 Messages postés 3 Date d'inscription lundi 23 mai 2022 Statut Membre Dernière intervention 23 mai 2022 - Modifié le 23 mai 2022 à 11:39
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 23 mai 2022 à 12:56
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.
A voir également:

1 réponse

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
23 mai 2022 à 11:22
0
Dylan570 Messages postés 3 Date d'inscription lundi 23 mai 2022 Statut Membre Dernière intervention 23 mai 2022
23 mai 2022 à 11:56
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 ?
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > Dylan570 Messages postés 3 Date d'inscription lundi 23 mai 2022 Statut Membre Dernière intervention 23 mai 2022
23 mai 2022 à 12:08
La variable xTitleId n'est pas déclarée!

Dim xTitleId As String


Cela fonctionne chez moi!
0
Dylan570 Messages postés 3 Date d'inscription lundi 23 mai 2022 Statut Membre Dernière intervention 23 mai 2022 > cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024
23 mai 2022 à 12:31
Que faut-il que je met ?
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > Dylan570 Messages postés 3 Date d'inscription lundi 23 mai 2022 Statut Membre Dernière intervention 23 mai 2022
23 mai 2022 à 12:56
comme ceci:

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


@+
0