Bonjour à tous,

mon souhait serait de réaliser une boucle qui me permettrait d'incrémenter le numéro de mon fichier que je voudrais ouvrir puis ensuite à la fin fermer et ainsi de suite.

Pour l'instant mon code est celui ci :

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
Sub Macro2()
 
'
'
    Workbooks.OpenText Filename:= _
        "N:\test\HPL816_M108_L312.asc" _
        , Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
        TrailingMinusNumbers:=True
 
        Range("C:C").Select
        Selection.AutoFilter Field:=1, Criteria1:="=18FFF9EBx*"
        Range("A2:A185000").Select
        Selection.Copy
 
        Windows("Classeur1").Activate
        Cells(65535, 1).End(xlUp)(2).Select
 
        ActiveSheet.Paste
 
End Sub
Je vous remercie d'avance