VBA envoi de mail (la méthode select de la classe range a échoué)

A

anbar

XLDnaute Junior
Bonjour à toutes et à tous
Tout d'abord je tiens à vous remercier pour votre aide à chaque fois que je vous sollicite.'ai cherché dans la toile comment pouvoir envoyer une feuille par mail incorporée dans cet mail. J'ai trouvé un code qui est le suivant:
Sub envoi_mail()

Dim Mafeuille As Worksheet
Dim NbLigne As Integer
Set Mafeuille = ThisWorkbook.Sheets("Feuil1")
Application.ScreenUpdating = False
NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row

Mafeuille.Range("A1:J" & NbLigne).Select

With Selection.Parent.MailEnvelope.Item
.to = Mafeuille.Range("M2").Value
.Subject = Mafeuille.Range("L2").Value
.send
End With
Range("A4:J52").Select
Selection.ClearContents
MsgBox "votre mail a été envoyé", vbInformation + vbOKOnly, "confirmation d'envoi"
ActiveWorkbook.EnvelopeVisible = True
End Sub


Sauf que le problème est que quand je lance le fichier et que je clique sur le bouton pour la 1ére fois j'obtiens un beug au niveau de:

Mafeuille.Range("A1:J" & NbLigne).Select

avec le message suivant
(la méthode select de la classe Range a échoué )
j'ai du chercher sur les forums mais sans résultat.
Merci

ci-joint le fichier exemple
 

Pièces jointes

  • Classeur1.xlsm
    21.4 KB · Affichages: 37
Trier par date Trier par votes
zebanx

zebanx

XLDnaute Accro
Bonjour Anbar, Harry226h, le forum.

Je ne sais pas repartir de votre code mais en cherchant, la solution pour attacher un range dans un mail outlook n'est pas si simple.

