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

Messages postés
12
Date d'inscription
jeudi 13 mars 2008
Statut
Membre
Dernière intervention
19 août 2009
- - Dernière réponse :  arianinou - 18 juil. 2014 à 16:41
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
Afficher la suite 

5 réponses

Meilleure réponse
Messages postés
12253
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
19 juillet 2019
2228
1
Merci
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

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 69655 internautes nous ont dit merci ce mois-ci

Messages postés
12
Date d'inscription
jeudi 13 mars 2008
Statut
Membre
Dernière intervention
19 août 2009
0
Merci
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 :)
Messages postés
12
Date d'inscription
jeudi 13 mars 2008
Statut
Membre
Dernière intervention
19 août 2009
0
Merci
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
0
Merci
Salut,
Essaies ça
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypexlsx

bye et bon courage
0
Merci
juste pour vous dire merci !!!!!!
ca me depanne bien !