XL 2016 Convertir des fichiers .xlsm en fichiers .csv

[Olivier1248]

J'ai un certain nombre de fichiers .xlsm qui contiennent chacun plusieurs feuilees. Je souhaiterai une fonction unique qui me permette de transformer toutes ces feuilles Excle en autant de fichiers .csv

 

[Staple1600]

Bonjour le fil, Olivier1248

Tu as d'abord un certain nombre de Bonjour dans 1er message de ce fil 😉
Il s'écrit avec z : zéro
(cf le point 3 de la charte du forum 🙄)

Quand à ta question, il y a déjà tout ce qu'il faut en magasin dans les archives du forum
Voici la clé 😉

Effectuez une recherche sur Excel Downloads...

www.excel-downloads.com

 

[Staple1600]

Re

Donc issu des archives (tout à fait part hasard 😉)
Ceci pourrait déjà te mettre sur la piste

EDITION: En tout cas, moi cela m'a rafraîchi la mémoire et m'a permis de pondre le code VBA dans le message suivant 😉

 

[Staple1600]

Re

Ce qui au final, pourrait donner quelque chose de ce genre

Sub Classeur_vers_CSV()
Dim ws As Worksheet, CSVFic$
  For Each ws In Worksheets
    ws.Copy
    CSVFic = CurDir & "\" & ws.Name & ".csv"
    With ActiveWorkbook
      .SaveAs Filename:=CSVFic, FileFormat:=xlCSV, Local:=True
      .Close False
  End With
  Next
End Sub

PS: test OK sur mon PC
(merci le confinement 😉)

 

[Olivier1248]

Merci

 

[Staple1600]

Re

De rien
It's my pleasure 😉

(Et comme je suis cloué ici, quoi faire d'autre que du VBA ?
Ah si !
J'ai!
M'abrutir devant la TV