164 résultats trouvés

par Le_Troll_Du_27
17 janvier 2018, 09:38
Forum : Excel - VBA
Sujet : Comment Inserer PJ avec Mail
Réponses : 8
Vues : 187

Re: Comment Inserer PJ avec Mail

Je pense qu'il y a un moyen de faire une boucle car on ne peut pas jamais savoir à l'avance le nombre de pièce jointe que l'on souhaite envoyer. Ceci est le code du CommandButton "Pièce Jointe" '**** Correspond au programme du CommandButton3 "Pièce Jointe" **** Private Sub CommandButton3_Click() Dim...
par Le_Troll_Du_27
17 janvier 2018, 00:15
Forum : Excel - VBA
Sujet : Comment Inserer PJ avec Mail
Réponses : 8
Vues : 187

Re: Comment Inserer PJ avec Mail

J'ai repris ta base et voici ce que cela en résulte : Sub Envoi_Mail() Dim MaMessagerie As Object, MonMessage As Object, PieceJointe$ Dim Sujet As String, LeDestinataire As String, AutreDestinataire As String Dim Msg As String, Reponse As String, I As Integer On Error GoTo erreur PieceJointe = ThisW...
par Le_Troll_Du_27
16 janvier 2018, 20:48
Forum : Excel - VBA
Sujet : Comment Inserer PJ avec Mail
Réponses : 8
Vues : 187

Re: Comment Inserer PJ avec Mail

Et le code doit s'insérer dedans '**** Correspond au programme du CommandButton "Envoyer et Archiver" **** Private Sub CommandButton2_Click() LeTexte = TextBox5 LeTexte = Application.WorksheetFunction.Substitute(LeTexte, vbCrLf, Chr(10)) Signature = TextBox10 Signature = Application.WorksheetFunctio...
par Le_Troll_Du_27
16 janvier 2018, 20:21
Forum : Excel - VBA
Sujet : Comment Inserer PJ avec Mail
Réponses : 8
Vues : 187

Re: Comment Inserer PJ avec Mail

Bonsoir, oups je n'avais pas vu .send Je suis reparti de cela: '**** Correspond au programme d'éxécution "Créer un Mail" **** Sub ExempleCréer1MailaRemplir() ' ................................Exemple ' Envoie du mail pour intégration Dim MaMessagerie As Object ' .................................Décl...
par Le_Troll_Du_27
16 janvier 2018, 00:51
Forum : Excel - VBA
Sujet : Comment Inserer PJ avec Mail
Réponses : 8
Vues : 187

Re: Comment Inserer PJ avec Mail

Bonsoir Je ne comprends pas voici ce qu'il m'affiche : erreur UserForm6.JPG et voici le code : Sub Envoi_Mail() Dim MaMessagerie As Outlook.Application Dim MonMessage As Object Dim PieceJointe As Variant, PieceJointe2 As Variant Dim Sujet As String, LeDestinataire As String, Msg As String, Réponse A...
par Le_Troll_Du_27
15 janvier 2018, 13:00
Forum : Excel - VBA
Sujet : Comment Inserer PJ avec Mail
Réponses : 8
Vues : 187

Comment Inserer PJ avec Mail

Bonjour, j'explique mon problème. Je n'arrive pas à insérer la ou les pièces jointes dans le mails et de voir si cela fonctionne. :cry: La macro est dans "Archiver" car le mail doit être archivé avant d'être envoyé :wink: La ou les pièces jointes sont de tous les extension de fichier Et si il n'y a ...
par Le_Troll_Du_27
14 janvier 2018, 03:31
Forum : Excel - VBA
Sujet : Inserer et récuperer la ou les pièces jointes pour un mail
Réponses : 5
Vues : 311

Re: Inserer et récuperer la ou les pièces jointes pour un mail

J'ai corrigé quelques bugs Il me reste plus que l'envoi du mail avec la où les pièces jointes . J'ai corrigé le code mais je ne vois pas le ou les mails partir avec leurs pièces. Donc aucune idée si cela fonctionne. Par contre il me reste aussi Archiver avec la ou les PJ ou alors sur le fichier crée...
par Le_Troll_Du_27
13 janvier 2018, 19:16
Forum : Excel - VBA
Sujet : Inserer et récuperer la ou les pièces jointes pour un mail
Réponses : 5
Vues : 311

Re: Inserer et récuperer la ou les pièces jointes pour un mail

Bonjour pour ta première étape joindre plusieurs pieces jointes il suffit de faire 2 fois .attachments.add exemple : .Attachments.Add ActiveWorkbook.Path & "\" & nomfic 'attache le fichier au mail .Attachments.Add ActiveWorkbook.Path & "\" & nomfic2 pour le reste je ne sais pas vérifier si une pièc...
par Le_Troll_Du_27
13 janvier 2018, 18:36
Forum : Excel - VBA
Sujet : Inserer et récuperer la ou les pièces jointes pour un mail
Réponses : 5
Vues : 311

Re: Inserer et récuperer la ou les pièces jointes pour un mail

Bonjour, j'ai revu mon fichier et je coince toujours quand je sélectionne les pièces jointes

Fichier trop volumineux pour ce forum, par Free : http://dl.free.fr/nar7tMjek

Cordialement
par Le_Troll_Du_27
12 janvier 2018, 17:19
Forum : Excel - VBA
Sujet : Inserer et récuperer la ou les pièces jointes pour un mail
Réponses : 5
Vues : 311

Inserer et récuperer la ou les pièces jointes pour un mail

Bonjour, avant tous les Meilleurs Vœux à tous . J'ai presque fini mes codes userform pour plusieurs listes de diffusion avec un mailing avec une ou plusieurs pièces jointes. Tous se passe dans l'UserForm6 qui récupère les infos de l'Userform(i) ouvert Private Sub CommandButton3_Click() Dim MaMessage...