Enregistrer XLSM en XLSX

Bonjour,

J’ai un fichier excel.XLSM que je voudrais en copier-coller les valeurs seulement sur un autre ficher sous un autre nom .XLSX

La partie Copier-coller ne me pose pas problème c’est la 2éme qui coince

Voici le code pour la 1ère partie :

Sub copier_coller()

Cells.Select

Sheets(Array("Total eq com pe", "eq com pe Territoire", "Stat EDF_GDF 2015", _

"EDF GDF par territoire", "Caroline", "Morgan", "Anne", "Mélanie", "Valérie", "Chidi" _

, "Véronique", "Typologie")).Select

Sheets("Total eq com pe").Activate

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("G23").Select

Sheets("Total eq com pe").Select

Range("H21").Select

Application.CutCopyMode = False

Application.DisplayAlerts = False

ChDir "C:\Users\User\Documents\Excel\SC\2015"

ActiveWorkbook.SaveAs Filename:= _

"C:\Users\User\Documents\Excel\S C\2015\toto.xlsm" _

, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Application.DisplayAlerts = True

End Sub

Si quelqu’un peu m'aider ?

Merci

Jean-Pierre

Bonsoir,

essaie cette instruction

ActiveWorkbook.SaveAs Filename:= _
"C:\Users\User\Documents\Excel\Secours Catholique\2015\toto.xlsx" _
, FileFormat:=xlWorkbookDefault, CreateBackup:=False

Bonsoir h2SO4

Merci cela fonctionne mais j'ai encore un petit problème

j'ai le message ci-joint auquel la réponse devrait oui automatiquement par la macro ainsi que le second message qui me dit que le fichier existe déjà

Merci pour ta réponse

Jean-pierre

re-bonsoir,

à tester

application.displayalerts=false
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\User\Documents\Excel\Secours Catholique\2015\toto.xlsx" _
, FileFormat:=xlWorkbookDefault, CreateBackup:=False
application.displayalerts=true
 

Bonjour.

Merci beaucoup tout a fait ce qu'il me falait

Jean-Pierrer