Discussion :

[Nano33320]

Bonjour à tou(te)s Pro d'EXCEL"

Nouvel arrivant sur ce blog, je suis un amateur qui développe un outils Excel pour la gestion d'une association dont je suis membre...

Tout d'abord un grand merci aux différents contributeurs qui ont mis à disposition du code VBA m'ayant permis de quasiment finaliser la bête

L'outil permet d'en gérer les membres {Nom / Prénom / Coordonnées / activités / etc...}.
Il permet aussi d'envoyer des courriels à tous les membres ou juste à ceux pratiquant une activité spécifique (ouf le tableau est dressé !)

Dans ce cadre je voudrais insérer un "logo.jpg = logo de l'association" au niveau de la signature, si possible entre les coordonnées d'adresse téléphone et l'adresse courriel... (plutôt exigeant le gonze ! )
ci-dessous le code utilisé pour l'envoi des courriels.
Par avance, merci pour l'aide déjà apportée (conception de l'outil par 'ponction' de code à droite et à gauche) et pour l'aide à venir = finalisation complète...

De plus, je cherche un outil de gestion comptable simple pour l'association (un peu plus d'une centaine de membres) avec un salarié
Au plaisir de vous lire
Cdlt
Nano

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
41
 
Sub Envoyer_Mail_Outlook()
'   Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,
'   Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
    Dim OL As Object
    Dim OLmail As Object
    Dim Texte As String
 
    Set OL = CreateObject("Outlook.Application")
    Set OLmail = OL.CreateItem(0)
 
    Dim adresse As String
    Dim objet As String
    Dim signature As String
    Dim groupe As String
    Dim Message, Default, MyValue
' InputBox pour création de l'objet du courriel
    MyValue = InputBox(Message, Default)
    Default = ""
    Message = "Objet du Courriel"
    groupe = "Activité"              ' défini l'activité ciblée par le courriel 
    objet = MyValue & "  => Destinataires : " & groupe
' Destinataire(s) du courriel
    adresse = "ensemble des destinataires du courriel"
' Message et signature
    Texte = "Eysines, le " & Format(Date, "dd/mm/yyyy") & vbCrLf & "Bonjour,"
    Texte = Texte & vbCrLf & vbCrLf
    signature = "vbCrLf & Sheets("Bureau").Range("G2").Value"
'    signature = vbCrLf & signature
    Texte = Texte & signature
    With OLmail
        .To = adresse             ' le(s) destinataire(s)
        .CC = "Sheets("Bureau").Range("G1").Value"   ' le(s) destinataire(s) en copie
        .Subject = objet          ' l'objet du mail
        .Body = Texte             ' le corps du mail : son contenu, sa signature
        .Display                     ' Ici on peut supprimer pour l'envoyer sans vérification
    End With
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
    Sheets("Menu").Select
End Sub

[Nano33320]

Bon ben... en attendant j'ai un peu avancé et j'ai trouvé, dans le site, cette proposition de "maejor" le 18 janvier 2008 ! (ouf ça date mais c'est toujours opérationnel sous XL 2010)
elle fonctionne très bien mais ne répond pas à l'ergonomie attendue par l'utilisateur de l'outil...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub envoiPlageCellules_Excel2002()
<div style="margin-left:40px">ActiveSheet.Range("A1:B5").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
 
With ActiveSheet.MailEnvelope
    .Introduction = "bonjour , ci joint les données ..."
    .Item.To = "destinataire@dvp.fr"
    .Item.From = "..@..."
    .Item.Subject = "le sujet"
    .Item.Send
End With</div>End Sub

J'aimerais l'intégrer dans mon script, peut-être au niveau codage de la "signature" ?
mais mes différents test ne fonctionnent pas...
ci-dessous pour rappel le code 'opérationnel' que j'utilise :

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 Envoyer_Mail_Outlook()
'   Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,
'   Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
    Dim OL As Object
    Dim OLmail As Object
    Dim Texte As String
 
    Set OL = CreateObject("Outlook.Application")
    Set OLmail = OL.CreateItem(0)
 
    Dim adresse As String
    Dim objet As String
    Dim signature As String
    Dim groupe As String
    Dim Message, Default, MyValue
' InputBox pour création de l'objet du courriel
    MyValue = InputBox(Message, Default)
    Default = ""
    Message = "Objet du Courriel"
    groupe = "Activité"              ' défini l'activité ciblée par le courriel 
    objet = MyValue & "  => Destinataires : " & groupe
' Destinataire(s) du courriel
    adresse = "ensemble des destinataires du courriel"
' Message et signature
    Texte = "Eysines, le " & Format(Date, "dd/mm/yyyy") & vbCrLf & "Bonjour,"
    Texte = Texte & vbCrLf & vbCrLf
    signature = "vbCrLf & Sheets("Bureau").Range("G2").Value"
'    signature = vbCrLf & signature
    Texte = Texte & signature
    With OLmail
        .To = adresse             ' le(s) destinataire(s)
        .CC = "Sheets("Bureau").Range("G1").Value"   ' le(s) destinataire(s) en copie
        .Subject = objet          ' l'objet du mail
        .Body = Texte             ' le corps du mail : son contenu, sa signature
        .Display                     ' Ici on peut supprimer pour l'envoyer sans vérification
    End With
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing
    Sheets("Menu").Select
End Sub

De plus, je cherche toujours un outil de gestion comptable simple et gratuit pour l'association (un peu plus d'une centaine de membres) avec un salarié (pas moi)

Au plaisir de vous lire
Cdlt
Nano

[joe.levrai]

Bonjour,

quitte à passer par Outlook pour envoyer le mail, pourquoi ne pas créer les signatures dans outlook et simplement charger celle qu'on souhaite ?

[Nano33320]

Bonjour Joe,

Merci de l'idée, toutefois, je l'avais déjà envisagée, mais la personne qui va utiliser l'outil n'est pas une experte en informatique.
Pour cela je l'ai conçu type "presse bouton" avec génération de mail avec les champs destinataire(s), copie(s) pré-remplis juste par clic de souris sur bouton et objet pré-rempli via ComboBox.

Outlook va servir pour les courriels de l'association mais aussi pour les courriels personnels voire pour d'autres membre de la famille de la personne utilisatrice (budget associatif et personnel de l'utilisateur obligent) => pas la même signature...
Le souhait étant que tous les courriels émis dans le cadre de l'association aient la signature de l'association => automatisation de la signature.
Celle-ci tient dans 5 cellules (dont une contenant le logo) d'une feuille Excel.

D'où ma recherche

Cdlt
Nano