Document Excel avec signature numérique attendue

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:

---

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 ?

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:

---

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

---

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.