enregistrement d'un classeur sous format .xls

[Pascal]

Salut,

J'aurais aimé savoir, si c'était possible, comment faire pour que, lors de l'enregistrement d'un classeur, il mette automatiquement l'extension ".xls" à la fin. Pour l'instant, il enregistre le classeur sans extension.

Voici comment Excel enregistre pour l'instant:

fName = Application.GetSaveAsFilename
NvClasseur.SaveAs FileName:=fName

Je travaille sous Excel97 SR-2.

Merci beaucoup de votre aide.

 

[Pascal]

Pardon, j'ai oublié de préciser que j'ai essayé de rajouter une extension "XlNormal" comme ceci mais sans succes:

fName = Application.GetSaveAsFilename
NvClasseur.SaveAs FileName:=fName, FileFormat:=xlExcel5

Je n'arrive toujours pas à avoir une extension ".xls" automatique.

 

[STéphane]

Set NvClasseur = ActiveWorkbook
fName = Application.GetSaveAsFilename
NvClasseur.SaveAs FileName:=fName & ".xls", FileFormat:=xlExcel5

 

[Pascal]

Ouais ouais...Ca marche...J'arrive pas à croire que c'était si facile 🙂

Merci beaucoup Stephane