Microsoft 365 Combinaison de 2 macros

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

homernell

XLDnaute Occasionnel
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.
 
Bonsoir homernell, Bruno,
VB:
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+
 
Bonsoir homernell, Bruno,
VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
560
Réponses
18
Affichages
329
Réponses
2
Affichages
290
Réponses
17
Affichages
1 K
Retour