Discussion :

[jerdel]

Bonjour à tous,

Dans mon programme je dois importer des fichiers dont le nom est la date.
J'effectue une boucle pour importer ces fichiers.
Le problème est qu'il y a le fichier correspondant à la date 05-03-2011 qui manque. Il y a donc une erreur pour "chemin introuvable".
Comment ignorer cette erreur et continuer à boucler?

Voici mon programme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Option Explicit
 
Dim lettre1, lettre2, lettre3, jour, jour2, mois, mois2, annee As Integer
Dim my_file As String
 
Public Sub main()
 
jour = 0
mois = 5
annee = 2011
lettre1 = ""
lettre2 = ""
lettre3 = 55
 
    Do While my_file <> "05-31-2011"
 
    If (jour = 31) Then
 
        jour = 1
        mois = mois + 1
        jour2 = Format(jour, "00")
        mois2 = Format(mois, "00")
        my_file = mois2 & "-" & jour2 & "-" & annee
'       Call colonne
        Call coller
 
    Else
 
        jour = jour + 1
        jour2 = Format(jour, "00")
        mois2 = Format(mois, "00")
        my_file = mois2 & "-" & jour2 & "-" & annee
 
'       Call colonne
        Call coller
 
    End If
 
    Loop
 
End Sub
 
Public Sub coller()
 
    Range("A3").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;\\10.57.70.210\Production\Secondaire\" & my_file & ".his", Destination:= _
        Range("$A$3"))
        .Name = my_file
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
 
End Sub

Merci

[Jean-Philippe André]

pour tester l'existence d'un path de fichier ou répertoire, tu peux utiliser la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dir()

l'aide en ligne te donne les syntaxes et retours typiques de la fonction

un test avec cette fonction te permettra de détecter l'existence ou non d'un path

[jerdel]

ok merci pour ta réponse.

Je vais tester ça.