Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
893 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  problème d'excécution 13

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

problème d'excécution 13

n°2214680
juliedu63
Posté le 31-12-2013 à 16:11:48  profilanswer
 

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 :
  1. Open "C:\temp.txt" For Input As intfic
  2.     '-2- boucle, on décline toutes les lignes du fichier
  3.     While EOF(1) = False
  4.       ' On récupère la ligne courante sur strLigne
  5.       Line Input #intfic, strligne
  6.      
  7.         If para7 = False Then
  8.             MsgBox "ATTENTION !!! " & vbCrLf & vbCrLf & "La transformation du fichier TXT a été arrêtée.", vbCritical, "Arrêt d'exécution"
  9.             Close intfic
  10.             Kill ("C:\temp.txt" )
  11.             Exit Sub
  12.         End If
  13.        
  14.       ElseIf strligne = "model" Then
  15.         Do While para8 = "0" Or para8 = ""
  16.             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" )
  17.         Loop
  18.         If para8 = False Then
  19.             MsgBox "ATTENTION !!! " & vbCrLf & vbCrLf & "La transformation du fichier TXT a été arrêtée.", vbCritical, "Arrêt d'exécution"
  20.             Close intfic
  21.             Kill ("C:\temp.txt" )
  22.             Exit Sub
  23.         End If
  24.        
  25.       End If
  26.      
  27.     Wend ' On lit la ligne suivante du fichier
  28. Close intfic


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

mood
Publicité
Posté le 31-12-2013 à 16:11:48  profilanswer
 

n°2214691
Marc L
Posté le 31-12-2013 à 18:36:02  profilanswer
 

 
           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
n°2214739
juliedu63
Posté le 02-01-2014 à 08:29:36  profilanswer
 

Bonjour,
 
Merci . Je vais essayer tout ça et je revient pour vous dire.
 
Meilleurs voeux.
 
Bonne continuation,
Julie

n°2214740
juliedu63
Posté le 02-01-2014 à 08:36:58  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  problème d'excécution 13

 

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


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR