Sujet Précédent Sujet Suivant

[VB Excel] Enregistrement fichier Excel

Résolu/Fermé
kimclem Messages postés 12 Date d'inscription jeudi 13 mars 2008 Statut Membre Dernière intervention 19 août 2009 - 5 août 2009 à 11:14
 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
A voir également:

5 réponses

Réponse 1 / 5
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
5 août 2009 à 11:49
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
Réponse 2 / 5
kimclem Messages postés 12 Date d'inscription jeudi 13 mars 2008 Statut Membre Dernière intervention 19 août 2009
5 août 2009 à 11:55
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 :)
0
Réponse 3 / 5
kimclem Messages postés 12 Date d'inscription jeudi 13 mars 2008 Statut Membre Dernière intervention 19 août 2009
5 août 2009 à 13:04
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
Réponse 4 / 5
bob1877
16 janv. 2011 à 20:09
Salut,
Essaies ça
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypexlsx

bye et bon courage
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
arianinou
18 juil. 2014 à 16:41
juste pour vous dire merci !!!!!!
ca me depanne bien !
0