Macro bien trop longue

  • Initiateur de la discussion Initiateur de la discussion Leuba
  • Date de début Date de début

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 !

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.
 
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
 
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
 
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,

@+
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
481
Réponses
3
Affichages
987
Retour