delimiter sélection zone envoi mail Outlook

OUIZEMANN

XLDnaute Junior
Bonjour à toutes et tous,
Heureux de vous retrouver.
J'ai à nouveau besoin de votre aide.
Voilà, j'ai crée un tableau qui peut comprendre 3000 lignes.
J'ai trouvé une macro me permettant d'adresser par mail (Outlook) le tableau complet dans le corps du message.
Cependant à l'impression du mail, on édite les 3000 lignes par défaut.
Comment faire pour modifier ma macro afin que ne soient sélectionnées que les lignes pleines. Dans mon exemple je ne veux que les dossiers en cours, soit de la ligne 6 à 22 et non 6 à 3000.
Merci par avance.
 

Fichiers joints

mprexcel

XLDnaute Junior
Re : delimiter sélection zone envoi mail Outlook

Bonjour Ouizemann, bonjour le forum,
Tu devrais trouver ton bonheur ici :
VBScript To Send Email Using CDO

Vers la fin, tu trouveras le titre Load data from an Excel Worksheet et les lignes qui suivent devraient t'intéresser.
L'auteur utilise une autre méthode pour envoyer les emails (CDO) mais je pense que tu trouveras facilement "la partie intéressante".
A te lire, cordialement
Michel
 

OUIZEMANN

XLDnaute Junior
Re : delimiter sélection zone envoi mail Outlook

Bonjour Michel,

Merci pour ta proposition, mais je viens de tester les différentes macros, qui ne fonctionnent pas (cela peut venir d'un problème de version d'Outlook). De plus c'est en anglais (je ne suis malheureusement pas bilingue).
Par ailleurs, les macros proposées m'obligent à inscrire un chemin d'accès, ce que je ne veux pas.
N'y a t'il pas moyen de modifier dans ma macro la phrase suivante :
Set rng = Sheets("Feuil1").Range("a6:j3000").SpecialCells(xlCellTypeVisible)
par une autre syntaxe qui dirait ne de pas aller jusqu'à 3000 si la ligne est vide ?
Si tu as une autre solution, je suis "preneur".
Merci.
 

david84

XLDnaute Barbatruc
Re : delimiter sélection zone envoi mail Outlook

Bonsoir,
pas testé mais sur le principe :
définir la variable DerLig as Long
définir la dernière ligne par
DerLig=Sheets("Feuil1").Range("A"&rows.count).end(xlup).row
Définir ta plage par
Set rng = Sheets("Feuil1").Range("a6:a"&DerLig).SpecialCells(xl CellTypeVisible)
A+
 

OUIZEMANN

XLDnaute Junior
Re : delimiter sélection zone envoi mail Outlook

Bonjour David84,
Merci de ton aide, tu m'a trouvé exactement ce que je voulais.
Cela fonctionnne parfaitement.
A bientôt.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas