[VB Excel] Enregistrement fichier Excel Résolu/Fermé

Question

Bonjour bonjour, 
j'ai un petit souci, je souhaiterai enregistrer des fichiers .xls en .xlsx via une macro.
Le petit souci c'est que même si je mets l'enregistrement par défaut sur xlsx dans les options, il garde l'extension xls.
j'ai tenter de mettre la ligne Application.DefaultSaveFormat = ".xlsx" ou  Application.DefaultSaveFormat = "xlsx"
et l'erreur incompatibilité de type (évidemment) apparait.
j'ai aussi essayer le fileformat

Dim Document_en_cours As String
Document_en_cours = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:=fichier, _
        FileFormat:=xlExcel12, CreateBackup:=False

Par avance merci pour l'aide fourni sur cette si petite chose qui m'empoisonne :D

Clément

pijaku · Answer

Salut,
Je ne suis pas anglophone mais tu peux peut être trouver ta solution ici
Je crois avoir compris, mais c'est loin d'être sur!!!, que tu dois remplacer :
ActiveWorkbook.SaveAs Filename:=fichier, _
FileFormat:=xlExcel12, CreateBackup:=False 
par :
ActiveWorkbook.SaveAs Filename:=fichier, _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

kimclem · Answer

Merci d'avoir répondu par contre désolé d'avoir oublier de préciser mais j'avais déja essayer cette valeur
je regarde la solution que tu m'as proposé sur mon autre probleme.
Je ne comprends pas tout mais me renseigne , pour ne pas poser trop de questions stupides :)

kimclem · Answer

bon bah j'ai trouver comment faire, c'était tout bête.
Il faut faire une concaténation juste avant de sauvegarder.

Dim nom_fichier As String
nom_fichier = ActiveWorkbook.Name

nom_fichier = nom_fichier & "x"

    ActiveWorkbook.SaveAs Filename:=nom_fichier, FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False

je ne pensais pas qu'avec cette méthode il passerait en xlsx avec toutes les propriétés mais il semble qu'effectivement cela converti aussi le fichier

Merci a ceux qui m'ont aidé

Clément

bob1877 · Answer

Salut, 
Essaies ça
     ActiveWorkbook.ExportAsFixedFormat Type:=xlTypexlsx

bye et bon courage

arianinou · Answer

juste pour vous dire merci !!!!!!
ca me depanne bien !