Alléger macros VBA Fermé

Question

Bonjour, 

Je débute quelque peu dans le monde de la macro et du language VBA et j'apprends petit à petit en regardant quelque tutos de code VBA, je réalise également des macros d'enregistrement pour analyser le code et m'approprier le code de certaines actions.
Elles ont le mérite d'être simple à comprendre à mon niveau mais subissent forcément une certaine lourdeur dans leur exécution (surtout avec les PC du boulot pas très performant)

Je ne sais pas si quelqu'un aurait des pistes pour alléger le code que j'ai réalisé.

J'explique brièvement le principe de mon fichier :

1 / J'extrais mensuellement 3 bases de données distinctes d'un logiciel externe dans un fichier Excel.

Chaque base de données correspond à un regroupement de poste de travail, elle contient des dates et des horaires d'actions réalisées sur ces différents postes

Crémone : 6 postes (Crémone 1, Crémone 2,etc...)
Pose vitrage : 6 postes (Vitrage 1, Vitrage 2, etc...)
Engondage : 2 postes (Engondage A, Engondage B) 


2/ Je copie chaque base de données dans une feuille "Export" de mon fichier qui centralisent mes données en traitant tour à tour chaque base de données avec une macro différente.

3/ La macro filtre tour à tour sur chaque poste et copie les données dans une autre feuille.

4/ Cette feuille contient une association de formules qui permet d'extraire quelle ligne correspond à certains critères horaires (la première et la dernière données de 3 tranches horaires différentes  : Matin, Après-midi, Nuit)

5/ Ces infos sont recopiées dans une tableau temporaire respectivement sur chaque poste et chaque tranche horaires. Une fois chaque macro réalisée je recopie les données du tableau temporaire dans une base de donnée finale.

Cette base de données me permet de réaliser un tableau croisé dynamique ainsi que des graphiques croisés dynamique qui me permet de faire une synthèse sur chaque groupe de poste.

Ce qui vient aussi alourdir l’exécution de la macro c'est que chaque base de données brute contient 10 000 lignes et 2 colonnes, donc forcément filtrer autant de données à suivre avec copie et suppression de l'export précédent entre chaque ça je demande peut être un miracle...

Après il se peut que je raisonne de la mauvaise façon et que ce n'est pas vraiment la macro qui pose problème mais plutôt ce que je lui fait faire et que je devrais peut être tenter de travailler avec bases de données plus petites car en moyennes sur 10 000 lignes je ne retraite les infos que de 700 lignes. J'avais penser travailler avec des filtres avancés mais je ne maîtrise pas bien surtout avec la complexité de mes critères et/ou arriver à traiter mes données avec tous les postes dans la même base de données sans avoir à filtrer sur chaque poste mais là j'ai peine à voir comment.

Voici le fameux fichier en question : https://www.cjoint.com/c/KCcn3mXO2TR

Je m'excuse pour ceux à qui j'aurais donner mal à la tête.  En tout cas merci à ceux qui auront le courage d'essayer de rentrer dans ma tête.

Configuration: Windows / Chrome 88.0.4324.190

Le Pingou · Answer

Bonjour,
Eh bien pour faire court, il est ou votre problème?
S'agit-il uniquement des codes sur ce classeur ou ceux utilisé pour importer les données?

f894009 · Answer

Bonjour,

Une facon de faire. Modif pour Cremone.
Votre fichier: 9 a 10s
Ce code: 3 a 4s

Sub Crémone_SWF()
    
    TPoste_Crem = Array("", "LM1", "LM2", "LM3", "LM4", "LM5", "LM6")
    TCel_Crem = Array(0, 8, 11, 14, 17, 20, 23)
    If MsgBox("Voulez-vous extraire les données de la Pose Crémone ?", vbYesNo, "Demande de confirmation") = vbYes Then
        On Error GoTo Fin
        
        Application.ScreenUpdating = False
        temps = Timer
        Sheets("Export").Activate
        Derlig = Range("A" & Rows.Count).End(xlUp).Row
        Plage = Range("A1:B" & Derlig).Address
        For n = 1 To 6
            Range("A1").Select
            Selection.AutoFilter
            Range(Plage).AutoFilter Field:=2, Criteria1:="Etancheite-Crem-" & TPoste_Crem(n)
            Range("A1:A" & Derlig).SpecialCells(xlVisible).Copy Sheets("Extraction BDD").Cells(1, 1)
            With Sheets("Extraction BDD")
                .Range("O" & TCel_Crem(n)).Resize(3, 2) = .Range("N2:O4").Value
                .Columns("A:A").ClearContents
            End With
        Next n
        MsgBox "temps exec: " & Format(Timer - temps, "0.000000")
