XL 2016 Modification RangeToHtml

[Olic78124]

Bonjour à toutes et à tous,

Tout est dans le titre ou presque, en espérant ne pas trop faire bondir @dysorthographie 🙂

J'ai un environnement TEST lorsque je modifie ma fameuse macro développée à l'arrache sur plusieurs années, et je souhaite afficher les mails générés au lieu de les envoyer mais le .Display ne fonctionne pas ! Pas de message d'erreur et en pas à pas tout semble se dérouler correctement.

La seule modification apportée au code est la suivante et je ne vois pas ce qu'il faudrait modifier d'autre pour que le mail s'affiche.

        If ThisWorkbook.Worksheets("Initialisation").Range("Q17").Value = "TEST" Then
            With OutMail
                .To = Destinataire
                .CC = DestinataireCopie
                .BCC = DestinataireCopieCache
                .Subject = Sujet
                .Importance = ImportanceMessage '1:Priorité normale(valeur par défaut)/ 2: priorite haute/ 0 et autres valeurs: faible/
                .HTMLBody = Message & RangetoHTML(rng)
                .Attachments.Add lien_piece_jointe
                .Display
            End With
        Else
            With OutMail
                .To = Destinataire
                .CC = DestinataireCopie
                .BCC = DestinataireCopieCache
                .Subject = Sujet
                .Importance = ImportanceMessage '1:Priorité normale(valeur par défaut)/ 2: priorite haute/ 0 et autres valeurs: faible/
                .HTMLBody = Message & RangetoHTML(rng)
                .Attachments.Add lien_piece_jointe
                .Send
            End With
        End If

D'avance merci.
Olivier

 

[Olic78124]

CORRECTION : en supprimant le "On Error Resume Next" j'ai une erreur "Index de la matrice en dehors des limites" !