Microsoft 365 convertir un fichier excel en csv

patrice3450 · 13 Octobre 2022

Bonjour,
je voudrais automatiser la création de plusieurs fichiers csv à partir de fichiers excel
un fichier excel aura plusieurs classeurs et donc créer un fichier csv de chacun des classeurs pour chaque fichier excel présent dans mon répertoire
merci pour votre aide

xUpsilon · 13 Octobre 2022

Bonjour,

Voir le code suivant à adapter à votre besoin, trouvé sur stackoverflow en deux clics.

Code:

Sub SaveWorksheetsAsCsv()

Dim WS As Excel.Worksheet
Dim SaveToDirectory As String

Dim CurrentWorkbook As String
Dim CurrentFormat As Long

CurrentWorkbook = ThisWorkbook.FullName
CurrentFormat = ThisWorkbook.FileFormat
' Store current details for the workbook
SaveToDirectory = "H:\test\"

For Each WS In Application.ActiveWorkbook.Worksheets
    WS.SaveAs SaveToDirectory & WS.Name, xlCSV
Next

Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat
Application.DisplayAlerts = True
' Temporarily turn alerts off to prevent the user being prompted
'  about overwriting the original file.

End Sub

Bonne journée,

job75 · 13 Octobre 2022

Bonjour patrice3450, bienvenue sur XLD, salut xUpsilon,

patrice3450 à dit:
un fichier excel aura plusieurs classeurs

J'avoue ne pas comprendre car pour moi un fichier Excel c'est un classeur.

Vous voulez peut-être parler de feuilles ?

A+

Compte Supprimé 979 · 13 Octobre 2022

Salut Gérard

De retour parmi nous... yes tu nous a manqué

J'espère que tu vas mieux (en Mp si tu souhaites)

job75 · 13 Octobre 2022

Bonjour Bruno,

J'ai passé plus d'un mois à l'hôpital et je me remets lentement, il faut être patient.

https://excel-downloads.com/threads/en-soutien-a-gerard-alias-job75.20070852/page-5#post-20539191

A+

patrice3450 · 13 Octobre 2022

job75 à dit:
Bonjour patrice3450, bienvenue sur XLD, salut xUpsilon,

J'avoue ne pas comprendre car pour moi un fichier Excel c'est un classeur.

Vous voulez peut-être parler de feuilles ?

A+

oui désolé je me suis mal exprimé je voulais dire plusieurs feuilles

job75 · 13 Octobre 2022

Téléchargez les fichiers joints dans le même dossier (le bureau), ouvrez le fichier Pilote.xlsm et exécutez la macro du bouton :

VB:

Sub Creer_CSV()
Dim chemin$, fichier$, n&, w As Worksheet, nf&
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin) '1er fichier du dossier
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si un fichier est déjà créé
On Error Resume Next
While fichier <> ""
    If fichier <> ThisWorkbook.Name And (Right(fichier, 5) = ".xlsx" Or Right(fichier, 5) = ".xlsm") Then
        Workbooks(fichier).Close False 'si le fichier est ouvert on le ferme
        With Workbooks.Open(chemin & fichier) 'ouverture du fichier
            n = n + 1
            For Each w In .Worksheets
                nf = nf + 1
                w.Select
                .SaveAs chemin & fichier & "-" & w.Name & ".csv", xlCSV
            Next
            .Close False 'fermeture
        End With
    End If
    fichier = Dir 'fichier suivant
Wend
MsgBox n & " fichier(s) Excel traité(s), " & nf & " fichier(s) CSV créé(s)"
End Sub

patrice3450 · 14 Octobre 2022

xUpsilon à dit:

Bonjour,

Voir le code suivant à adapter à votre besoin, trouvé sur stackoverflow en deux clics.

Code:

Sub SaveWorksheetsAsCsv()

Dim WS As Excel.Worksheet
Dim SaveToDirectory As String

Dim CurrentWorkbook As String
Dim CurrentFormat As Long

CurrentWorkbook = ThisWorkbook.FullName
CurrentFormat = ThisWorkbook.FileFormat
' Store current details for the workbook
SaveToDirectory = "H:\test\"

For Each WS In Application.ActiveWorkbook.Worksheets
    WS.SaveAs SaveToDirectory & WS.Name, xlCSV
Next

Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat
Application.DisplayAlerts = True
' Temporarily turn alerts off to prevent the user being prompted
'  about overwriting the original file.

End Sub

Bonne journée,

merci pour la réponse, je teste et adapte si besoin et si j't arrive à mon environnement et besoin

patrice3450 · 14 Octobre 2022

job75 à dit:

Téléchargez les fichiers joints dans le même dossier (le bureau), ouvrez le fichier Pilote.xlsm et exécutez la macro du bouton :

