Renommer extension fichier en .xls

Bonjour à tous,

Je voudrais renommer grâce à un code un fichier sans extension en .xls : ce fichier ne porte jamais le même nom et n'a jamais d'extension, il se trouvera toujours dans le même dossier.

Je voudrais qu'en ouvrant le fichier excel, la macro s’exécute, (je suppose avec un autosub) et qu'il enregistre automatiquement le fichier avec le même nom mais avec l'extension .xls

Je ne sais pas si je suis clair, mais là je suis dépassé par le code...

Merci d'avance de votre aide.

Bien à vous

bonjour,

voici un exemple, qui renomme le premier fichier sans extension trouvé dans le répertoire Ch

Sub aargh()
    Ch = "i:" ' à adapter
    f = Dir(Ch & "\*.")
    If f <> "" Then Name Ch & "\" & f As Ch & "\" & f & ".xls"
End Sub
Rechercher des sujets similaires à "renommer extension fichier xls"