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

Signaler
Messages postés
12
Date d'inscription
jeudi 13 mars 2008
Statut
Membre
Dernière intervention
19 août 2009
 -
 arianinou -
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

5 réponses

Réponse 1 / 5
Messages postés
12247
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
10 février 2021
 2 575
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
1
Merci
Merci

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

CCM 65492 internautes nous ont dit merci ce mois-ci

Réponse 2 / 5
Messages postés
12
Date d'inscription
jeudi 13 mars 2008
Statut
Membre
Dernière intervention
19 août 2009
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 :)
Réponse 3 / 5
Messages postés
12
Date d'inscription
jeudi 13 mars 2008
Statut
Membre
Dernière intervention
19 août 2009
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
Réponse 4 / 5

Salut,
Essaies ça
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypexlsx

bye et bon courage
Réponse 5 / 5

juste pour vous dire merci !!!!!!
ca me depanne bien !
Posez votre question