argument ou appel de procedure incorrect sans trouver pourquoiRésolu

Question

dans le code suivant la ligne 'If IsNumeric(Mid(myPhrases, Place - 1, 2)) Then' d&#233;clenche le message 'appel de procedure ou argument incorrect' : 

numToCompare = 1
For indexPath = 0 To UBound(selectedFilePath)
myPhrases = selectedFilePath(indexPath)
' search of the beginning of the week number
Place = Len(myPhrases) - 4
' takes a numerical character
If IsNumeric(Mid(myPhrases, Place - 1, 2)) Then
'if it is numerical, it is all right
numWeek = Val(Mid(myPhrases, Place - 1, 2))
' if it is not, take only one
Else
numWeek = Val(Mid(myPhrases, Place, 1))
End If
If numWeek > numToCompare Then
numToCompare = numWeek
End If


Next
Selection.TypeText Text:=numToCompare
Selection.MoveDown Unit:=wdLine, Count:=1

je n'arrinve pas comprendre pourquoi, &#233;tant donn&#233; que tout les arguments que j'utilise, je les d&#233;clar&#233;s et ils existent.est ce que cela vous inspire qqch?

  Daydayerement V&#244;tre

mrdep1978 · Accepted Answer

Ce ne serait pas ta variable Place qui serait <= 1 dans certains cas ?

Daydayer · Answer

desolee, ma souris a gliss&#233;... c'est pas le bon forum...

  Daydayerement V&#244;tre

Argument ou appel de procedure incorrect sans trouver pourquoi

2 réponses

Discussions similaires