dans le code suivant la ligne 'If IsNumeric(Mid(myPhrases, Place - 1, 2)) Then' dé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, étant donné que tout les arguments que j'utilise, je les déclarés et ils existent.est ce que cela vous inspire qqch?

  Daydayerement Vôtre