Bonjour à toutes et tous,
En parcourant ce forum j'ai repris différents codes pour écrire et adapter la procédure ci après qui fonctionne comme je le souhaite.
Cette procédure sauvegarde tous les fichiers excel ouverts (au départ des csv) avec leur nom initial en changeant leur format en xlsb et les referme; à l'exception du classeur me servant à lancer la macro.
Tous les fichiers sont ouverts à partir du même répertoire.
Néanmoins si ma procédure modifie bien le format de fichier, je n'arrive par contre pas (j'ai essayé sans succés avec name as) à changer l'extension, mes fichier restent avec l'extension .csv alors que je voudrais .xlsb. (et du coup le csv original même s'il garde l'extension csv est converti en xlsb).
Ainsi je voudrais par exemple A.cvs original qui devienne nouveau A.xlsb.
Ainsi j'aurais en fin de traitement dans mon répertoire à la fois le csv original et le nouveau xlsb.
J'espère être assez clair pour que vous puissiez m'aider à résoudre mon problème
Merci
Cordialement
Hugues
Sub Sauvegarde()
Dim Wbk As Workbook
For Each Wbk In Workbooks
If Wbk.Name <> ThisWorkbook.Name Then
Wbk.SaveAs Wbk.Name, FileFormat:=xlExcel12, CreateBackup:=False
Wbk.Close
End If
Next Wbk
End Sub