A
andrea
Guest
Bonjour à tous et à toutes
Voici mon code pour regrouper plusieurs classeurs en 1 classeur
Windows('Classeur1').Activate
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 2.5
.Left = 340.75
End With
With ActiveWindow
.Width = 410.25
.Height = 389.25
End With
Windows('Classeur2').Activate
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Width = 370.5
.Height = 389.25
End With
Sheets('bul').Select
Application.CutCopyMode = False
Sheets('bul').Move After:=Workbooks('Classeur1').Sheets(1)
Windows('Classeur3').Activate
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Width = 378.75
.Height = 389.25
End With
Sheets('bul').Select
Sheets('bul').Move After:=Workbooks('Classeur1').Sheets(2)
Windows('Classeur4').Activate
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Width = 370.5
.Height = 389.25
End With
Sheets('bul').Select
Application.CutCopyMode = False
Sheets('bul').Move After:=Workbooks('Classeur1').Sheets(1)
End Sub
j'aimerai que ce code s'adapte quelque soit le nombre de classeurs ouverts et quelque soit leurs noms
Est ce possible????????
Merci pour l'aide apportée
Voici mon code pour regrouper plusieurs classeurs en 1 classeur
Windows('Classeur1').Activate
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 2.5
.Left = 340.75
End With
With ActiveWindow
.Width = 410.25
.Height = 389.25
End With
Windows('Classeur2').Activate
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Width = 370.5
.Height = 389.25
End With
Sheets('bul').Select
Application.CutCopyMode = False
Sheets('bul').Move After:=Workbooks('Classeur1').Sheets(1)
Windows('Classeur3').Activate
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Width = 378.75
.Height = 389.25
End With
Sheets('bul').Select
Sheets('bul').Move After:=Workbooks('Classeur1').Sheets(2)
Windows('Classeur4').Activate
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Width = 370.5
.Height = 389.25
End With
Sheets('bul').Select
Application.CutCopyMode = False
Sheets('bul').Move After:=Workbooks('Classeur1').Sheets(1)
End Sub
j'aimerai que ce code s'adapte quelque soit le nombre de classeurs ouverts et quelque soit leurs noms
Est ce possible????????
Merci pour l'aide apportée