Enreg. sous "classeur Microsoft" fichier de type &

Bonjour à tous,

Je voudrais pouvoir "enregistrer sous ... " automatiquement tous les fichiers excel qui sont en type de fichier "page web" (environ une centaine) d'un répertoire, dans le format type de fichier "Classeur Microsoft Excel".

Je peux écraser les fichiers originaux ou bien faire "enregistrer sous" dans un nouveau répertoire.

Je n'ai pas le besoin de garder les fichiers originaux.

C'est une transformation que je dois effectuer plusieurs fois pas an.

J'ai bien, essayé une macro, mais ma macro conserve toujours le nom du fichier lors de la création de la macro... elle ne tiens pas en compte le nom du fichier ouvert.

Je ne connais pas beaucoup les macros Excel. J'utilise Excel 2000.

Merci beaucoup pour l'aide que vous pouvez m'apporter.

almar

En cherchant j'ai résolu mon problème en utilisant la variable ActiveWorkbook.Name

Sub Macro1()

'

' Macro1 Macro

' Macro enregistrée le 05/04/2008 par AL

'

' MsgBox ActiveWorkbook.Name

ChDir "C:\Users\alain\Desktop\Nouveau dossier"

ActiveWorkbook.SaveAs Filename:= _

"C:\Users\alain\Desktop\Nouveau dossier\xls\" & ActiveWorkbook.Name, FileFormat:= _

xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _

, CreateBackup:=False

ActiveWindow.Close

End Sub