problème d'excécution 13

problème d'excécution 13 - VB/VBA/VBS - Programmation

Marsh Posté le 31-12-2013 à 16:11:48    

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

Reply

Marsh Posté le 31-12-2013 à 16:11:48   

Reply

Marsh Posté le 31-12-2013 à 18:36:02    

 
           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
Reply

Marsh Posté le 02-01-2014 à 08:29:36    

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

Reply

Marsh Posté le 02-01-2014 à 08:36:58    

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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed