XL 2019 Envoyer mails, n’envoie pas toutes les lignes

Sellig · 24 Juin 2024

Bonjour,

Est-ce que quelqu’un pourrait m’aider à résoudre mon problème sur le tableau joint ?

Lorsque je clique sur ‘’envoyer’’ uniquement les 3 premières lignes sont envoyées, alors que j’ai 5 adresses mails. Et pourtant la ligne « To last_row » est bien présente.

Évidement, j’ai besoin des 2 lignes vides au dessus, Lignes 1 et 2.

Merci par avance pour votre aide.

Cordialement

Phil69970 · 26 Juin 2024

@Sellig

Je te propose ceci :

VB:

Option Explicit

Sub Envoi_mails()
Dim Ws As Worksheet, OutApp As Object, OutMail As Object, DerLig&, i&

Set Ws = Worksheets("Envoi mails")
DerLig = Ws.Range("A" & Rows.Count).End(xlUp).Row

For i = 4 To DerLig
    If Ws.Range("H" & i).Value <> "NON" Then
        On Error Resume Next
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .To = Ws.Range("A" & i).Value
            .CC = Ws.Range("B" & i).Value
            .BCC = Ws.Range("C" & i).Value
            .Subject = Ws.Range("D" & i).Value
            .Body = Ws.Range("E" & i).Value
            
            If Ws.Range("F" & i).Value <> "" Then...

TooFatBoy · 24 Juin 2024

Bonjour,

