Discussion :

[filou92]

Bonjour à tous,

J'ai lu cette discussion.
Tout fonctionne parfaitement, bravo ! Cependant, si je désire afficher une sélection multiple ?

Par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set rng = Range("C2:E2,H2:M2,Y2:Y2,AB2:AB2")

La fonction de sait pas la copier, à cause de cette sélection multiple.

Quelle solution puis-je envisager ?

Etant novice en vba, je cherche, je cherche, mais là, j'ai besoin d'aide.

[joe.levrai]

Bonjour,

il faut au choix :

1) Rassembler ces portions discontinues de plages sur une feuille temporaire afin de faire un unique appel à la fonction RangeToHTML
2) Itérer plusieurs appels de la fonction RangeToHTML à insérer dans le HTMLBody

un exemple pour la solution 2, avec deux plages que je sépare de trois lignes (on peut les coller aussi)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.HTMLBody = "Bonjour à tous, voici les statistiques  " & ListeIndic(i) & " du service : " & RangetoHTML(Rng) & vbCrLf & vbCrLf & vbCrLf & RangetoHTML(ThisWorkbook.Worksheets("MODELES_" & ListeIndic(i)).Range("HISTO_QUOTI"))

[filou92]

Ok, le plus simple en effet semble être de rassembler ce que je veux mettre sur une feuille et ensuite exporter vers le mail. Je te dis.