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