imposer le fichier d'extension quand on enregistre sous à partir de VBARésolu

Question

Bonjour, pour sauvegarder une feuille excel, j'utilise le code:

fName = application.GetSaveAsFilename
ActiveWoorkbook.SaveAs Filename : = fName + ".xls"

Mon dernier terme est la seul solution que j'ai trouv&#233; pour imposer l'extension du fichier, mais si on ne tape pas le nom (on le s&#233;lectionne dans la fen&#234;tre Parcourir), le fichier devient fName.xls.xls

Si vous avez une meilleure solution (ce qui ne doit pas &#234;tre tr&#232;s dur vu que j'ai fais &#231;a &#224; l'arrache), merci de me laisser un bout de code.

@+

FFkiller · Accepted Answer

Salut,



s'cuse j'ai recopi&#233; en fonction de ma macro qui va chercher le nom fichier dans une cellule du document



essaye &#231;a :



ActiveWorkbook.saveas Filename:="ton chemin d'acc&#233;s\lenomdetonfichier", FileFormat:= _

               
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _

                , CreateBackup:=False




FFkiller





PS : Pensez que si une r&#233;ponse vous convient &#224; le signaler ("R&#233;ponse accept&#233;e") afin que d'autres utilisateurs le sache

FFkiller · Answer

Salut,



ActiveWorkbook.saveas Filename:="ton chemin d'acc&#233;s" & lenomdetonfichier, FileFormat:= _

               
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _

                , CreateBackup:=False

  

@+





FFkiller





PS : Pensez que si une r&#233;ponse vous convient &#224; le signaler ("R&#233;ponse accept&#233;e") afin que d'autres utilisateurs le sache

joule93 · Answer

Non, cela ne marche pas: si je tape seulement le nom de mon fichier apr&#232;s avoir fais ces modifications, mon fichier est enregistr&#233; en type inconnu (je peu quand m&#234;me l'ouvrir avec un double clic, mais l'icone est celle d'un fichier inconnu).

Merci quand m&#234;me.

valtrase · Answer

Salut,
Par d&#233;faut excel enregistre sous .xls
Si tu fais:
ActiveWoorkbook.SaveAs Filename : = fName + ".xls"
Tu rajoutes un .xls &#224; ton nom de fichier, donc un simple 
ActiveWoorkbook.SaveAs Filename : = fName Suffit, maintenant il va te demmander si tu veux &#233;craser le fichier !!

Si tu veux garder que le nom de fichier tu fais par exemple:
Fname = Left(Fname, Len(Fname) - (InStrRev(Fname, ".")))
ActiveWoorkbook.SaveAs Filename : = fName & "_Save.xls"

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

joule93 · Answer

Merci &#224; tout les deux.

Imposer le fichier d'extension quand on enregistre sous à partir de VBA

5 réponses

Discussions similaires