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
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
Le mercredi 03 Juin 2020 à 17:40 par 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é
Le mercredi 03 Juin 2020 à 17:40 par 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é
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
