Run-Time error '5' Besoin d'aide :sRésolu

Question

Bonjour !! Je reçois toujours l'erreur Rub-Time error 5 apres avoir executer mon programme 

il me donne que l'erreur est dans cette ligne :
strTemp = Mid$(strTemp, lngStart + 4, lngEnd - lngStart - 4)

et le code avant la ligen et : 
lngStart = InStr(1, strTemp, START)
lngEnd = InStr(1, strTemp, FINISH)
lngx = lngEnd - lngStart - 4
lngy = lngStart + 4

Merci

cs_casy · Accepted Answer

Le paramètre Lenght de l'instruction Mid ne doit pas etre négatif.

A toi de traiter les cas ou ce paramètre (de part ton calcul) peut se retrouver négatif. Notamment ou le caractère START n'est pas trouvé, ou qu'il est trouvé moins de 4 caractères avant la fin de la chaine, .......

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

mizoz · Answer

Et pour l'erreur c Invalid Procedure Call Or Argument

cs_casy · Answer

vérifie que lngEnd - lngStart - 4 est bien égal ou suppérieur à 1. Ce paramètre ne doit pas etre négatif

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

mizoz · Answer

Oui c vrai , c une bonne reponse

Mais si je suppr le -4 
le programme marche pas , que faire

Run-Time error '5' Besoin d'aide :s

4 réponses

Votre réponse

Discussions similaires