enregistrer sous en xlsx

sonskriverez · 26 Septembre 2013

Bonjour le forum

Dans mon code j'utilise cela pour enregistrer sous :

ChDir "H:\Done"
ActiveWorkbook.SaveAs Filename:="H:\Done\" & NomFic, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

Hors mon fichier : NomFic est à l'origne en xls comment l'enregistrer en xlsx

merci de votre aide

phlaurent55 · 26 Septembre 2013

Re : enregistrer sous en xlsx

Bonjour,

à essayer:
ActiveWorkbook.SaveAs Filename:="H:\Done\" & NomFic & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

à+
Philippe

sonskriverez · 26 Septembre 2013

Re : enregistrer sous en xlsx

Bjr phlaurent55

J'ai essayé cela donne : toto.xls.xlsx

Pas top

phlaurent55 · 26 Septembre 2013

Re : enregistrer sous en xlsx

Re,

en raccourcissant le nom du fichier de 4 caractères pour que n'apparaisse plus .xls

ActiveWorkbook.SaveAs Filename:="H:\Done\" & Left(NomFic, Len(NomFic) - 4) & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

à+
Philippe

sonskriverez · 26 Septembre 2013

Re : enregistrer sous en xlsx

Super

Cela marche parfaitement, il fallait y penser

merci beaucoup

enregistrer sous en xlsx

sonskriverez

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

sonskriverez

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

sonskriverez

XLDnaute Occasionnel

Discussions similaires