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
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
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
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