Microsoft 365 convertir un fichier excel en csv

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

patrice3450

XLDnaute Nouveau
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
 
Trier par date Trier par votes
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,
 
Vote positif 0 Vote négatif
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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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,
Cliquez pour agrandir...
merci pour la réponse, je teste et adapte si besoin et si j't arrive à mon environnement et besoin
 
Vote positif 0 Vote négatif
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
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif
job75 à dit:
Bonjour patrice3450, le forum,

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

A+
Cliquez pour agrandir...
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

La Vouivre
  • Question Question
Microsoft 365 CSV en EXCEL
Réponses
1
Affichages
123
Staple1600
Staple1600
gsx-air
  • Résolu(e)
Microsoft 365 Traiter un fichier CSV qui est ouvert
2
Réponses
16
Affichages
544
gsx-air
gsx-air
A
  • Question Question
Autres Protégé un fichier csv par mot de passe
2
Réponses
16
Affichages
882
job75
job75
G
  • Question Question
Microsoft 365 Convertir CSV en tableau de nombres
Réponses
7
Affichages
427
sylvanu
sylvanu
D
  • Question Question
XL 2021 excel - vbs - csv
2
Réponses
28
Affichages
2 K
Deleted member 441486
D
A
  • Question Question
Microsoft 365 Convertir un fichier csv sans séparateur en xls
Réponses
1
Affichages
527
sylvanu
sylvanu
N
  • Question Question
XL 2021 sauvegarde en csv format ";"
Réponses
4
Affichages
685
patricktoulon
patricktoulon
cathodique
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
cathodique
L
  • Question Question
Autres Macro pour conevrtir des lignes excel en CSV
Réponses
3
Affichages
558
sylvanu
sylvanu
jeanmi
  • Résolu(e)
XL 2013 recherche de données sur plusieurs fichiers
Réponses
13
Affichages
713
dysorthographie
dysorthographie
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V2.0 + 2.01 - exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
2
Affichages
398
oguruma
oguruma
N
  • Question Question
Microsoft 365 Exporter en csv vers un sharepoint
Réponses
0
Affichages
546
Negalo
N
C
  • Question Question
Microsoft 365 Avoir un calendrier d'équipe du type Outlook, mais sur Excel pour bénéficier des champs de listes
Réponses
1
Affichages
612
ChTi160
ChTi160
M
  • Question Question
Power Query Convertir un fichier Contacts Gmail et fichier Excel
Réponses
13
Affichages
1 K
nat54
nat54
L
  • Résolu(e)
Microsoft 365 Décompte via plusieurs fichiers CSV
Réponses
12
Affichages
782
WTF
WTF
H
  • Résolu(e)
XL 2019 Récupération de résultats depuis un CSV vers un fichier Excel
Réponses
9
Affichages
994
Hutchy33
H
L
  • Question Question
Microsoft 365 Recherche dans fichier excel dans un répertoire
2 3 4
Réponses
50
Affichages
2 K
Loulou27
L
P
  • Question Question
Power Query Powerquery ouvrir un csv avec une adresse relative
Réponses
2
Affichages
887
Amilo
A
C
  • Question Question
Microsoft 365 ouvrir un fichier a partir d un folder
Réponses
4
Affichages
498
cg1980
C
M
  • Question Question
Microsoft 365 aide sur macro pour une asso
2
Réponses
23
Affichages
1 K
moupa
M
Retour