Discussion :

[coolman53]

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!!!!)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
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

[Daniel.C]

Bonjour,

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

Et pourquoi ?

[coolman53]

J'ai pas tester pour la seule raison c'est que le transfert des données n'est pas fait donc j'ai pas juger utile de tester puisqu'il sera utiliser qu'a la fin du cheminement