Discussion :

[greg80]

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

[jfontaine]

Bonsoir,


Une astuce, ce code permet de boucler sur chaque fichier d'un repertoire

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
 
Dim Fso As Object
Dim FsoRepertoire As Object
Dim FsoFichier As Object
 
Dim strRepertoire As String
 
strRepertoire = ThisWorkbook.Path & "\Fichiers"
 
Vide_Importation
 
 
Set Fso = CreateObject("Scripting.FileSystemObject")
Set FsoRepertoire = Fso.GetFolder(ThisWorkbook.Path)
 
'Boucle sur les fichiers du repertoire
 
For Each FsoFichier In FsoRepertoire.Files
 
      'Ouverture du fichier et actions
 
Next

Bon courage

[greg80]

Bonjour, je n'ais réussi à mettre en place l'astuce que tu m'as donné, cependant, j'ai réussi à mettre autre chose en place :

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
 
Sub Macro1()
 
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*", MultiSelect:=True)
 
counter = 1
 
While counter <= UBound(NomFichierTexte)
 
Workbooks.Open Filename:=NomFichierTexte(counter), 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
 
counter = counter + 1
Wend
 
ActiveWindow.Close
 
 End Sub

Seulement lorsque je l'execute, il me dit que "StartRow" est un argument nommé introuvable.
Quelqu'un aurait-il une solution?
Merci

[gameur44]

Bonjour,

J'ai lu cette discussion.

Bonsoir,


Une astuce, ce code permet de boucler sur chaque fichier d'un repertoire

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
 
Dim Fso As Object
Dim FsoRepertoire As Object
Dim FsoFichier As Object
 
Dim strRepertoire As String
 
strRepertoire = ThisWorkbook.Path & "\Fichiers"
 
Vide_Importation
 
 
Set Fso = CreateObject("Scripting.FileSystemObject")
Set FsoRepertoire = Fso.GetFolder(ThisWorkbook.Path)
 
'Boucle sur les fichiers du repertoire
 
For Each FsoFichier In FsoRepertoire.Files
 
      'Ouverture du fichier et actions
 
Next

Bon courage

Et comment effectuer l'ouverture de fichier ? dans le champ "Filename" ci-dessous on est censé mettre directement l'objet FsoFichier ?

Code :

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

1
2
3
4
5
6
7
ChDir "D:\mon_chemin\Desktop"
    Workbooks.OpenText Filename:= _
        "que mettre ici ?", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
        Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True

[kiki29]

Salut, pas testé le code, mais à priori FsoFichier devrait être suffisant, en imbriquant les 2 codes, même si on risque qqs surprises.

[gameur44]

sinon quelle est l'utilité de la ligne 10 ?

Code :

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

Vide_Importation

[tamtam64]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub testy()
 
 
    Dim managefile As New Scripting.FileSystemObject
    Dim fichier As File
    'on parcours ton dissier
     application.displayAlerts = false
    For Each fichier In managefile.getfolder("E:\test").Files
    Application.Workbooks.Open (fichier.Path)
    Next
    application.displayAlerts= true
End Sub