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