XL 2013 Planning

Ceci a l'air intéressant mais il y a une erreur à l'ouverture du fichier :

Erreur execution 9 :

Function Esc_Dt(S As String, Apl As String) As String ' pour base Access
Dim d() As String, f As Integer
On Error GoTo errhdlr
If S = "" Or S = "0" Then
Esc_Dt = "NULL"
Else
S = Replace(S, "-", "/")
d = Split(S, "/")
Esc_Dt = "#" & d(1) & "/" & d(0) & "/" & d(2) & "#"
End If
Exit Function

errhdlr:
d = Split(Replace(CStr(Date), "-", "/"), "/")
Esc_Dt = "#" & d(1) & "/" & d(0) & "/" & d(2) & "#"
f = FreeFile()
Open ThisWorkbook.Path & "\Log.txt" For Append As #f
Print #f, Now() & "|" & S & " | " & vbCrLf & Apl & vbCrLf
Close #f
End Function
' *************************************************************************************************

Auriez-vous une solution ?

Par avance merci de votre support

Bonjour,

merci de m'avoir apporté votre fichier, j'ai bien Windows 10 sur PC mais je me demande si cela ne vient pas du clavier car le mien est Qwertz

bonne journée