Transfert d'une ligne choisi vers un formulaire excel + envoi par mail

coolman53

XLDnaute Junior
Bonjour à tous,

Je vais essayer d'expliquer au mieux

J'ai un fichier Excel (test transfert formulaire) ou il y a un tableau et un autre fichier Excel (Formulaire test) ou j'ai crée un formulaire avec des cases a cocher ou à remplir.

Actuellement je remplis le formulaire "à la main" en prenant les données sur le tableau

Ce que je voudrai c'est lorsque je selectionne une ligne dans le tableau (ex : ligne 18), les données sur cette ligne se mette dans le formulaire automatiquement à leur place via un bouton

Ex :(pour la ligne 18) A18 dans le tableau doit aller à G7 dans le formulaire
B18 doit aller à C8.....

La 2eme étape (que je pense avoir réussi) c'est d'envoyer le formulaire par mail à differentes personnes via un bouton

Voici le code merci de me dire si c'est bon (j'ai piocher un peu partout mais j'ai pas tester!!!!)

Sub EnvoiPage()
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
Destinataires(1) = "test@wanadoo.fr"
Destinataires(2) = "test1@gmail.com"
Destinataires(3) = "test2@domaine.fr"
Sujet = "Formulaire"
AccuseReception = True
ThisWorkbook.Sheets("Feuil1").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
End Sub

Merci pour votre aide

PS : Je ne peux pas mettre de données c'est pour le boulot
 

Pièces jointes

  • test transfert formulaire.xls
    39 KB · Affichages: 44
  • Formulaire test.xls
    16 KB · Affichages: 38
  • Formulaire test.xls
    16 KB · Affichages: 39
  • Formulaire test.xls
    16 KB · Affichages: 40

Discussions similaires

Réponses
2
Affichages
229

Statistiques des forums

Discussions
312 194
Messages
2 086 071
Membres
103 110
dernier inscrit
Privé