XL 2016 Aide Saisie et Envoie d'un mail avec une en-tête et la dernière ligne VBA

Vivien samba · 18 Mars 2021

Bonjour,
J'espère que vous allez bien,
En effet je suis entrain de construire un formulaire pour la saisie des non-conformités en transports.
Je souhaiterais lors de la validation du formulaire envoyer un mail à une personne pour la prévenir de la nouvelle demande.

J'arrive à faire le mail, la dernière ligne d'entrée et les en-têtes mais si j'augmente les à 26 au lieu de 10 les en-têtes n'affiche pas.
Je souhaite mettre dans le corps du message, la ligne d'en-tête du tableau + la dernière ligne entrée.

Ci joint mon fichier avec le code

D'avance merci pour ce coup de mains.

Lolote83 · 18 Mars 2021

Re bonjour,
Vu que tu travaille avec u tableau stucturé, modifie les lignes comme dans l'exemple suivant

Ligne1 = Range("Tableau6[[#Headers],[Date de non-conformité]]")
Ligne2 = Range("Tableau6[[#Headers],[N° Bon de livraison]]") etc etc etc
@+ Lolote83

Lolote83 · 18 Mars 2021

Bonjour Vivien,
Je ne comprends pas la question

si j'augmente les à 26 au lieu de 10

Merci de me dire
@+ Lolote83

Lolote83 · 18 Mars 2021

Re bonjour,
Ton fichier n'est à priori pas anonyme.
Re poste un fichier sans donnée personnelle
Merci
@+ Lolote83

Lolote83 · 18 Mars 2021

Re bonjour,
Vu que tu travaille avec u tableau stucturé, modifie les lignes comme dans l'exemple suivant

Ligne1 = Range("Tableau6[[#Headers],[Date de non-conformité]]")
Ligne2 = Range("Tableau6[[#Headers],[N° Bon de livraison]]") etc etc etc
@+ Lolote83

Vivien samba · 18 Mars 2021

Lolote83 à dit:
Re bonjour,
Ton fichier n'est à priori pas anonyme.
Re poste un fichier sans donnée personnelle
Merci
@+ Lolote83

Merci Lolote83
je viens de modifier et supprimer quelques informations (donnée personnelle)
tu pourras le vérifier
merci.

Lolote83 · 18 Mars 2021

Re, as tu vu mon dernier message du coup.
Je pense que c'est ta demande
@+ Lolote83

Vivien samba · 18 Mars 2021

Lolote83 à dit:
Re, as tu vu mon dernier message du coup.
Je pense que c'est ta demande
@+ Lolote83

Je viens d'essayer ton code et il marche bien.
Merci Lolote83

Vivien samba · 18 Mars 2021

Lolote83 à dit:
Re bonjour,
Vu que tu travaille avec u tableau stucturé, modifie les lignes comme dans l'exemple suivant

Ligne1 = Range("Tableau6[[#Headers],[Date de non-conformité]]")
Ligne2 = Range("Tableau6[[#Headers],[N° Bon de livraison]]") etc etc etc
@+ Lolote83

Excuse moi pour le dérangement.
le code que t'as donné marche bien mais quand j'ajoute une ligne de plus ça me sort ceci.
merci d'avance.

Lolote83 · 18 Mars 2021

Re bonjour,
Chez moi, cela fonctionne. Vérifie bien l’orthographe.

Le champ est insctit "Type de non-conformité" (deux espaces entre les mots Type et de) et dans le code tu as écrit "Type de non-conformité" (un espace entre les mots Type et de)

Mais au final, pourquoi ne pas renseigner en dur ces lignes comme ceci
Ligne1="Date de non-conformité"
Ligne2="N° Bon de livraison"
Ligne3="Type de non-conformité" etc etc etc.

Vu que ces données sont uniquement là pour y être inscrites dans le mail, cela n'a pas d'importance si il n'y a pas vraiment de correspondance entre les champs et ce qui est inscrit dans le mail.
A voir
@+ Lolote83

XL 2016 Aide Saisie et Envoie d'un mail avec une en-tête et la dernière ligne VBA

Vivien samba

XLDnaute Nouveau

Lolote83

Lolote83

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Vivien samba

XLDnaute Nouveau

Pièces jointes

Lolote83

XLDnaute Barbatruc

Vivien samba

XLDnaute Nouveau

Vivien samba

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

Discussions similaires