Microsoft 365 Combinaison de 2 macros

[homernell]

Bonjour à tous,

J'aimerai savoir s'il est possible de combiner ces deux macros :

1.
Worksheets(Array("Prog Mer dim", "Box office")).Copy

ActiveWorkbook.SaveAs _
Filename:="Résultats pour prog.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
CreateBackup:=False

ActiveWindow.Close

End Sub


2.
Sheets("Prog Mer DIm").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Box Office").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Prog Mer DIm").Select


Merci d'avance pour vos réponses.

 

[Compte Supprimé 979]

Bonjour homernell

Oui, VBA est de la programmation objet, il suffit de les déclarer et de les utiliser

 

[job75]

Bonsoir homernell, Bruno,

Sub Test()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(Array("Prog Mer dim", "Box office")).Copy
With ActiveWorkbook
    For Each w In .Worksheets
        w.UsedRange = w.UsedRange.Value
    Next
    .SaveAs ThisWorkbook.Path & "\Résultats pour prog.xlsm", 52
    .Close
End With
End Sub

A+

 

[homernell]

Bonjour homernell

Oui, VBA est de la programmation objet, il suffit de les déclarer et de les utiliser

Ok mais j'arrive pas à en faire une seule macro

 

[homernell]

Bonsoir homernell, Bruno,

Sub Test()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(Array("Prog Mer dim", "Box office")).Copy
With ActiveWorkbook
    For Each w In .Worksheets
        w.UsedRange = w.UsedRange.Value
    Next
    .SaveAs ThisWorkbook.Path & "\Résultats pour prog.xlsm", 52
    .Close
End With
End Sub

A+

Super je vais essayer