Fin:
        On Error GoTo 0
        Application.ScreenUpdating = True
        Sheets("Extraction BDD").Activate
        'MsgBox "Les données ont bien été extraites"
    End If
End Sub

f894009 · Answer

Adirien

Fichier modifie pour tout:  https://mon-partage.fr/f/7KEiMrqB/
A vous de verifier pour vitrage, engondage et copie BDD

dachiasse · Answer

Salut,

"Je copie chaque base de données dans une feuille "Export" "

Je répondrais : https://img.devrant.com/devrant/rant/r_3211243_SBGSp.jpg

J'ai cru comprendre que tu avais solutionné le problème. À vrai dire, tu n'as fait que le repousser. Multiplie par 100 000 la quantité de données de ta DB, Excel et toi allez pleurer je pense :)

https://sqlpro.developpez.com/ sur ce site, le gars est excellent en DB. Il y a plein de bons conseils.

f894009 · Answer

Bonjour,

prendre le temps de les enregistrer dans un dossier prévu pour ça. 
Oui, avec le nom des postes: Cremone etc

aller le chercher dans une arborescence.
Le code ira chercher les fichiers dans le repertoire. Si le nom des fichiers est le nom des postes pas besoin de selection, le code le fera automatiquement s'ils sont presents

Je n'ai pas bien conscience des limites du VBA
Les limites d'un langage de programmation sont liées a l'imagination du programmeur pas au langage

Adirien · Answer

J'ai testé mais je n'ai pas mon PC du boulot donc les arborescences sont faussées, j'ai essayé d'adapter le code à une autre arborescence, mais il y'a des erreurs donc je préfère être en conditions réelles avant de faire un retour avant de vous faire changer des choses qui fonctionnent peut être très bien.
Sauf si cela vous intéresse quand même :

f894009 · Answer

Bonjour,

Pour eviter les soucis d'extention fichier:
Dans cette procedure, remplacez la ligne en commentaire par la suivant
Sub Traitement_Fichier()
        'Feuille = Left(T_Fichier(n), Len(T_Fichier(n)) - 4)
        Feuille = Split(T_Fichier(n), ".")(0)

voilà désormais la nouvelle erreur :
Je vais regarder avec les fichiers que vous avez mis a dispo.
Vous de votre cote, quand erreur, click sur debugage, passez le curseur souris sur Onglet et vous verrez le contenu de cette variable

Suite:
Erreur Onglet normal 
Heureusement que vous avez mis ces fichiers a dispo, sinon c'etait pas pret de marcher l'affaire.
Il 'n'y a pas que deux colonnes, donc je vais faire les modifs pour copier les colonnes D:E

f894009 · Answer

Re,

Encore toutes mes excuses.
Y a pas d'lezard. Je fais les modifs en fonctions des dits fichiers.
Normalement, je pourrai vous mettre un fichier a dispo ce soir.
Je continuerai aussi sur le fichier qui pourrait faire un gain de temps substantiel.

Que pensez vous de ce genre de programmation VBA?
Avez vous appris un peu, beaucoup, passionnement ou pas du tout

Suite:

fichier modifie pour format fichiers base: https://mon-partage.fr/f/VZOOle2n/
Je ne fais pas de formatage de la colonne A en Date heure, n'a qu'un effet visuel
Temps pour traitement complet trois fichiers: 11s chez moi
Pensez a changer le chemin dossier

Adirien · Answer

Bonsoir,

Je n'ai pas eu beaucoup de temps pour regarder en détail, j'avais un nouveau message d'erreur.

Mais avant d'aller plus loin dans la résolution, en testant directement à mon boulot ça m'a permis de me rendre compte de quelque chose :
Extraire le fichier depuis le dossier temporaire n'était pas très pratique. Effectivement si j'ai fais d'autres extractions dans la journée pour d'autres besoins, les fichiers viendront s’emmêler les uns aux autres dans ce même dossier. Il faudra donc que je pense pas à purger les fichiers en trop qui en plus auront des noms sans signe distinctifs pour m'indiquer lesquels sont les bons des mauvais. 
Et puis j'ai réfléchi aussi au côté multi-utilisateurs, la macro sera définitivement lié à mon ordinateur, si jamais je devais le mettre à disposition de quelque d'autre je n'aurais d'autre choix que de modifier l'arborescence dans le code.

