Discussion :

[audreyportiere]

Bonjour,

J'ai besoin de votre aide, j'essaie de me débrouiller en macro mais je suis un peu novice.

J'aimerais envoyer des pièces jointes différentes à des personnes différentes. Pour ce faire j'ai crée une macro mais c'est assez embêtant car selon les mois, je dois envoyer entre 1 et 100 pièces jointes à des personnes différentes et ma macro n'est pas pratique car je dois a chaque fois aller dans la macro et ajouter ou supprimer des informations. Est-ce qu'il est possible de créer un bouton et de noter par exemple 10 et la macro l'envoie à 10 personnes par besoin de bidouiller mon script.

Egalement, j'essaie d'insérer un logo qui est ma signature mais je n'y arrive pas.

Auriez-vous un peu de temps à me consacrer pour solutionner mon problème ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub EnvoiPJ()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim Ficjoint As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
 
derligne = Range("A65535").End(xlUp).Row
For i = 2 To derligne
Set olMail = olApp.CreateItem(olMailItem)
If Range("A" & i).Value <> vide Then
   repA = Range("E" & i).Value
   FicjointA = repA & "\" & Range("F" & i).Value
   repB = Range("G" & i).Value
   FicjointB = repB & "\" & Range("H" & i).Value
   repC = Range("I" & i).Value
   FicjointC = repC & "\" & Range("J" & i).Value
   repD = Range("K" & i).Value
   FicjointD = repD & "\" & Range("L" & i).Value
   repE = Range("M" & i).Value
   FicjointE = repE & "\" & Range("N" & i).Value
   With olMail
       .To = Range("A" & i).Value
       .CC = Range("B" & i).Value
       .Subject = Range("C" & i).Value
       .Body = Range("D" & i).Value
       .Attachments.Add FicjointA
       .Attachments.Add FicjointB
       .Attachments.Add FicjointC
       .Attachments.Add FicjointD
       .Attachments.Add FicjointE
       '.Attachments.Add "c:\My Documents\book.doc"
       .Display '.Send
  End With
' Effacer les variables objets
Set olMail = Nothing
End If
Next i
Set olApp = Nothing
End Sub

Je vous remercie d'avance.

Audrey

[Menhir]

Je n'ai pas ouvert ton fichier joint, entre autre pour les raisons évoquées ici : https://www.developpez.net/forums/d8...s-discussions/
Je réponds donc "en aveugle".

je dois a chaque fois aller dans la macro et ajouter ou supprimer des informations.
Est-ce qu'il est possible de créer un bouton et de noter par exemple 10 et la macro l'envoie à 10 personnes par besoin de bidouiller mon script.

Le plus simple serait de créer une feuille de calcul "paramètre" dans le fichier contenant la macro.
Dans cette feuille, tu pourrais mettre dans des cellules les noms de fichier (avec éventuellement le chemin s'il est variable) et aller les chercher pour les mettre dans une (ou plusieurs) variable en début de macro.

[audreyportiere]

Merci Menhir, pour votre retour, j'ai supprimé la pièce jointe. (oups)
J'ai mis mon code, par contre, vous me dites de mettre une feuille paramètre, ça signifie quoi ?

merci

[audreyportiere]

Personne pour m'aider 😥

[mfoxy]

Bonjour Audrey,

MarcelG à publier récemment sur son blog un code, ainsi que tout les explications nécessaire à ça mise en œuvre, qui répond très bien à ta demande.

Tu pourrais très certainement t'en inspirer pour ton développement.

https://www.developpez.net/forums/bl...te-differents/

N'hésite pas au besoin à revenir poster tes questions.

Bat

[audreyportiere]

Bonjour Audrey,

MarcelG à publier récemment sur son blog un code, ainsi que tout les explications nécessaire à ça mise en œuvre, qui répond très bien à ta demande.

Tu pourrais très certainement t'en inspirer pour ton développement.

https://www.developpez.net/forums/bl...te-differents/

N'hésite pas au besoin à revenir poster tes questions.

Bat

Bonjour mfoxy,

Merci pour ton message mais je n'arrive pas à ouvrir le lien que tu as mis

[Menhir]

vous me dites de mettre une feuille paramètre, ça signifie quoi ?

Un simple onglet supplémentaire dans ton classeur Excel dans laquelle se trouveraient des éléments variables de ton code inscrits dans de simples cellules.

Je n'ai pas exactement compris ce que tu veux dire par "selon les mois, je dois envoyer entre 1 et 100 pièces jointes à des personnes différentes et ma macro n'est pas pratique car je dois a chaque fois aller dans la macro et ajouter ou supprimer des informations."
Quel type d'informations peuvent changer entre deux exécutions de cette macro ?

[MarcelG]

Bonjour,

Merci, Foxy.

Pour la signature,
Soit celle-ci serait intégrée dans le corps de texte collé dans l'éditeur Word d'Outlook
Soit elle pourrait faire l'objet d'un fichier image inséré suivant le même processus concernant l'image du corps de texte.
(ordre à respecter)
Mon billet reporte également un code destiné à effacer la signature précédente.

[audreyportiere]

Bonjour,

Merci, Foxy.

Pour la signature,
Soit celle-ci serait intégrée dans le corps de texte collé dans l'éditeur Word d'Outlook
Soit elle pourrait faire l'objet d'un fichier image inséré suivant le même processus concernant l'image du corps de texte.
(ordre à respecter)
Mon billet reporte également un code destiné à effacer la signature précédente.

Merci pour ton retour, pourrais tu me dire comment je peux mettre une signature avec logo sur ma macro ?

Merci pour ton aide
Audrey

[audreyportiere]

Un simple onglet supplémentaire dans ton classeur Excel dans laquelle se trouveraient des éléments variables de ton code inscrits dans de simples cellules.

Je n'ai pas exactement compris ce que tu veux dire par "selon les mois, je dois envoyer entre 1 et 100 pièces jointes à des personnes différentes et ma macro n'est pas pratique car je dois a chaque fois aller dans la macro et ajouter ou supprimer des informations."
Quel type d'informations peuvent changer entre deux exécutions de cette macro ?

Bonjour Menhir,

Ce que je veux dire est que si je dois envoyer un mail avec plusieurs pièces jointes différentes dans ma macro, je dois supprimer plusieurs ligne, le code ici c'est si je dois envoyer 5 mails différents, si je dois envoyer 6 mails différents, je dois ajouter Attachments.Add FicjointF... et si je dois envoyer 1 pièce jointe uniquement, je dois effacer les lignes ci-dessous et ne laisser que Attachments.Add FicjointA

Code :

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

1
2
3
4
5
.
       .Attachments.Add FicjointB
       .Attachments.Add FicjointC
       .Attachments.Add FicjointD
       .Attachments.Add FicjointE

J'espère avoir été claire.

Merci pour votre aide
Audrey