Discussion :

[hichemnho]

Bonjour,

Ce que j'esseye de faire c'est créer un macro qui remplace tout les caractère ";" par des caracteres "," dans tout les fichiers d'un repertoire nommé "Dossier".
Le remplacement fonctionne mais ce que je veux c'est qu'il se passe au sein meme du fichier, que le modifications soit sauvegardées mais sans creation d'un fichier du meme nom mais avec une extension "xls" au lieu de "csv"comme écrit dans la macro ci-dessous.

Mais malgré avoir tout esseyé je n'arrive pas à le faire.
Voici la Macro:

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
 
Sub Macro3()
Dim FolderName As String, FName As String
Dim Wbk As Workbook
 
 
Application.ScreenUpdating = False
FolderName = "C:\Users\SONY\Desktop\Dossier\"              'le remplacement de tout les ";" par les "," se fait au niveau de chaque fichier du repertoire nommé Dossier
 
FName = Dir(FolderName & "*.csv")
Do While Len(FName)
    Set Wbk = Workbooks.Open(FolderName & FName)
    With Wbk
        With .Worksheets(1)
 
        Cells.Replace What:=";", Replacement:=",", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False  'remplacer tout ";" par ",
 
        End With
 
        Application.DisplayAlerts = False
        .SaveAs Replace(.FullName, ".csv", ".xls"), xlWorkbookNormal
        Application.DisplayAlerts = True
 
        .Close False
    End With
    Set Wbk = Nothing
    FName = Dir
Loop
End Sub

J'éspère que vous pourrez m'aider.
Je vous remercie infiniment pour le temps et l'attention accordés à ce message.

[Daniel.C]

Bonjour,

Essaie :

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
Sub Macro3()
Dim FolderName As String, FName As String
Dim Wbk As Workbook
 
 
Application.ScreenUpdating = False
FolderName = "C:\Users\SONY\Desktop\Dossier\"              'le remplacement de tout les ";" par les "," se fait au niveau de chaque fichier du repertoire nommé Dossier
FName = Dir(FolderName & "*.csv")
Do While Len(FName)
    Set Wbk = Workbooks.Open(FolderName & FName)
    With Wbk
        With .Worksheets(1)
 
        .Cells.Replace What:=";", Replacement:=",", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False  'remplacer tout ";" par ",
 
        End With
 
        Application.DisplayAlerts = False
        .Save
        Application.DisplayAlerts = True
 
        .Close False
    End With
    Set Wbk = Nothing
    FName = Dir
Loop
End Sub

[hichemnho]

Ca fonctionne !

Je te remercie infiniment Daniel.C. Merci énormement pour le temps, l'attention et l'energie que tu as accordé à ce problème.