Discussion :

[TruffExcel]

Bonjour,

Dans la macro ci-dessous, le texte de ma signature est bien inséré mais les images ne s'affichent pas.
Après quelques recherches sur le net, j'ai transformé .body en .HTMLbody et essayé de mettre les images au même endroit que le fichier htm de ma signature mais cela ne fonctionne pas mieux.
Une idée ?

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
 
Sub mail()
' Enregistrement en PDF et envoi par mail
 
Dim Sourcewb As Workbook
Dim destwb As Workbook
 
Dim TempFilePath As String
Dim TempFileName As String
 
Dim OutApp As Object
Dim OutMail As Object
 
Dim SigString As String
Dim Signature As String
 
With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With
 
Set Sourcewb = ActiveWorkbook
 
'Copie la feuille active comme nouvelle feuille
 
ActiveSheet.Copy
Set destwb = ActiveWorkbook
 
'Désactiver fenêtre de compatibilité
Application.DisplayAlerts = False
 
'----------------------------------------------------------------------------
'Sauvegarde la nouvelle feuille/L'envoie par mail/La supprime ... ou pas
'----------------------------------------------------------------------------
 
TempFilePath = "C:\Pointages\"
TempFileName = Range("AG2").Value
 
Set OutApp = CreateObject("outlook.application")
Set OutMail = OutApp.CreateItem(0)
 
With destwb
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=TempFilePath & "NOM SEMAINE" & TempFileName & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False        ' sauvegarde du fichier au format pdf
 
' Ajout pour signature 23-12-2020
SigString = Environ("appdata") & "\Microsoft\Signatures\TOTO.htm"
    If Dir(SigString) <> "" Then
        Signature = GetBoiler(SigString)
    Else
        Signature = ""
    End If
' Fin Ajout pour signature
 
On Error Resume Next
    With OutMail
        .To = "destinataire1@entreprise.com"
        .CC = ""
        .bcc = "destinataire2@entreprise.com"
        .Subject = "Pointage"
        .Attachments.Add TempFilePath & "NOM SEMAINE" & TempFileName & ".pdf"
        .HTMLBody = "texte du mail<BR><BR>" & Signature
        .display 'ou alors utiliser
        '.Send 'pour envoi
    End With
    On Error GoTo 0
    .Close savechanges:=False
End With
 
'Effacer le fichier envoyé
'Kill TempFilePath & TempFileName & ".pdf"
 
Set OutMail = Nothing
Set OutApp = Nothing
 
With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
 
End Sub
 
Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function

Merci.

EDIT : J'ai essayé ce code mais je n'ai pas du tout de signature : http://learnexcelmacro.com/wp/2016/1...l-sent-by-vba/

[mfoxy]

Bonsoir,

Si en faisant juste un .Display, sans ajout du htmlBody, votre signature est visible.
Je ferais un .Diplay du mail, récupérer la signature dans une variable text, puis remplacerait par le nouveau htmlBody + la signature récupérée avant.

En gros , non tester ( je suis sur mon Smartphone)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
   With OutMail
 
        .Display
        Signature = .HTMLbody
        .To = "destinataire1@entreprise.com"
        .CC = ""
        .bcc = "destinataire2@entreprise.com"
        .Subject = "Pointage"
        .Attachments.Add TempFilePath & "NOM SEMAINE" & TempFileName & ".pdf"
        .HTMLBody = "texte du mail<BR><BR>" & Signature
        '.Send 'pour envoi
    End With

[TonyNiort79]

Bonjour à tous,
normalement la signature n'est que du texte,
pourquoi ne pas ajouter l'image en lui indiquant son chemin ?
par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
' code pour langage HTML
 '<p>   <p> sauter une ligne
 '<br>  <br>va à la ligne
 '<B>   </B> met en gras
 
Dim image As String
' chemin à adapter 
image = ThisWorkbook.Path & Application.PathSeparator & ".JPG"
 
    .HTMLBody = "texte du mail<BR><BR>" & "<img src='" & image & "'></img></html>" & "<p>" & Signature

[TruffExcel]

