Bonjour,
Dans le cadre du traitement de données j’avais réalisé un programme me permettant de récupérer une encaisse si le code réponse était égal à 0.
Or il s’avère que le fournisseur a modifié son fichier et j’ai maintenant une erreur d’exécution ‘13’ Incompatibilité de type car dans ma fonction j'ai précisé que ma donnée devait être égale à 0 pour être vrai (j'ai d'autres codes réponses dans le fichier 51;97 ...) et normalement cette donnée ne devrait jamais être à blanc.
Si une personne pouvez m’aider ....
Vous en remerciant
Cordialement
Dans le cadre du traitement de données j’avais réalisé un programme me permettant de récupérer une encaisse si le code réponse était égal à 0.
Or il s’avère que le fournisseur a modifié son fichier et j’ai maintenant une erreur d’exécution ‘13’ Incompatibilité de type car dans ma fonction j'ai précisé que ma donnée devait être égale à 0 pour être vrai (j'ai d'autres codes réponses dans le fichier 51;97 ...) et normalement cette donnée ne devrait jamais être à blanc.
Si une personne pouvez m’aider ....
VB:
' si la chaine contient 1ère ligne on initialise "Nom court"
ccession = getDot(chaine)
cessionCur = ccession
DTransaction = dateTransaction(chaine)
HTransaction = heureTransaction(chaine)
montant1 = getMontant(chaine) 'montant de l'opération
CodeReponse = getcodeReponse(chaine)
encaisse = getEncaisse(chaine) 'tempArray(12)
cTraitement = codeTraitement(chaine)
Else
DTransaction = dateTransaction(chaine)
HTransaction = heureTransaction(chaine)
montant1 = getMontant(chaine)
CodeReponse = getcodeReponse(chaine)
cTraitement = codeTraitement(chaine)
End If
Function getcodeReponse(ByVal chaine As String) As Boolean
Dim tempArray() As String
Dim taille As Integer
tempArray = Split(chaine, ";")
taille = UBound(tempArray)
If (CInt(tempArray(7)) = 0) Then
getcodeReponse = True
Else
getcodeReponse = False
End If
End FunctionVous en remerciant
Cordialement