Sauvegarde fichier

Bonjour auriez vous une idée pour que mon fichier se ferme et se sauvegarde en fichier xlsx alors que c'est un xls à la base ?

Cdlt

up

! ?

Manuellement ou en macro ?

En Macro ^^ , j'ai déja

ActiveWorkbook.SaveAs Filename:=*** _

, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

Mais je sais pas quoi mettre dans FileFormat car xlsx ne fonctionne pas :/

C'est bon j'ai trouvé, si cela peut servir à d'autres, il faut mettre FileFormat: xlOpenXMLWorkbook pour que le fichier se save en xlsx!

Bonjour

Je me permets de me greffer sur cette discussion car j'ai vraiment besoin d'aide sur mon code.

Je dois enregistrer sous mon classeur en .xlsx alors que mon fichier de base est en .xlsm, en enlevant les liaisons et les macros.

Sub EnregistrerSansMacro()

'Macro par Jennifer

Dim Chemin As String, Nomfichier As String

Dim VBComp As Object

Dim VBComps As Object

Chemin = "HDD:Users:Jennifer:Téléchargements"

Nomfichier = "CRID_" & ActiveSheet.Range("Y34") & "_" & Range("F31") & ".xlsx"

Set VBComps = ActiveWorkbook.VBProject.VBComponents

For Each VBComp In VBComps

Select Case VBComp.Type

Case 100

With VBComp.CodeModule

.DeleteLines 1, .CountOfLines

End With

Case Else

VBComps.Remove VBComp

End Select

Next VBComp

With ThisWorkbook

.SaveAs Filename:=Nomfichier

End With

End Sub

Merci de votre aide