Bonjour à tous,

Je rencontre des problèmes pour faire un programme d'acquisition de données. Si quelqu'un peut me venir en aide, ça serait bien sympa.
J'ai délimité les zones de turbulences par des points d'interrogation.

Merci d'avance.

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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Sub Macro()
 
Dim Date_selection As String
Dim Nom_fichier As String
Dim i As Byte
Dim Quitter As Byte
 
Date_selection = Feuil8.Range("D3").Value
 
 i = 0
 
Do While Quitter = 0 'boucle tant que la variable Quitter est égale à 0
'récupération de données
 
 
' ici    
' ???????If i <> 0 And 10 And 20 And 30 ??????????Then
'    
 
 
    Nom_fichier = Feuil8.Range("C8").Offset(0, i).Value + "0" + Date_selection
 
 
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Documents and Settings\Administrator\Desktop\degrémont\Données Macro\" & Nom_fichier & ".txt" _
        , Destination:=Range("CD9"))
        .Name = Nom_fichier
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(5, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
 
' et encore ici   
'         ??????????????????If i <> 1 And 11 And 21  
' ?????????????????????????Then
'
 
            Feuil8.Range("CF9:CF65536").ClearContents
            Feuil8.Range("CD9:CD65536").ClearContents
 
            Feuil8.Range("CE9:CE65536").Copy
            Feuil8.Range("D9").Offset(0, i).Paste
 
 
        Else
 
            Feuil8.Range("CF9:CF65536").ClearContents
 
 
' et ici encore...    
'       ????????????Feuil8.Range("CE9:CE65536").Copy
'      ????????????? Feuil8.Range("D9").Offset(0, i).Paste
'       
'      ??????????? Feuil8.Range("CD9:CD65536").Copy _
'         ????????   Destination:=Feuil8.????????????????
'         End If
'        
 
    Else
 
' puis ici    
'            ????????????If i = 0 Or 10 Or 20 ?????????????Then
'        
 
            Else
 
        Quitter = 1
 
            End If
 
    End If
    i = i + 1
 
    Loop
 
End Sub