Discussion :

[Jean-Philippe André]

Hello,

je bute sur un problème de signature numérique dans un fichier Excel.

Je génère depuis mon application un fichier xlsx dans lequel j'ai 2 emplacements de signatures électroniques (je pars d'un template, donc pas d'ajout par le code des dites signatures).

Mon problème vient à l'ouverture d'un fichier qui en contient (ou pas).

Mon code actuel est le suivant :

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
Dim tmp As Variant
Dim xlwbk As Workbook
tmp = Application.GetOpenFilename("Fichier Excel(*.xlsx),*.xlsx")
If tmp <> False Then
    Set xlwbk = Application.Workbooks.Open(CStr(tmp))
     If xlwbk.Signatures.Count > 0 Then
        Set sig = xlwbk.Signatures(1)
        If sig.IsSigned Then
            'document signé, traitement 1
            Else
            'document non signé, traitement 2
        End If
    Else
        'document non signé, traitement 2
    End If
    xlwbk.Close False
End If

Or, malgré la présence manifeste de signatures à signer, la ligne xlwbk.signatures.count vaut toujours 0...
Quelqu'un manipule-t-il ces objets ?

[PMO2017]

Bonjour,

J'ai construit quelques signatures dans un classeur mais je ne les ai pas inscrites pour qu'elles puissent être authentifiées.
Donc et à tout hasard, voyez le code suivant s'il peut vous mettre le pied à l'étrier.

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
Sub aa()
Dim WB As Workbook
Dim SG As Signature
Dim i&
'---
Set WB = ThisWorkbook
WB.Signatures.Subset = msoSignatureSubsetAll 'je crois que cette ligne est indispensable
'---
MsgBox "Signatures.Count = " & WB.Signatures.Count
 
'--- N'ayant pas entérinées les signatures auprès d'un organisme,
'--- je n'ai pu faire mieux que les essais limités suivants
For i& = 1 To WB.Signatures.Count
  Set SG = WB.Signatures(i&)
  If SG.IsSigned Then
    MsgBox "Le document a été signé " & vbCrLf & SG.Details
  Else
    MsgBox "Le document n'a pas été signé"
  End If
Next i&
End Sub

[XBS17]

Bonjour jpcheck,

Je vais peut-être dire une bêtise, je ne suis pas sûr de ma réponse.

Je crois qu'il faut passer par un objet SignatureSet.

Il existe ensuite la propriété SignatureSet.Count

Renvoie un type Long qui indique le nombre d'éléments dans l'objet SignatureSet .En lecture seule.