Je perds l' extention de fichier Excel

Résolu/Fermé
Messages postés
591
Date d'inscription
mardi 5 août 2008
Statut
Membre
Dernière intervention
7 novembre 2021
-
Messages postés
6285
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
-
Bonjour,

J'urilise le code suivant pour enregistrer un classeur excel :

ActiveWorkbook.SaveAs (chemin & "\" & nomfic & " " & Format(Date, "yyyy")), FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Mon problème est que j'enregistre bien mon classeur mais sans extention ".xls" .
Quelqu'un peut-il m'aider?
Je précise que je suis avec office 2003.
D'avance merci.
Mistral

2 réponses

Messages postés
6285
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 390
Essaye

ActiveWorkbook.SaveAs (chemin & "\" & nomfic & " " & Format(Date, "yyyy") & ".xls"), FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False--
Ce qui se conçoit bien s'énonce clairement
Messages postés
591
Date d'inscription
mardi 5 août 2008
Statut
Membre
Dernière intervention
7 novembre 2021
4
Re,

Un grand merci à toi, ça marche!

Mais je dois reconnaître que je ne comprends pas bien pourquoi, car j'ai déjà utilisé cette macro dans d'autres classeurs et je n'ai jamais eu de problèmes.

Encore un des mystere de l'informatique ou de son environnement?
En tout cas merci pour ton aide.
Cordialement.
Mistral
Messages postés
6285
Date d'inscription
lundi 28 janvier 2008
Statut
Membre
Dernière intervention
29 avril 2020
1 390
Je ne sais pas non plus. J'ai juste rajouté le ".xls" perdu en route dans ta macro :)