Discussion:
erreur fonction
(trop ancien pour répondre)
domicol
2020-06-03 15:40:15 UTC
Permalink
Bonjour,
cette fonction marche avec excel 2007
ActiveWorkbook.SaveAs Filename:=chemin_dossier & "" & nom_classeur

avec excel 2016 elle ne marche plus
quelqu'un peut il m'aider?
merci
MichD
2020-06-03 16:10:26 UTC
Permalink
Post by domicol
ActiveWorkbook.SaveAs Filename:=chemin_dossier & "" & nom_classeur
Bonjour,

Tu dois définir le format du fichier.


Dim X As XlFileFormat
Dim Y As XlFileFormat

'Si le fichier contient des macros .xlsm
X = xlOpenXMLWorkbookMacroEnabled

'Si le fichier est sans macro .xlsx
Y = xlXMLSpreadsheet

chemin_dossier = "E:\Excel\"
NomClasseur = "MonClasseur.xlsx"

Fichier ne contenant pas une macro
ActiveWorkbook.SaveAs Filename:=chemin_dossier & nom_classeur, FileFormat:=Y


à cette adresse, tu as toutes les possibilités pour définir le format du
fichier.
https://docs.microsoft.com/en-us/office/vba/api/excel.xlfileformat

MichD
domicol
2020-06-03 18:04:31 UTC
Permalink
Post by domicol
Bonjour,
cette fonction marche avec excel 2007
ActiveWorkbook.SaveAs Filename:=chemin_dossier & "" &
nom_classeur
avec excel 2016 elle ne marche plus
quelqu'un peut il m'aider?
merci
merci erreur corrigé

Loading...