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