Erreur de compilation: Sub ou Function non définie

Bonjour,

actuellement en train de réaliser un projet en entreprise pour mettre en évidence des anomalies sur des commandes, j'ai fait un code VBA devant comparer les statuts de commande et une différence de jours entre la date du jour et la date de commande. Les dates sont écrites de cette manière sur les fichier csv : "2019-05-06 3:11pm"

Quand j'affecte ma macro sur un bouton et que je clique, j'obtiens l'erreur de compilation du "Sub ou fonction non définie" et le déboggueur pointe sur le Sub...

J'espère que vous saurez m'aider! Merci d'avance

Voici mon code :

Sub newstoreProblem()

Dim orderDate As Date

Dim difDate

Dim statusToUse As Range

Set statusToUse = Range("C2:C100")

Dim statusCell As Range

Dim a As String

a = "accepted"

Dim s As String

s = "shipped"

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim l As Integer

Dim m As Integer

Dim dateToUse As Range

Set dateToUse = Range("D2:D100")

Dim dateCell As Range

Dim currentDate As String

currentDate = Date

y = Split(Split(Range("A1").Value, ":")(1), "-")

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

For Each statusCell In statusToUse.Areas

For Each dateCell In dateToUse.Areas

orderDate = DateValue(Join(Array(y(2), y(1), y(0)), "-"))

difDate = DateDiff("d", currentDate, orderDate)

If status = a And difDate <= 7 Then

status.Interior.ColorIndex = 46

i = i + 1

ElseIf status = a And difDate <= 2 Then

status.Interior.ColorIndex = 27

j = j + 1

ElseIf status = a And difDate > 7 Then

status.Interior.ColorIndex = 3

k = k + 1

ElseIf status = s Then

status.Interior.ColorIndex = 10

l = l + 1

Else

m = m + 1

End If

i = i - j

Next dateCell

Next statusCell

MsgBox "There are" + i + "risky orders"

End Sub

Bonjour,

Tu peux commencer par regarder le résultat de :

y = Split(Split(Range("A1").Value, ":")(1), "-")

Que doit retourner y ?

Cdlt.