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

[Sellig]

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

 

[TooFatBoy]

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]

Bonsoir Sellig, TooFatBoy,
Ou encore :

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

 

[Phil69970]

Bonjour à tous


@Sellig

Je te propose

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]

Bonjour,

Merci pour vos réponses

Ça fonctionne nickel

Passez une bonne journée

 

[Phil69970]

@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]

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]

Bonjour à tous


@Sellig

Je te propose

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]

@Sellig

Et que c'est il passé entre ce moment

Ça fonctionne nickel

Et ce moment

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]

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

 

[Phil69970]

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]

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]

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]

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]

@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 ?