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