Macro Signature Digitale

Version imprimable

04/04/2017, 14h45
semarokaben

Macro Signature Digitale

bonjour,

je suis en train de créer un formulaire de demande de paiement à l'usage de end-users.
J'y ai inséré un bouton pour le transfert pdf et l'envoi par mail après contrôle des champs obligatoires.
J'ai aussi inséré un bouton pour y attaché des pieces jointes dans le corps du fichier xls.

Je cherche maintenant une macro pour un troisième bouton pour l'insertion d'une signature digitale.

Un héros pourrait il me sauvant la vie en me donnant la solution?

d'avance merci
04/04/2017, 15h06
Menhir

Citation:

Envoyé par semarokaben

J'y ai inséré un bouton pour le transfert pdf

Quelle méthode utilises-tu pour générer le PDF ?

Citation:

Je cherche maintenant une macro pour un troisième bouton pour l'insertion d'une signature digitale.

A quoi veux-tu lier la signature ? Le PDF ? Le Mail ?

Déjà, il n'est pas possible de mettre une signature dans un PDF exporté avec Excel seul.
Ca ne figure pas dans les paramètres du ExportAsFixedFormat.
https://msdn.microsoft.com/fr-fr/lib.../ff840291.aspx

Donc, il faudra passer par un autre outil externe.
Il faudrait donc que tu dises quels outils tu utilises pour les PDF et les Mails.

pour le PDF et l'envoi du mail

Code:

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
Sub Send()
 
'
    Dim strPath As String, strFName As String
    Dim OutApp As Object, OutMail As Object
 
 
    strPath = Environ$("temp") & "\"
 
    strFName = ActiveWorkbook.Name
    strFName = Left(strFName, InStrRev(strFName, ".") - 1) & "_" & ActiveSheet.Name & ".pdf"
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        strPath & strFName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .to = "apc.equifac@proximus.com"
        .CC = ""
        .BCC = ""
        .Subject = "Equifac"
        .Body = "" & vbCr & "" & vbCr
        .Attachments.Add strPath & strFName
        .Display
    End With
 
    Kill strPath & strFName
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
 
End Sub

la signature, au niveau PDF se serait bien, sinon au niveau mail c'est bon tout en sachant que j'ai besoin de 2 signatures pour les demandes de plus de 5K€...

Je tourney en rond là :?:?

04/04/2017, 15h26
Menhir

Je ne vois pas comment une signature pourrait être mise en automatique.

Pour déposer la signature, il faut que la personne entre son code confidentiel.
Ca voudrait dire que, lorsque tu lances ta procédure, les deux personnes sont devant l'ordinateur pour entrer successivement leur code ? Pas très pratique...

Il vaudrait mieux que la macro génère le PDF et l'envoie à la première personne qui doit le signer.
Celle-ci introduit sa signature (avec un Accrobat, par exemple) et la transmets au suivant.
Une fois le fichier signé, il peut être envoyé.
04/04/2017, 15h32
semarokaben

de fait, les deux personnes devant le meme PC c'est pas le plus pratique:?

Donc, en fait, la première remplit le doc et signe et envoie à la deuxième personne qui signe et envoie au dernier pour payment.
Jusque là d'accord, je suis ;-)

mais comme insérer les signatures digitales?
04/04/2017, 17h33
Menhir

Il y a sans doute plusieurs méthodes.

Une méthode simple et pas cher que j'ai mis en place dans un service :

Tu crées une base de signatures avec un Accrobat Professionnal (la version Reader ne suffit pas).

Ensuite chaque personne peut ouvrir le document PDF avec un Accrobat Reader, y placer sa signature et resauvegarder le document.
Sachant que pour la première signature, le document indiquera forcément une anomalie puisque le fait de placer la seconde signature est, en soi, une modification. Le document ayant donc été modifié depuis la première signature, Accrobat considère forcément cette première signature douteuse.
Mais ça marche quand même.