VB:

Sub Creer_CSV()
Dim chemin$, fichier$, n&, w As Worksheet, nf&
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin) '1er fichier du dossier
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si un fichier est déjà créé
On Error Resume Next
While fichier <> ""
    If fichier <> ThisWorkbook.Name And (Right(fichier, 5) = ".xlsx" Or Right(fichier, 5) = ".xlsm") Then
        Workbooks(fichier).Close False 'si le fichier est ouvert on le ferme
        With Workbooks.Open(chemin & fichier) 'ouverture du fichier
            n = n + 1
            For Each w In .Worksheets
                nf = nf + 1
                w.Select
                .SaveAs chemin & fichier & "-" & w.Name & ".csv", xlCSV
            Next
            .Close False 'fermeture
        End With
    End If
    fichier = Dir 'fichier suivant
Wend
MsgBox n & " fichier(s) Excel traité(s), " & nf & " fichier(s) CSV créé(s)"
End Sub

merci cela fonctionne, j'ai adapté le résultat sans le nom du fichier devant mais il me reste à tester l'imput du fichier csv dans une base de donnée

job75 · 14 Octobre 2022

Bonjour patrice3450, le forum,

patrice3450 à dit:
j'ai adapté le résultat sans le nom du fichier devant

Alors comment faites-vous si les noms des feuilles sont les mêmes ???

A+

patrice3450 · 14 Octobre 2022

job75 à dit:
Bonjour patrice3450, le forum,

Alors comment faites-vous si les noms des feuilles sont les mêmes ???

A+

j'ai conçu mes différents classeurs excel avec des noms de feuilles différents car se sont des virus ou bactéries différentes
en fait j'ai plusieurs choses à faire :
je récupère des fichiers excel dans lesquels il y a plusieurs feuilles (pas le même nombre)
chaque feuille de chaque fichier est un tableau dont je dois retirer la première ligne et chaque feuille de chaque fichier doit être enregistré en csv
j'arrive a peu prêt à faire chaque étape manuellement, ou avec des macros, le fichier csv le plus satisfaisant que je fais est avec kutools+ (diviser le classeur)
je voudrais faire tout cela avec le moins de manipulation possible en lançant un bouton ou plusieurs si pas possible avec un sur un répertoire ou je mettrais tous mes fichiers excel à traiter

job75 · 14 Octobre 2022

Si l'extension de tous les fichiers sources est ".xlsx" :

VB:

Sub Creer_CSV()
Dim chemin$, fichier$, n&, w As Worksheet, nf&
chemin = ThisWorkbook.Path & "\"
fichier = Dir(chemin & "*.xlsx") '1er fichier du dossier
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si un fichier est déjà créé
While fichier <> ""
    On Error Resume Next
    Workbooks(fichier).Close False 'si le fichier est ouvert on le ferme
    On Error GoTo 0
    With Workbooks.Open(chemin & fichier) 'ouverture du fichier
        n = n + 1
        For Each w In .Worksheets
            nf = nf + 1
            w.Select
            w.UsedRange.Rows(1).Delete 'supprime la 1ère ligne
            .SaveAs chemin & w.Name & ".csv", xlCSV
        Next
        .Close False 'fermeture
    End With
    fichier = Dir 'fichier suivant
Wend
MsgBox n & " fichier(s) Excel traité(s), " & nf & " fichier(s) CSV créé(s)"
End Sub

patrice3450 · 14 Octobre 2022

merci,
ton code fonctionne et oui tous les fichiers auront le format xls
mais peut-on utiliser la commande de kutools : "diviser le classeur" qui fait des plus "jolis" fichiers csv que le saveas de base ?

job75 · 14 Octobre 2022

Les fichiers CSV ne contiennent que des données, ils sont tous aussi "jolis" les uns que les autres.

patrice3450 · 14 Octobre 2022

job75 à dit:
Les fichiers CSV ne contiennent que des données, ils sont tous aussi "jolis" les uns que les autres.

oui je suis d'accord ,mais postgresql n'aime pas du tout les virgules que mets dans certain fichier csv en dernière ligne et du coup il arrête l'import dans ma base

Microsoft 365 convertir un fichier excel en csv

patrice3450

XLDnaute Nouveau

xUpsilon

XLDnaute Accro

job75

XLDnaute Barbatruc

Compte Supprimé 979

Guest

job75

XLDnaute Barbatruc

patrice3450

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

patrice3450

XLDnaute Nouveau

patrice3450

XLDnaute Nouveau

job75

XLDnaute Barbatruc

patrice3450

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

patrice3450

XLDnaute Nouveau

job75

XLDnaute Barbatruc

patrice3450

XLDnaute Nouveau

Discussions similaires