Last news: suddenly, it works again.
My search lead me to an information which is that MS desactivated RegEx on IE on W10 a few weeks ago.
Today, all workbooks that crashed since 3 weeks are working nice again.
In between, programmed a solution to bypass RegEx:
Function Extract(Chaine, Optional Pos = 1, Optional Balise)
If IsNumeric(Chaine) Then
Extract = Chaine
Exit Function
End If
On Error GoTo erreur:
Set re = New VBScript_RegExp_55.RegExp
re.Global = True
If IsMissing(Balise) Then
re.Pattern = "[0-9,.]+"
Set A = re.Execute(Chaine)
If A.Count >= Pos Then Extract = val(Replace(A(Pos - 1), ",", "."))
Else
re.Pattern = Balise
A = Strings.Split(re.Replace(Chaine, vbNullChar), vbNullChar)
If UBound(A) >= Pos - 1 Then
Extract = val(Replace(A(Pos - 1), ",", "."))
End If
End If
On Error GoTo 0
Exit Function
erreur:
Db = 1
Ln = 0
Set A = New Collection
For Scan = 1 To Len(Chaine)
If Mid(Chaine, Scan, 1) Like "[0123456789,.]" Then
If Ln = 0 Then
Db = Scan
End If
Ln = Ln + 1
Else
If Ln <> 0 Then
A.Add Mid(Chaine, Db, Ln)
Ln = 0
End If
End If
Next
If Ln <> 0 Then
A.Add Mid(Chaine, Db, Ln)
Ln = 0
End If
If A.Count >= Pos Then Extract = val(Replace(A(Pos), ",", "."))
End Function