L
Leuba
Guest
Bonjour,
Pourriez-vous m'aider à accelerer cette macro qui est bien trop longue à executer.
Private Sub CommandButton1_Click()
MsgBox 'Plus nécessaire, si l'établissement du Bordereau d'Expédition se fait manuellement.' + (Chr(13)) + 'Effacer les guillemets pour réactiver la fonction'
' Workbooks.Open Filename:='G:\\TOUS\\MAGASIN\\BDE\\BORDEREAU.xls'
' Sheets('MENU').Select
' With ActiveWindow
' .DisplayHorizontalScrollBar = False
' .DisplayZeros = False
' .DisplayVerticalScrollBar = False
' .DisplayWorkbookTabs = False
' End With
' With Application
' .DisplayFormulaBar = False
' .DisplayStatusBar = False
' .ShowWindowsInTaskbar = False
' End With
' ActiveWindow.DisplayHeadings = False
' Application.CommandBars('Drawing').Visible = False
' Application.CommandBars('Control Toolbox').Visible = False
' Application.CommandBars('Formatting').Visible = False
' Application.CommandBars('Standard').Visible = False
' ActiveWindow.DisplayGridlines = False
' Application.AskToUpdateLinks = False
' Sheets('MENU').Select
End Sub
Private Sub CommandButton2_Click()
Workbooks.Open Filename:='G:\\TOUS\\MAGASIN\\MACHINE\\MACHINE.xls'
Sheets('PM').Select
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayZeros = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.ShowWindowsInTaskbar = False
End With
ActiveWindow.DisplayHeadings = False
Application.CommandBars('Drawing').Visible = False
Application.CommandBars('Control Toolbox').Visible = False
Application.CommandBars('Formatting').Visible = False
Application.CommandBars('Standard').Visible = False
ActiveWindow.DisplayGridlines = False
Application.AskToUpdateLinks = False
Sheets('PM').Select
Merci d'avance à tous.
Pourriez-vous m'aider à accelerer cette macro qui est bien trop longue à executer.
Private Sub CommandButton1_Click()
MsgBox 'Plus nécessaire, si l'établissement du Bordereau d'Expédition se fait manuellement.' + (Chr(13)) + 'Effacer les guillemets pour réactiver la fonction'
' Workbooks.Open Filename:='G:\\TOUS\\MAGASIN\\BDE\\BORDEREAU.xls'
' Sheets('MENU').Select
' With ActiveWindow
' .DisplayHorizontalScrollBar = False
' .DisplayZeros = False
' .DisplayVerticalScrollBar = False
' .DisplayWorkbookTabs = False
' End With
' With Application
' .DisplayFormulaBar = False
' .DisplayStatusBar = False
' .ShowWindowsInTaskbar = False
' End With
' ActiveWindow.DisplayHeadings = False
' Application.CommandBars('Drawing').Visible = False
' Application.CommandBars('Control Toolbox').Visible = False
' Application.CommandBars('Formatting').Visible = False
' Application.CommandBars('Standard').Visible = False
' ActiveWindow.DisplayGridlines = False
' Application.AskToUpdateLinks = False
' Sheets('MENU').Select
End Sub
Private Sub CommandButton2_Click()
Workbooks.Open Filename:='G:\\TOUS\\MAGASIN\\MACHINE\\MACHINE.xls'
Sheets('PM').Select
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayZeros = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.ShowWindowsInTaskbar = False
End With
ActiveWindow.DisplayHeadings = False
Application.CommandBars('Drawing').Visible = False
Application.CommandBars('Control Toolbox').Visible = False
Application.CommandBars('Formatting').Visible = False
Application.CommandBars('Standard').Visible = False
ActiveWindow.DisplayGridlines = False
Application.AskToUpdateLinks = False
Sheets('PM').Select
Merci d'avance à tous.