Convertir en masse des fichiers excel .xls en .csv

[Malka]

Bonjour à tous,

Je suis tres embetée pour mon travail car je dois convertir plusieurs fichiers excel (.xls) en .csv (j'en ai 25000 !) et je ne me vois pas faire ca à la main car j'en aurai pour des jours. Les fichiers excel sont tous stockés dans un dossier particulier.
Est ce que quelqu'un aurait svp une solution en macro pour me donner un coup de main.
Merci

Malka

 

[Malka]

Re : Convertir en masse des fichiers excel .xls en .csv

Up ! svp
Personne peut m'aider ?

Merci

Malka

 

[flyonets44]

Re : Convertir en masse des fichiers excel .xls en .csv

Bonjour
ci-joint un fichier mis sur le forum et qui pourrait te convenir
Cordialement
flyonets

 

[Malka]

Re : Convertir en masse des fichiers excel .xls en .csv

Bonjour flyonets44,

Merci d'avoir répondu. Ton code marche parfaitement.
Merci beaucoup

Malka

 

[Patrick F]

Re : Convertir en masse des fichiers excel .xls en .csv

Bonjour
ci-joint un fichier mis sur le forum et qui pourrait te convenir
Cordialement
flyonets

Bonjour à tous. Merci beaucoup pour ce script . Comment puis-je le modifier pour qu'il puisse utiliser le format UTF-8 pour les fichiers csv générés au lieu de ANSI ? Merci d'avance

 

[Bernard_XLD]

Bonjour Patrick F, le forum

remplacez la commande

'test
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, ".xls", ".csv"), FileFormat:= _
xlCSV, CreateBackup:=False, Local:=True

par

'test
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, ".xls", ".csv"), FileFormat:= _
xlCSVUTF8, CreateBackup:=False, Local:=False

Cordialement, @+

 

[Patrick F]

Bonjour Patrick F, le forum

remplacez la commande

'test
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, ".xls", ".csv"), FileFormat:= _
xlCSV, CreateBackup:=False, Local:=True

par

'test
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, ".xls", ".csv"), FileFormat:= _
xlCSVUTF8, CreateBackup:=False, Local:=False

Cordialement, @+

Bonjour Bernard_XLD. Merci pour votre réponse express ! J'ai testé le changement (en remplaçant également .xls par .xlsx pour générer des fichiers .csv et pas .csvx et cela fait bien le job . Sans abuser, est-il possible que pour un classeur Excel de 2 feuilles, cela soit la 2ème feuille et pas la première (feuille d'entête) qui soit sauvegardée au nouveau format ? Cordialement. Patrick

 

[Bernard_XLD]

Re,

Bon, finalement, j'ai refait une version en Xlsm, testée, avec le choix ANSI/UTF8, le choix de traiter les sous dossiers ou non, une limitation de traitement aux fichiers excel, la gestion directe de toutes les extensions xls (xls, xlsx, xlsm, xlsb), une gestion d'erreur prévenant l'utilisateur si un des fichiers n'est pas convertible en CSV du type demandé et l'export de la deuxième feuille si elle existe.

Cordialement, @+

 

[Patrick F]

Cela fonctionne très bien, bravo et merci