Bonjour, je suis novice en macro sous Excel. Je doit automatiser une ouverture de fichier avec une macro réalisé sous Excel.
Je m'explique, je dispose de 30 fichier nommé "Truc00", jusqu'à "Truc29", je doit automatiser l'ouverture de ces fichiers en réalisant des opérations sur chacun des fichiers. Voici le code que j'ai tappé :
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
 
Sub Macro1()
 
For i = 0 To 3
 
Directory = "D"
NomFichier = "DATA"
Extension = ".CSV"
 
 
NomFichierTexte = Directory & File_name & "0" & Trim(Str(i)) & Extension
 
Directory = "D"
 
 
NomFichierTexte = Application.GetOpenFilename("*Fichiers Visual Basic (*.s1),*.s1*")
 
 
ChDir "d:\Documents and Settings\t0106841\Mes documents\doc CPF\boite antenne 2008\Matrice [S]\P4F15\bande HF\Fouet 5m  S2P\paramétre"
Workbooks.OpenText Filename:= _
    NomFichierTexte, Origin:=xlWindows _
    , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=True, Comma:=True, _
    Space:=True, Other:=False, OtherChar:="!", FieldInfo:=Array(Array(1, 1), _
    Array(2, 1), Array(3, 1), Array(4, 1))
 
 
NomFichierTexteCSV = Left(NomFichierTexte, Len(NomFichierTexte) - 3) & ".csv"
 
 
ActiveWorkbook.SaveAs Filename:= _
    NomFichierTexteCSV, FileFormat:=xlCSV, _
    CreateBackup:=False
 
Next i
 
ActiveWindow.Close
 
 
End Sub
Voilà merci pour votre aide