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