Bonjour,
je cherche à créer une macro me permettant de copier / coller en valeru puis d'enregistrer le fichier dans un autre fichier.
Je reste bloquer pour la deuxième partie.
voici la macro
' Button1_Click Macro
' copy past value
'
'
Sheets("2. Summary").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("3.3 Analysts Report - WACC").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Memo table").Activate
Range("A1").Select
Application.Calculation = xlAutomatic
ChDir "C:\Users\yaboutaher\Desktop\Perso"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\yaboutaher\Desktop\Perso" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Je précise que je suis novice dans les macros excel...
je cherche à créer une macro me permettant de copier / coller en valeru puis d'enregistrer le fichier dans un autre fichier.
Je reste bloquer pour la deuxième partie.
voici la macro
' Button1_Click Macro
' copy past value
'
'
Sheets("2. Summary").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("3.3 Analysts Report - WACC").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Memo table").Activate
Range("A1").Select
Application.Calculation = xlAutomatic
ChDir "C:\Users\yaboutaher\Desktop\Perso"
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\yaboutaher\Desktop\Perso" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Je précise que je suis novice dans les macros excel...