Macro bien trop longue

[Leuba]

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.

 

[Jacques87]

Bonjour

D'abord toute la première partie de ce code ne sert à rien étant donné que tu as tout mis en commentaire (apostrophe)
La deuxième partie sert à mettre en forme selon tes désirs ton environnement de travail. En particulier tu touche aux barres, attention pense à les remettre si tu en supprimes.
Sinon ajoute en début de code
Application.ScreenUpdating
pour éviter de voir toutes les modifications s'effectuer, mais je repète modifier des barres est parfois dangereux (voir les posts précédents à ce sujet)

Bonne journée

 

[Leuba]

Tout d'abord merci d'avoir regarder mon probleme,

Sinon pourriez-vous m'aider à transformer mon ficher excel avec visual basic pour le transformer en executable dans le but d'augmenter sa vitesse d'execution.

Merci d'avance

 

[porcinet82]

Salut Leuba, Salut Jacques,

Si tu veux qu'on puisse t'aider à automatiser ton fichier Leuba, il faudrait que tu mettres en PJ ton fichier de base, et le resultat excompté.

Et bien Jacques, une fois de plus on se retrouve sur le meme fil .

Attendant ton fichier,

@+