C'est le calcul de ton LastRow qui n'est pas bon : ça retourne 6, donc soit il faut ajouter 2 puisque le tableau commence en ligne 3, soit il faut utiliser une autre méthode pour faire le calcul (en supposant qu'un calcul soit nécessaire).

sylvanu · 24 Juin 2024

Bonsoir Sellig, TooFatBoy,
Ou encore :

VB:

last_row = [A10000].End(xlUp).Row

Phil69970 · 24 Juin 2024

Bonjour à tous

@Sellig

Je te propose

VB:

Option Explicit

Sub Envoi_mails()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Envoi mails")
Dim i As Integer
Dim OA As Object
Dim msg As Object
Set OA = CreateObject("outlook.application")
Dim last_row As Integer

last_row = sh.Range("A" & Rows.Count).End(xlUp).Row

For i = 4 To last_row
    If sh.Range("H" & i).Value <> "NON" Then
        Set msg = OA.CreateItem(0)
        msg.To = sh.Range("A" & i).Value
        msg.CC = sh.Range("B" & i).Value
        msg.BCC = sh.Range("C" & i).Value
        msg.Subject = sh.Range("D" & i).Value
        msg.Body = sh.Range("E" & i).Value
       
        If sh.Range("F" & i).Value <> "" Then
            msg.Attachments.Add sh.Range("F" & i).Value
        End If
        If sh.Range("G" & i).Value <> "" Then
            msg.Attachments.Add sh.Range("G" & i).Value
        End If
       
        msg.Display
        'msg.Send
        sh.Range("I" & i).Value = "Envoyé"
    End If
Next i

'MsgBox "Messages Envoyés"
End Sub

En espérant que tu n'aies pas plus de 32 768 lignes sinon surprise.....

Sellig · 26 Juin 2024

Bonjour,

Merci pour vos réponses

Ça fonctionne nickel

Passez une bonne journée

Phil69970 · 26 Juin 2024

@Sellig

La logique est de valider le post contenant la réponse que tu as choisi et non pas ton propre post car tu n'as rien trouvé du tout sinon tu ne serais pas venu demander de l'aide

Donc le post# 2 ou le post# 3 ou le post# 4
==> mais pas le post# 5 qui est le tien !!

Sellig · 26 Juin 2024

Pour la validation des posts Ok, je pensais que le dernier validait tout.

Ce sera fait.

Du coup, je me permets de revenir vers vous

J’ai un bogage sur msg.send

Ai-je fait une connerie ?

Sellig · 26 Juin 2024

Phil69970 à dit:

Bonjour à tous

@Sellig

Je te propose

VB:

Option Explicit

Sub Envoi_mails()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Envoi mails")
Dim i As Integer
Dim OA As Object
Dim msg As Object
Set OA = CreateObject("outlook.application")
Dim last_row As Integer

last_row = sh.Range("A" & Rows.Count).End(xlUp).Row

For i = 4 To last_row
    If sh.Range("H" & i).Value <> "NON" Then
        Set msg = OA.CreateItem(0)
        msg.To = sh.Range("A" & i).Value
        msg.CC = sh.Range("B" & i).Value
        msg.BCC = sh.Range("C" & i).Value
        msg.Subject = sh.Range("D" & i).Value
        msg.Body = sh.Range("E" & i).Value
      
        If sh.Range("F" & i).Value <> "" Then
            msg.Attachments.Add sh.Range("F" & i).Value
        End If
        If sh.Range("G" & i).Value <> "" Then
            msg.Attachments.Add sh.Range("G" & i).Value
        End If
      
        msg.Display
        'msg.Send
        sh.Range("I" & i).Value = "Envoyé"
    End If
Next i

'MsgBox "Messages Envoyés"
End Sub

En espérant que tu n'aies pas plus de 32 768 lignes sinon surprise.....

Pour la validation des posts Ok, je pensais que le dernier validait tout.

Ce sera fait.

Du coup, je me permets de revenir vers vous

J’ai un bogage sur msg.send

Ai-je fait une connerie ?

Pièces jointes

Phil69970 · 26 Juin 2024

@Sellig

Et que c'est il passé entre ce moment

Sellig à dit:
Ça fonctionne nickel

Et ce moment

Sellig à dit:
J’ai un bogage sur msg.send

De plus lors d'un bug on a en principe un message, donc quel est le message ?

TooFatBoy · 26 Juin 2024

Entre les deux il a décalé l'apostrophe d'une ligne...

Phil69970 · 26 Juin 2024

Bonjour TFB

En principe :
Display permet de visualiser le mail un peu comme PrintPreview qui permet la visu de l'impression
Send envoie le mail sans visualisation

Sellig · 26 Juin 2024

Phil69970 à dit:
Bonjour TFB

En principe :
Display permet de visualiser le mail un peu comme PrintPreview qui permet la visu de l'impression
Send envoie le mail sans visualisation

Merci pour votre réponse.

Display je ne l’utilise pas, d’ailleurs je viens de le supprimer.

Le problèmes est que ça beug sur msg.send, comme illustré sur la photo jointe à mon premier message.

Je ne me rappelle pas avoir touché à la macro et ce matin tout fonctionnait bien.

Je ne trouve pas l’erreur.

TooFatBoy · 26 Juin 2024

Phil69970 à dit:
En principe :
Display permet de visualiser le mail un peu comme PrintPreview qui permet la visu de l'impression
Send envoie le mail sans visualisation

Oui, tout à fait.

Ce que je veux dire, c'est que la visualisation devait fonctionner puis il est passé en envoie et ça bug. Du moins, je suppose...

TooFatBoy · 26 Juin 2024

Sellig à dit:
Display je ne l’utilise pas, d’ailleurs je viens de le supprimer.

Ben au moins ça permet de faire des tests pour voir si tout est bien rempli comme on veut. Ensuite on remplace le Display par le Send, et si ça bug on sait que théoriquement le problème ne vient pas de la constitution du message.

Sellig · 26 Juin 2024

Phil69970 à dit:
@Sellig

Et que c'est il passé entre ce moment

Et ce moment

De plus lors d'un bug on a en principe un message, donc quel est le message ?

XL 2019 Envoyer mails, n’envoie pas toutes les lignes

Sellig

XLDnaute Junior

Pièces jointes

Phil69970

TooFatBoy

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Sellig

XLDnaute Junior

Phil69970

XLDnaute Barbatruc

Sellig

XLDnaute Junior

Pièces jointes

Sellig

XLDnaute Junior

Pièces jointes

Pièces jointes

Phil69970

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Sellig

XLDnaute Junior

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Sellig

XLDnaute Junior

Pièces jointes

Discussions similaires

XL 2019 Envoyer mails, n’envoie pas toutes les lignes

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

Pièces jointes

XLDnaute Junior

Pièces jointes​

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Junior

Pièces jointes

Discussions similaires

Pièces jointes