Ci-joint un essai avec un code fournit par Ron De Bruin sur internet qui fonctionne avec l'aide d'une fonction ( (RANGEtoHtml) dont la complexité ne vous échappera pas.

Quelques remarques :
1. On peut rajouter dans ce code des cc / ccc
2. Vous pouvez modifier le corps du texte qui accompagne le range du tableau directement dans le code
3. On utilise des balises "<br"> plutôt que VbCrLf qui sont habituellement utilisées dans un code VBA pour les sauts de ligne
4. Il y a une date / heure qui apparait sur la dernière colonne mais vous pouvez supprimer la ligne sur le code directement si cela vous est inutile
5. L'affichage est systématique dans outlook avant envoi. C'est du semi-automatique.

xl-ment
zebanx

VB: 
Sub mailto()
Dim rng As Range
With Sheets("Feuil1")
    dl = .Cells(Rows.Count, 2).End(xlUp).Row
    Set ol = CreateObject("outlook.application")
  
    Set rng = Nothing
    On Error Resume Next
    Set rng = ActiveSheet.Range("A1:J" & dl)
    On Error GoTo 0
        Set ml = ol.createitem(0)
        ml.To = .Cells(2, 13)
        ml.Subject = .Cells(2, 12)
        ml.CC = .Cells(2, 14)
        ml.BCC = .Cells(2, 15)
        ml.HTMLBody = "Bonjour," & "<br>" & "<br>" & "Veuillez trouvez ci-joint le tableau récapitulatif de votre commande" & "<br>" & _
        RangetoHTML(rng) & "<br>" & "<br>" & "Meilleures salutations"
        ml.Display 'afficher le mail
        Cells(2, 16) = Now
End With
End Sub
 

Pièces jointes

  • envoi_outlook_ED.xlsm
    28.6 KB · Affichages: 71
Vote positif 0 Vote négatif
A

anbar

XLDnaute Junior
zebanx à dit:
Bonjour Anbar, Harry226h, le forum.

Je ne sais pas repartir de votre code mais en cherchant, la solution pour attacher un range dans un mail outlook n'est pas si simple.

Ci-joint un essai avec un code fournit par Ron De Bruin sur internet qui fonctionne avec l'aide d'une fonction ( (RANGEtoHtml) dont la complexité ne vous échappera pas.

Quelques remarques :
1. On peut rajouter dans ce code des cc / ccc
2. Vous pouvez modifier le corps du texte qui accompagne le range du tableau directement dans le code
3. On utilise des balises "<br"> plutôt que VbCrLf qui sont habituellement utilisées dans un code VBA pour les sauts de ligne
4. Il y a une date / heure qui apparait sur la dernière colonne mais vous pouvez supprimer la ligne sur le code directement si cela vous est inutile
5. L'affichage est systématique dans outlook avant envoi. C'est du semi-automatique.

xl-ment
zebanx

VB: 
Sub mailto()
Dim rng As Range
With Sheets("Feuil1")
    dl = .Cells(Rows.Count, 2).End(xlUp).Row
    Set ol = CreateObject("outlook.application")
 
    Set rng = Nothing
    On Error Resume Next
    Set rng = ActiveSheet.Range("A1:J" & dl)
    On Error GoTo 0
        Set ml = ol.createitem(0)
        ml.To = .Cells(2, 13)
        ml.Subject = .Cells(2, 12)
        ml.CC = .Cells(2, 14)
        ml.BCC = .Cells(2, 15)
        ml.HTMLBody = "Bonjour," & "<br>" & "<br>" & "Veuillez trouvez ci-joint le tableau récapitulatif de votre commande" & "<br>" & _
        RangetoHTML(rng) & "<br>" & "<br>" & "Meilleures salutations"
        ml.Display 'afficher le mail
        Cells(2, 16) = Now
End With
End Sub
Cliquez pour agrandir...

Bonsoir Harry226h
Le code semble marche à merveille, il faut que je le teste au boulot. Et en effet la complexité ne m'a pas échappée.
J'ai essayé avec l'instruction( ml.Sen et ça a l'air de fonctionner.

Encore une Merci de ta précieuse aide et du temps que tu as consacré au sujet.
 
Vote positif 0 Vote négatif
A

anbar

XLDnaute Junior
Bonjour Harry226h
Alors j'ai réussi à detourner le beug engendré par la méthode SELECT , tout simplement sans utiliser (SELECT)
j'ai déclaré l'objet Plage

Mafeuille.Range("A1:J" & NbLigne).Select (remplacée par) Set Plage = Range("A1:J" & NbLigne)
Range("A4:J52").Select et (remplacées par) Range("A4:J34" & NbLigne).ClearContents
Selection.ClearContents
alors depuis je n'ai plus de Bug Sauf que je pense qu'au premier envoi le champs de destinataires dans outlook reste vide et que le code ne les charge pas, on ne voit apparaitre les adresses mail des destinataires qu'àprès une deuxième exécution du code.
Merci de jeter un coup d’œil et voir si tu peux détecter quelque chose.
bonne journée



cde avant:
Sub envoi_mail()

Dim Mafeuille As Worksheet
Dim NbLigne As Integer
Set Mafeuille = ThisWorkbook.Sheets("Feuil1")
Application.ScreenUpdating = False
NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row

Mafeuille.Range("A1:J" & NbLigne).Select

With Selection.Parent.MailEnvelope.Item
.to = Mafeuille.Range("M2").Value
.Subject = Mafeuille.Range("L2").Value
.send
End With
Range("A4:J52").Select
Selection.ClearContents
MsgBox "votre mail a été envoyé", vbInformation + vbOKOnly, "confirmation d'envoi"
ActiveWorkbook.EnvelopeVisible = True
End Sub

code après
Sub envoyermail()
Dim Mafeuille As Worksheet
Dim NbLigne As Long
Dim Plage As Range
ActiveWorkbook.EnvelopeVisible = True
Set Mafeuille = ThisWorkbook.Sheets("Feuil1")
Application.ScreenUpdating = False
NbLigne = 3267
NbLigne = Mafeuille.Range("A" & Application.Rows.Count).End(xlUp).Row
Set Plage = Range("A1:J" & NbLigne)
With Range("A1:J" & NbLigne).Parent.MailEnvelope.Item
.To = Mafeuille.Range("M1").Value & Mafeuille.Range("M2").Value
.Subject = Mafeuille.Range("L2").Value
.Display
.send
End With
MsgBox "votre mail a été envoyé", vbInformation + vbOKOnly, "confirmation d'envoi"
Range("A4:J34" & NbLigne).ClearContents
Application.ScreenUpdating = True
End Sub
 

Pièces jointes

  • Classeur1.xlsm
    23.5 KB · Affichages: 29
Vote positif 0 Vote négatif
T

tmeg57

XLDnaute Nouveau
zebanx à dit:
Bonjour Anbar, Harry226h, le forum.

Je ne sais pas repartir de votre code mais en cherchant, la solution pour attacher un range dans un mail outlook n'est pas si simple.

Ci-joint un essai avec un code fournit par Ron De Bruin sur internet qui fonctionne avec l'aide d'une fonction ( (RANGEtoHtml) dont la complexité ne vous échappera pas.

Quelques remarques :
1. On peut rajouter dans ce code des cc / ccc
2. Vous pouvez modifier le corps du texte qui accompagne le range du tableau directement dans le code
3. On utilise des balises "<br"> plutôt que VbCrLf qui sont habituellement utilisées dans un code VBA pour les sauts de ligne
4. Il y a une date / heure qui apparait sur la dernière colonne mais vous pouvez supprimer la ligne sur le code directement si cela vous est inutile
5. L'affichage est systématique dans outlook avant envoi. C'est du semi-automatique.

xl-ment
zebanx

VB: 
Sub mailto()
Dim rng As Range
With Sheets("Feuil1")
    dl = .Cells(Rows.Count, 2).End(xlUp).Row
    Set ol = CreateObject("outlook.application")
 
    Set rng = Nothing
    On Error Resume Next
    Set rng = ActiveSheet.Range("A1:J" & dl)
    On Error GoTo 0
        Set ml = ol.createitem(0)
        ml.To = .Cells(2, 13)
        ml.Subject = .Cells(2, 12)
        ml.CC = .Cells(2, 14)
        ml.BCC = .Cells(2, 15)
        ml.HTMLBody = "Bonjour," & "<br>" & "<br>" & "Veuillez trouvez ci-joint le tableau récapitulatif de votre commande" & "<br>" & _
        RangetoHTML(rng) & "<br>" & "<br>" & "Meilleures salutations"
        ml.Display 'afficher le mail
        Cells(2, 16) = Now
End With
End Sub
Cliquez pour agrandir...
Merci beaucoup, la fonction rangeToHtml est juste magique pour ce cas.
 
Vote positif 0 Vote négatif

Discussions similaires

D
  • Question
XL 2019 assemblage 2 petits code vba message erreur
Réponses
3
Affichages
421
David62800
D
J
  • Question
XL 2019 sélection et mise en page avant envoie mail
Réponses
5
Affichages
494
sylvanu
sylvanu
D
  • Question
XL 2013 envoie tableau dans corp du mail vba
2
Réponses
26
Affichages
1 K
David62800
D
Y
  • Résolu(e)
XL 2019 Double attachement dans mail
Réponses
2
Affichages
638
YAP32
Y
A
  • Question
XL 2019 la méthode AutoFilter de la classe range a échoué
Réponses
5
Affichages
253
Phil69970
Phil69970
S
  • Résolu(e)
Microsoft 365 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
153
spike29
S
H
  • Question
XL 2016 La méthode Range de l'objet value à échoué
Réponses
8
Affichages
512
Hamadou
H
N
  • Question
XL 2016 Code VBA pour envoi de mail avec pdf en piece jointe
Réponses
4
Affichages
235
Phil69970
Phil69970
L
  • Question
Microsoft 365 Insérer une plage Excel en image sous VBA pour envoi mail auto
Réponses
1
Affichages
310
fanch55
fanch55
C
  • Résolu(e)
XL 2016 erreur 1004 _ la méthode range de l'objet global a échoué
Réponses
5
Affichages
623
ced91300
C

Membres actuellement en ligne

16 membres et 211 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 633
Messages
2 111 404
Membres
111 124
dernier inscrit
presa54