Bonjour et Merci à vous deux d'avoir pris le temps de me répondre,

J'ai utilisé la méthode de mfoxy et ça marche bien donc ça résout mon problème.
Je dois maintenant trouver une manière d'harmoniser la police de caractère car la 1ère ligne est en Times new roman 12, le reste en calibri 10 et la signature en Arial 10 !! J'ouvrirais un ticket si besoin.

Je vais essayer la méthode de TonyNiort79 pour insérer une image (au moment où j'écrit, je ne vois pas bien où indiquer le chemin de l'image).

Merci encore à vous deux, et bonnes fêtes de fin d'année à tous les lecteurs.

[mfoxy]

Re,

Je dois maintenant trouver une manière d'harmoniser la police de caractère car la 1ère ligne est en Times new roman 12, le reste en calibri 10 et la signature en Arial 10 !!

Tu peu utiliser des balises html pour insérer ton texte dans la police que tu veux.
Le plus simple serait de trouver sur le net, c'est gratuit, un convertisseur text vers html prenant en charge les polices, ainsi tu aura ton text avec les polices/format que tu souhaites.

Bonne fêtes également,

[TruffExcel]

Merci pour cette astuce.
J'ai pu faire ce que je voulais --> https://www.developpez.net/forums/d2...ro-envoi-mail/

Cdt.

[TruffExcel]

Question subsidiaire :

Dans la macro décrite précédemment, mon fichier est enregistré en PDF avec le numéro de la semaine en indice avant d'être transmis par mail.

Cet indice est généré automatiquement avec la ligne : TempFileName = Range("AG2").Value

Cette cellule AG2 contient un nombre de 1 à 53 qui varie en fonction de la semaine.
Sur ma feuille Excel, le numéro de la semaine est affiché est sur 2 digits à l'aide du format personnalisé : 00 soit 01 pour la semaine 1

Par contre, la macro ne l'entend pas de cette façon et lors de l'enregistrement de mon fichier, je me retrouve avec l'indice 1 au lieu de 01 (en gros mon fichier est Semaine1.pdf au lieu de semaine01.pdf)

Est-ce que je peux contourner cela ? (en dehors d'ajouter dans ma macro un 0 qu'il faudra que je retire arrivé en semaine 10).

[Oliv-]

salut
Pour la signature tu peux lire ceci : https://www.developpez.net/forums/bl...-outlook-2016/

pour le format perso

Code :

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

TempFileName = Range("AG2").Text

tu peux utiliser les espions et variables locales en mode pas à pas pour voir les valeurs des propriétés

https://www.developpez.net/forums/bl.../debogage-vba/

[TruffExcel]

Bonjour et merci Oliv-,

Cela fonctionne bien (tu t'en doutais certainement mais je voulais étoffer ma réponse !!).

J'irais voir ton lien sur le débogage car je ne connais que le pas à pas et les points d'arrêts mais pas les espions.
Il pointe aussi vers d'autres sites qui me paraissent intéressants.

Merci.

[TonyNiort79]

Bonjour et Merci à vous deux d'avoir pris le temps de me répondre,
Je vais essayer la méthode de TonyNiort79 pour insérer une image (au moment où j'écrit, je ne vois pas bien où indiquer le chemin de l'image).

bonjour à tous,
pour répondre à la question

Code :

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

1
2
' chemin à adapter 
image = ThisWorkbook.Path & Application.PathSeparator & ".JPG"

ThisWorkbook.Path indique le même répertoire du classeur

Application.PathSeparator indique "\" la barre oblique

il manque ci-dessus le nom du fichier image qui doit se trouver entre la barre oblique et ".JPG"
si l'image qui se nomme par exemple 'Logo' et se trouve dans le même répértoire que le classeur alors il suffit d'écrire

Code :

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

image = ThisWorkbook.Path & Application.PathSeparator & "Logo.JPG"

par contre si l'image se trouve ailleurs il faudra l'indiquer comme par exemple

Code :

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

image = "C:\Travail\Logo.JPG"

[TruffExcel]

Merci Tony, cette fois c''est très clair .

Cdt.