Je m'en excuse de vous faire faire encore modifier mais finalement l'idéal me semblerait être une boite de dialogue qui demanderait le chemin du dossier où se trouve les fichiers.


Sinon pour répondre à votre question sur ce que j'en pense et ce que j'en ai appris :
J'ai été impressionné de voir l'étendue des possibilités de la programmation VBA, mon seul regret c'est surtout de ne pas forcément avoir pu comprendre toute la complexité du code, il faudra que je prenne le temps d'étudier son fonctionnement car au moins dans un premier temps comprendre comment les modules s'articules entre eux puis ensuite être en capacité de le comprendre et si besoin de modifier et faire évoluer son contenu mais là je pense que c'est un niveau bien supérieur à ce dont je suis capable.

Cela m'a donné plein d'idées à développer pour la suite et je pense que le VBA va révolutionner mon travail et j'espère à l'avenir arriver à en faire certains en pleine autonomie.

f894009 · Answer

Bonjour,

Je m'en excuse de vous faire faire encore modifier
Non, y a pas d'lezard
Multiples extractions et utilisateurs fait que la boite a dialogue s'impose.
Je regarde la chose.
Quel fichier avez vous utilise, v3_5 ou sans filtre?

f894009 · Answer

Re,

Fichier sans filtre modifie pour choix repertoire:  https://mon-partage.fr/f/8oyQS3Mm/

Choix repertoire, pas fichier

f894009 · Answer

Bonjour,

y a plus de 3 fichiers présents
Ok, alerte
ajouté un tri pour s'en assurer
Ok, tri desc
3 feuilles qui servent à l'extraction et de les faire disparaître en fin d'extraction
Pourquoi les faire apparaitre?

Je regarde cote code s'il y a des modifier a faire pour éviter des erreurs liées au masquage

Mon idée de depart, pour le suppression filtre, était de ne pas avoir de feuille poste en faisant les traitement directement sur les fichiers d'extraction. Pour moi, les feuilles poste devenaient inutiles
J'ai parre au plus court car le temps de traitement serait peut-être un peu plus long
Je peux regarder si cela vous irait mieux.

Adirien · Answer

Jusque là tout marche parfaitement :)

f894009 · Answer

Re,

Ca progresse bien.

Fichier avec tri donnees Ancien vers recent:  https://mon-partage.fr/f/ieT16js1/
Le tri se fait dans la recupe des donnees par poste en vue de les afficher dans Exctaction BDD.
Peu importe ce qu'il y a dans les fichiers extraits

Reste la partie masque feuille et quelques finitions

Suite:

Fichier feuilles poste masquee: https://mon-partage.fr/f/fpdklXbI/

Quelques verif des codes pour finition voir traitement erreur

Adirien · Answer

Voici l'erreur et un lot de 3 fichiers en exemple concerné par cette erreur


https://mon-partage.fr/f/rOcZbOQP/
https://mon-partage.fr/f/3ENawnlb/
https://mon-partage.fr/f/FYYrSu7G/

J'ai tenté de renommer les fichiers différemment ou de les enregistrer en .xlsx ou .xls 
Mais sans succès et ce même avec le fichier du post 59

Et d'ailleurs à l'ouverture il y'a une autre erreur qui apparait :

f894009 · Answer

Bonjour,

Ok, je recupere les fichiers et regarde la chose
Erreur ouverture classeur: je regarde

Suite:

Les fichiers sont les memes avec des noms differents!
Vous choisissez bien le bon repertoire? (vu erreur bon repertoire)

Erreur ouverture: vous n'utilisez pas le dernier fichier du post <61> apres Suite:

Suite de Suite:
Lecture feuille fichiers extraction
Ben, regardez le nom de feuille et vous comprendrez.
Je regarde pour palier a la chose

f894009 · Answer

Re,
Content pour vous.
Comme écrit précédemment, je vais faire des vérifications de code et ajouter des traitements d'erreur liée à une anomalie de connexion, nombre de feuilles fichiers extraits et autres .....

Alléger macros VBA

17 réponses

Discussions similaires