VBA enregistrer le fichier d'xlsm en xlsx

Version imprimable

Bonsoir,

Je n'arrive pas à trouver mon erreur dans la macro syntaxe ( en bleu) suivante.
Je souhaite en effet enregistrer mon fichier xlsm dans le meme répertoire en XLSX mais que cela reste dynamique c'est à dire que le chemin du répertoire soit automatisé et que le nom du classeur excel à sauvegarder en xlsx soit repris automatiquement. J'en ai 60 à enregistrer d'xlsm à xlsx.
Merci par avance pour votre aide,
Anna
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub XLSXSave() Application.DisplayAlerts = False Dim Fichier As String Fichier = ThisWorkbook.FullName With ActiveWorkbook .SaveAs FileName:=ThisWorkbook.Path & "\" & Fichier, FileFormat:=xlOpenXMLWorkbook End With Dim wb As Workbook For Each wb In Workbooks 'boucle sur tous les classeurs ouverts wb.Close True 'fermeture du classeur avec sauvegarde Next ActiveWorkbook.Close Application.Quit Application.DisplayAlerts = True End Sub

22/11/2013, 22h40
mercatog

Dans Fichier, tu as le chemin complet de ton classeur que tu lui ajoute un chemin.

Sinon, si tu vas ouvrir tes fichiers xlsm et les réenregistrer en xlsx, on peut améliorer le code
22/11/2013, 22h46
Anna_2013

Bonsoir,
Je n'ai pas compris la modification à effectuer.
Etant débutant sur Vba pourriez vous svp m'aider à le modifier?
Merci pr votre aide

Essaies ton code comme ceci. Qu'est ce que tu obtiens dans les 2 msgbox?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub XLSXSave()
Dim Wb As Workbook
Dim Fichier As String
 
Application.DisplayAlerts = False
Fichier = ThisWorkbook.FullName
MsgBox Fichier
With ActiveWorkbook
    MsgBox ThisWorkbook.Path & "\" & Fichier
'    .SaveAs Filename:=ThisWorkbook.Path & "\" & Fichier, FileFormat:=xlOpenXMLWorkbook
End With
'For Each Wb In Workbooks                           'boucle sur tous les classeurs ouverts
'    Wb.Close True                                  'fermeture du classeur avec sauvegarde
'Next
'ActiveWorkbook.Close
'Application.Quit
'Application.DisplayAlerts = True
End Sub

22/11/2013, 23h08
Anna_2013

En fait cela ne me l'enregistre pas dans le classeur ou le fichier est enregistré sous format xlsm et ne reprend pas non plus le nom du classeur avec l'extension xlsx
22/11/2013, 23h13
mercatog

Pourtant ma question était claire.

Qu'est ce que tu as dans les 2 msgbox après exécution du code #4?

Non je n'ai pas ces 2 messages.

J'ai modifié la syntaxe comme suit en précisant le format xlsx avec xlExcel10.
Cependant j'ai toujours le problème au niveau du nom Fichier qui n'est pas reconnu.
Code:

1 2 3 4 5 6 7 Sub XLSXSave() Application.DisplayAlerts = False Dim Fichier As String Fichier = ThisWorkbook.FullName With ActiveWorkbook .SaveAs Filename:=ThisWorkbook.Path & "\" & Fichier, FileFormat:=xlExcel10 End With

Je t'en supplie fais le test de ce code tel et reporte le résultat obtenu par les 2 msgbox

Code:

1
2
3
4
5
6
7
8
9
10
Sub FaisCeTest_svp()
Dim Fichier As String
 
Fichier = ThisWorkbook.FullName
MsgBox Fichier
With ActiveWorkbook
    MsgBox ThisWorkbook.Path & "\" & Fichier
    '    .SaveAs Filename:=ThisWorkbook.Path & "\" & Fichier, FileFormat:=xlOpenXMLWorkbook
End With
End Sub

23/11/2013, 18h00
Anna_2013

Bonsoir,

Cela ne fonctionne pas. Les 2 msgs boxent enregistrent le chemin et le nom du fichier mais le fichier n'apparait pas dans le dossier en format xlsx.

Merci par avance pour votre aide
23/11/2013, 18h10
mercatog

Msgbox 1

Citation:

C:\Users\user\AppData\Local\Temp\Commun2.xls

Msgbox2

Citation:

C:\Users\user\AppData\Local\Temp\C:\Users\user\AppData\Local\Temp\Commun2.xls

Pas encore pigé?

Bonjour,
J'ai effectivement ces messages.
Mais ils ne me permettent pas d'automatiser le champ pour l'enregistrement du fichier ni le chemin.

Merci

Bonjour

J'ai essayé de remodifier la syntaxe de la macro enregistrer de xlsm à xlsx.
Cependant j'ai encore un problème avec fileformat et la suite de la syntaxe à partir de end with

Merci pour votre aide
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub XLSXSave() Dim wb As Workbook Dim Fichier As String Application.DisplayAlerts = False Fichier = ThisWorkbook.FullName With ActiveWorkbook .SaveAs Filename:=ThisWorkbook.Path & "\" & FileFormat, FileFormat:=xlsx End With For Each wb In Workbooks wb.Close True Next ActiveWorkbook.Close Application.Quit Application.DisplayAlerts = True End Sub

vba enregistrer le fichier xlsm en xlsx

Bonjour,

Essai ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub XLSXSave()
Dim wb As Workbook
Dim Fichier As String
 
Application.DisplayAlerts = False
Fichier = ThisWorkbook.FullName                     ' fichier comprend le chemin + nom fichier avec .xlsm (FullName)
Fichier = Left(Fichier, Len(Fichier) - 4) & "xlsx"  ' remplace l'extension par .xlsx exigée dans la fileformat
MsgBox Fichier                                      ' uniquement pour voir le nom du fichier transformé
With ActiveWorkbook
    .SaveAs Filename:=Fichier, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False  'syntaxe trouvée à partir de l'enregistreur de macro
End With
For Each wb In Workbooks   'pourquoi cette boucle alors qu'un seul fichier est traité
   wb.Close True
Next
ActiveWorkbook.Close
Application.Quit
Application.DisplayAlerts = True
End Sub

Attention : Je ne suis pas certain que "thisworkbook.fullname" soit vraiment ce que tu veux.
Il me semble que c'est plutôt "workbook" (un fichier préalablement ouvert) car sinon, sauf erreur de ma part, c'est le fichier contenant cette macro dont tu vas changer l'extension et ce faisant perdre lesdites macros.
Fais une sauvegarde avant de faire l'essai.

Cordialement,