Discussion :

[nawake]

Bonjour a tous

Voila en deux mots, ma macro est certifier et tout va bien, cependant la macro doit créer un fichier rapport qui nécessite un petit bout de macro (bouton et macro créer dynamiquement donc), le problème c'est que pour l'instant le fichier rapport n'est pas certifié, donc la macro du fichier rapport est désactiver automatiquement à causer de la sécurité.
Je pense que c'est possible de signer un projet par une macro mais comment?

Code :

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

1
2
3
Workbooks("toto").Signatures.AddSignatureLine(varFournisseurSignatures)?
ou
Workbooks("toto").VBProject.?

si quelqu'un sais comment faire, ces explications sont attendues avec impatience

[Singular]

Copié dans l'aide en ligne de référence VBIDE (La traduction est de mon cru):

Signer, propriété

...

Cette propriété renvoie un objet de type String représentant le nom de la personne qui a joint le certificat numérique correspondant à l'objet Signature au document. Type de données en lecture seule.
expression.Signer

expression Obligatoire. Expression qui renvoie l'un des objets de la liste S'applique à.
Exemple

L'exemple suivant montre comment inviter l'utilisateur à sélectionner une signature numérique avec laquelle signer le document actif dans Microsoft Word. Pour utiliser cet exemple, ouvrez un document dans Word et transmettez à cette fonction le nom d'un émetteur de certificat et le nom d'un signataire de certificat correspondant aux champs Émis par et Délivré à d'un certificat numérique dans la boîte de dialogue Certificats numériques. Cet exemple montre comment vérifier que la signature numérique que l'utilisateur sélectionne répond à certains critères, comme une date d'expiration non dépassée, avant que la nouvelle signature soit appliquée au lecteur.

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
Function AddSignature(ByVal strIssuer As String, _
    strSigner As String) As Boolean
 
    On Error GoTo Error_Handler
 
    Dim sig As Signature
 
    'Affiche la boîte de dialogue qui permet
    'à l'utilisateur d'ajouter une signature digitale.
    'S'il sélectionne une signature, celle-ci
    'est alors ajoutée à la collection Signatures.
    'Sinon, une erreur se produit.
    Set sig = ActiveDocument.Signatures.Add
 
    'Tester plusieurs propriétés avant d'inscrire l'objet 
    'Signature sur disque.
    If sig.Issuer = strIssuer And _
        sig.Signer = strSigner And _
        sig.IsCertificateExpired = False And _
        sig.IsCertificateRevoked = False And _
        sig.IsValid = True Then
 
        MsgBox "Signée"
        AddSignature = True
    'Sinon, enlever l'objet Signature de la collection 
    'SignatureSet.
    Else
        sig.Delete
        MsgBox "Non signée"
        AddSignature = False
    End If
 
    'Inscrire toutes les signatures de la collection 
    'SignatureSet sur disque.
    ActiveDocument.Signatures.Commit
 
    Exit Function
Error_Handler:
    AddSignature = False
    MsgBox "Action annulée."
End Function