Discussion :

[ash_rmy]

Bonjour,

J'ai un répertoire rempli de fichier Excel (un seul onglet) et je dois les transformer en .Csv dans un autre répertoire. Voici mon code ci-dessous, qu'est ce qui clocle ?

merci de votre aide.

ash_rmy.

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
Sub CREATION()
Dim Fichier As String, Repertoire As String
Dim Wb As Workbook
 
Repertoire = "G:\REP02"
Fichier = Dir(Repertoire & "\*.xls")
 
Do While Len(Fichier) > 0
    Set Wb = Workbooks.Open(Repertoire & "\" & Fichier)
    ActiveWorkbook.SaveAs Filename:="G:\NEWREP02" nom_fic _
        , FileFormat:=xlCSV, CreateBackup:=False
    Wb.Close False
    Fichier = Dir()
Loop
End Sub

[aalex_38]

Bonjour,

Je n'ai pas tout regardé mais déja il devrait y avoir un "&" entre le chemin et le nom :

Code :

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

Filename:="G:\NEWREP02" & application.PathSeparator & nom_fic

[ash_rmy]

merci pour la réponse aalex_38.

j'ai essayé avec application.PathSeparator mais ça ne marche pas encore.

Là, je boucle sur les fichiers Xls présents dans un répertoire mais je ne sais pas comment lui spécifier le nom de fichier.

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
Sub CREATION_CSV()
Dim Fichier As String, Repertoire As String
Dim Wb As Workbook
 
Repertoire = "G:\REP02"
Fichier = Dir(Repertoire & "\*.xls")
 
Do While Len(Fichier) > 0
    Set Wb = Workbooks.Open(Repertoire & "\" & Fichier)
    ActiveWorkbook.SaveAs Filename:="G:\REP02" & application.PathSeparator & Fichier &".csv", _
, FileFormat:=xlCSV, CreateBackup:=False
    Wb.Close False
    Fichier = Dir()
Loop
End Sub

merci.

[aalex_38]

Bonjour,

Super la liste des fichiers fonctionne.

Utilise une variable string pour ton filename et regardes ce que tu as dedans.

Il faut extraire le nom du fichier car tu as .xls dans le nom.

[ash_rmy]

ok. mais comment faire pour visualiser ce que j'ai dans le filename. Y a pas une log ?

merci.

ash_rmy.

[aalex_38]

J'ai modifié le code comme suit et j'espère que ça correspond à ton attente :

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
Sub CREATION_CSV()
 
Dim Fichier As String, Repertoire As String, MonFilename As String
Dim Wb As Workbook
 
Repertoire = "G:\REP02"
 & Application.PathSeparator
 Fichier = Dir(Repertoire & "\*.xls")
 
Do While Len(Fichier) > 0
 
     MonFilename = Mid(Fichier, 1, InStrRev(Fichier, ".", -1, vbTextCompare) - 1)
     MonFilename = Repertoire & MonFilename
    Set Wb = Workbooks.Open(Repertoire & "\" & Fichier)
    ActiveWorkbook.SaveAs MonFilename, FileFormat:=xlCSV, CreateBackup:=False
     Wb.Close False
 
     Fichier = Dir()
 
Loop
 
End Sub

ok. mais comment faire pour visualiser ce que j'ai dans le filename. Y a pas une log ?

En passant par une variable, comme dans l'exemple avec MonFileName, c'est pratique car tu peux soit :
- Ajouter un espion et controler sa valeur dans la fenêtre espion
- Voir sa valeur avec l'espion express, juste en passant dessus avec la souris
- Ecrire dans le debuguer avec le code

Code :

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

DEBUG.PRINT "Mavariable : " & MonFilename

- Afficher directement la variable dans un MSGBOX