Erreur 424 Objet Requis
Bonjour,
J'ai crée une macro pour envoyer un mail depuis un fichier Excel. Je reçois le message suivant et je ne trouve pas mon erreur.
Si quelqu'un a les yeux mieux placés que moi, je suis preneur. :
Sub EnvoiMail()
Dim MaFeuille As Worksheet
Dim Nbligne As Integer
Set MaFeuille = ThisWoorkbook.Sheets("DEMANDE CODE")
Application.ScreenUpdating = False
Nbligne = MaFeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
MaFeuille.Range("A15:F" & Nbligne).Select
With Selection.Parent.MailEnvelope.Item
.To = MaFeuille.Range("M1").Value
.CC = MaFeuille.Range("M5").Value
.CC = MaFeuille.Range("M7").Value
.CC = MaFeuille.Range("M8").Value
.Subject = MaFeuille.Range("M3").Value
.Send
End With
MsgBox "Votre mail a été envoyé.", vbInformation + vbOKOnly, "CONFIRAMTION ENVOI MAIL"
End Sub
Merci d'avance
Cordialement.
Xavier
Bonjour,
Une petite coquille > ThisWoorkbook > ThisWorkbook ...
ric
Bonjour, ric,
Pour éviter ceci, ecrivez votre code en minuscule et laissez VBA s'occuper des Majuscules lors de la validation de ligne.
Dans votre cas il y aurait eu thiswoorkbook.Sheets d'inscrit et "ça pique les yeux", non ?
@ bientôt
LouReeD
Merci à vous deux,
Comme quoi je ne voyais plus ce qui était évident.
Xavier