enregistrer sous en xlsx

[sonskriverez]

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]

Re : enregistrer sous en xlsx

Bonjour,

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

à+
Philippe

 

[sonskriverez]

Re : enregistrer sous en xlsx

Bjr phlaurent55

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

Pas top

 

[phlaurent55]

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]

Re : enregistrer sous en xlsx

Super

Cela marche parfaitement, il fallait y penser

merci beaucoup