appel de procédure ou argument incorrect sans savoir pourquoi...Ré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'arrive 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

Daydayer · Accepted Answer

en fait, j'ai trouv", mes variables prenaient des vlaurs non conformes parce que j'ai mal sp&#233;cifi&#233; les bornes de ma boucle...il faut que je fasse :
For indexPath =  0 To UBound(selectedFilePath) -1 
et non For indexPath  = 0 To UBound(selectedFilePath)

merci &#224; tous!
  Daydayerement V&#244;tre

cs_CanisLupus · Answer

Si c'est le num&#233;ro de semaine que tu veux connaitre, il y a plus simple :

MsgBox DatePart("ww", Date)

enfin, &#231;a c du VB6 &#224; voir pour VB.NET.

Cordialement, CanisLupus

crenaud76 · Answer

Peut-etre que "Place -1" est inf&#233;rieur ou &#233;gal &#224; z&#233;ro ! Ce qui ne plairat pas &#224; Mid() !!! Fait du F8 pour le savoir

Christophe R

Appel de procédure ou argument incorrect sans savoir pourquoi...

3 réponses

Discussions similaires