problème d'excécution 13

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : problème d'excécution 13

juliedu63

Bonjour à tous,

Je me trouve coincer à une erreur de type 13 dans mon programme, pourtant simple.
L'erreur survient à if para8 = false.

Les variables sont toutes de type string.

Code :

Open "C:\temp.txt" For Input As intfic
'-2- boucle, on décline toutes les lignes du fichier
While EOF(1) = False
' On récupère la ligne courante sur strLigne
Line Input #intfic, strligne
If para7 = False Then
MsgBox "ATTENTION !!! " & vbCrLf & vbCrLf & "La transformation du fichier TXT a été arrêtée.", vbCritical, "Arrêt d'exécution"
Close intfic
Kill ("C:\temp.txt" )
Exit Sub
End If
ElseIf strligne = "model" Then
Do While para8 = "0" Or para8 = ""
para8 = Application.InputBox("Dans votre fichier, il n'y a pas d'information concernant le MODELE." & vbCrLf & vbCrLf & "Veuillez donner le MODELE :", "Information Complémentaire" )
Loop
If para8 = False Then
MsgBox "ATTENTION !!! " & vbCrLf & vbCrLf & "La transformation du fichier TXT a été arrêtée.", vbCritical, "Arrêt d'exécution"
Close intfic
Kill ("C:\temp.txt" )
Exit Sub
End If
End If
Wend ' On lit la ligne suivante du fichier
Close intfic

J'aimerai savoir où se trouve l'erreur.
Merci d'avance de votre aide.

Julie

Publicité

Marc L

Bonjour, bonjour,

l'erreur vient de la déclaration de la variable car la valeur False ne peut être une donnée de type String ‼
Typée Variant ou non déclarée, elle ne poserait pas de souci …

Si la variable doit rester typée en String alors remplacer False par la valeur renvoyée dans ce cas
(soit "" soit "Faux"), à vérifier en plaçant un point d'arrêt dans la procédure …

Message édité par Marc L le 31-12-2013 à 18:52:01

juliedu63

Bonjour,

Merci . Je vais essayer tout ça et je revient pour vous dire.

Meilleurs voeux.

Bonne continuation,
Julie

juliedu63

Super !
Cela marche à merveille !

C'était vraiment tout bête.
Comme ma variable devait rester en string. J'ai utilisé ta deuxième solution ="Faux".

Merci encore de m'avoir débloquer.

Cordialement,
Julie

FORUM HardWare.fr

Programmation

VB/VBA/VBS

problème d'excécution 13

Sujets relatifs
aidez moi svp probleme php vers word	Fortran : Probleme de lecture
[ORACLE] problème avec "select in select" ou équivalent	Problème boucle VBA avec vlookup
Problème Positionement div	Problème Création fichier texte via vbs
Problème avec fonction pow	[Résolu] Problème envoi formulaire
Problème de connexions successives à MYSQL	probleme reponse a l'excecution d'une commande par code
Plus de sujets relatifs à : problème d'excécution 13

Page générée en 0.052 secondes