Éliminer les bugs

[hakoko]

Bonjour tout le monde,

j'ai une macro qui récupère certaines données provenant d'un fichier texte, le problèmes c'est que quand ce fichier texte n'existe pas mon programme bug. j'ai essayer avec la commande :

On Error Resume Next

ça marche pas . quelqu'un aurai une petite idée svp. merci d'avance.

Sub DerLigne()
 
 Dim Tbl() As String
    Dim Ligne As String
    Dim I As Integer
    Dim txt As String
    'adapter le chemin et nom du fichier
    txt = ""
    'If Fichier = "" Then
' il faut calculer en fonction de la date
Fichier = "a" & Format(Date, "yyyymmdd") & ".TXT"
chemin = "\\193.50.118.63\data\"
'If Fichier <> "" Then
'End If
On Error Resume Next 
    'Open "\\193.50.118.63\data\a20130612.txt" For Input As #1
 Open chemin & Fichier For Input As #1
        Do While Not EOF(1)
 
            Line Input #1, Ligne
 
           txt = txt & Ligne & vbCrLf
 
        Loop
 
    Close #1
 
    'résultat dans la fenêtre d'exécution (Ctrl+G)
   ' Debug.Print Tbl(I)
 Tbl = Split(txt, vbCrLf)
 For I = UBound(Tbl) To 0 Step -1
    If Trim("" & Tbl(I)) <> "" Then
        Tbl = Split(Tbl(I), Chr(9))
       Range(Cells(4, 1), Cells(4, UBound(Tbl))) = Tbl()
        Exit For
    End If
 Next

end Sub

 

[Pierrot93]

Re : Éliminer les bugs

Bonjour,

regarde dans l'aide vba du coté de la fonction DIR, te permettra de tester l'existence du fichier...

bon après midi
@+

 

[hakoko]

Re : Éliminer les bugs

j'ai essayé avec

If Dir("\\193.50.118.63\data\" & Fichier) = Dir(Fichier) Then

mais ça bug tjr.

 

[Pierrot93]

Re : Éliminer les bugs

Re,

essaye ceci :

If Dir("\\193.50.118.63\data\" & Fichier) = "" Then MsgBox "pas de fichier..."

 

[hakoko]

Re : Éliminer les bugs

merci bien,
ça marche et donc je l'ai adapté à mon programme :

If Dir("\\193.50.118.63\data\" & Fichier) <> "" then


SVP , dans le cas ou le chemin "\\193.50.118.63\data\" n'existe pas comment soulever le bug?

 

[Pierrot93]

Re : Éliminer les bugs

Re,

SVP , dans le cas ou le chemin "\\193.50.118.63\data\" n'existe pas comment soulever le bug?

euh... pas tout compris... peut être ceci :

If Dir("\\193.50.118.63\data\" & Fichier) = "" Then Exit Sub

mais enlève tes "on error resume next"....

 

[hakoko]

Re : Éliminer les bugs

merci bcp , ça marche