[VB Excel] Enregistrement fichier Excel
Résolu
kimclem
Messages postés
13
Statut
Membre
-
arianinou -
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
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:
- [VB Excel] Enregistrement fichier Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Fichier bin - Guide
- Déplacer colonne excel - Guide
- Fichier epub - Guide
5 réponses
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
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
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 :)
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 :)
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question