Microsoft 365 Ouvrir un fichier Excel rapidement en VBA

iliess · 5 Avril 2024

Je suis actuellement chargé de la gestion comptable sur un logiciel de comptabilité qui me donne la capacité de générer des états financiers sous forme de fichiers Excel. Cependant, un inconvénient notable est la lenteur d'ouverture de ces rapports.
Est-il possible de réduire le temps d’ouverture du classeur en VBA en important, par exemple, l’intégralité de la feuille 1 sans ouvrir le fichier source pour un traitement personnalisé ?
Cordialement.

Est-il possible de joindre mon fichier de démonstration qui fait 12 Mo en taille ?

iliess · 9 Avril 2024

Voici un code ("Power Query") avec un temps de 6,48 secondes.

VB:

sub Macro1()
Dim t
t = Timer
    ActiveWorkbook.Queries.Add Name:="JournalAuxExcel", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.Workbook(File.Contents(""C:\Users\ilies\Desktop\JournalAux.xlsx""), null, true)," & Chr(13) & "" & Chr(10) & "    JournalAuxExcel_Sheet = Source{[Item=""JournalAuxExcel"",Kind=""Sheet""]}[Data]," & Chr(13) & "" & Chr(10) & "    #""Type modifié"" = Table.TransformColumnTypes(JournalAuxExcel_Sheet,{{""Column1"", type any}, {""Column2"", type any}, {""Column3"", type text}, {""Column4"", type" & _
        " text}, {""Column5"", type text}, {""Column6"", type text}, {""Column7"", type text}, {""Column8"", type text}, {""Column9"", type any}, {""Column10""...

job75 · 8 Avril 2024

Laurent78 à dit:
Le top serait de fournir ici un fichier anonymisé.

On n'a pas besoin du fichier, c'est à iliess de tester et de nous indiquer la durée du traitement.

TooFatBoy · 8 Avril 2024

Bonjour,

iliess à dit:
Est-ce que je peux partager avec vous mon fichier réel pour faire un test ?

Est-ce que tu parles bien d'un des états financiers générés par le logiciel de comptabilité ?

Ce logiciel de comptabilité te permet-il de choisir le format d'exportation ?

iliess à dit:
Est-il possible de joindre mon fichier de démonstration qui fait 12 Mo en taille ?

Si ledit fichier est anonymisé, oui tu peux, mais pas directement joint à ton message.
Il te faut passer par un hébergeur et donner le lien vers le fichier.

iliess · 8 Avril 2024

bonsoir
merci a tous ce qui participe a ce sujet
Effectivement, j'ai testé la macro de M. Job75 et le fichier s'ouvre lentement et en plus, il n'importe pas toutes les données de la feuille.
Oui, ce sont des états financiers générés par le logiciel de comptabilité uniquement au format Excel.
Comment je peux passer par un hébergeur et donner le lien vers le fichier.

Je suis enthousiaste à l’idée de vous présenter le fichier et de vous donner la possibilité de prendre le contrôle vous-même.

iliess · 8 Avril 2024

voici le lien

TooFatBoy · 8 Avril 2024

ATTENTION à bien respecter RGPD !
Il ne faut aucune donnée personnelle ou nominative.

job75 · 9 Avril 2024

A partir du lien du post #19 j'ai téléchargé le fichier puis exécuté cette macro :

VB:

Sub Copier()
Dim fichier As Variant, t, chemin$, feuille$, form$, nlig&, ncol%
fichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx")
If fichier = False Then Exit Sub
t = Timer
chemin = Left(fichier, InStrRev(fichier, "\"))
fichier = Mid(fichier, InStrRev(fichier, "\") + 1)
feuille = "JournalAuxExcel" 'nom de la feuille à copier
form = "'" & chemin & "[" & fichier & "]" & feuille & "'!"
nlig = ExecuteExcel4Macro("MATCH(""zzz""," & form & "C3)") 'textes en colonne C
ncol = ExecuteExcel4Macro("MATCH(""zzz""," & form & "R5)") 'ligne des en-têtes
Application.ScreenUpdating = False
Cells.Delete 'RAZ
With [A1].Resize(nlig, ncol)
    .FormulaArray = "=" & form & "R1C1:R" & nlig & "C" & ncol 'formule matricielle
    .Value = .Value 'supprime la formule
    .Replace 0, "", xlWhole 'efface les valeurs zéro
End With
MsgBox "Durée " & Format(Timer - t, "0.00 \sec")
End Sub

Elle s'exécute en 34 secondes chez moi, 207 791 lignes sont copiées.

iliess · 9 Avril 2024

Merci beaucoup
Chez moi. S'exécute en 142 secondes et c'est un temps très court par rapport à l'ouverture ordinaire. Et ce temps demain au bureau, je pense qu'il sera moins, car mon PC de bureau est très puissant.

job75 · 9 Avril 2024

iliess à dit:
Et ce temps demain au bureau, je pense qu'il sera moins, car mon PC de bureau est très puissant.

Tenez-nous au courant.

Bonne nuit.

iliess · 9 Avril 2024

bonne nuit

TooFatBoy · 9 Avril 2024

Il n'y a qu'une seule feuille dans le classeur et elle fait... 289 Mo !

Il doit y avoir un problème dans la mise en forme des données (trop de fusions, etc.) car si on copie les cellules du classeur et qu'on colle dans un nouveau classeur les valeurs de ces cellules (on perd les fusions de cellules), le nouveau fichier est un peu moins gros (8,6 Mo au lieu de 13,3 Mo) mais surtout il s'ouvre immédiatement (la feuille passe de 289 Mo à 62 Mo).

iliess · 9 Avril 2024

Bonjour.
Mr @job75
J'ai testé votre code sur mon bureau et j'ai réussi à obtenir 18.61 secondes.
Salutations.

job75 · 9 Avril 2024

Bonjour le forum,

TooFatBoy à dit:
Il n'y a qu'une seule feuille dans le classeur et elle fait... 289 Mo !

Chez moi le fichier .xlsx téléchargé fait 12,6 Mo, il faut environ 3 minutes pour l'ouvrir.

Pas vu de cellules fusionnées.

A+

TooFatBoy · 9 Avril 2024

job75 à dit:
Chez moi le fichier .xlsx téléchargé fait 12,6 Mo, il faut environ 3 minutes pour l'ouvrir.

Voui, c'est qu'est-ce que j'dis : le fichier fait 13,3 Mo mais la feuille en elle-même, une fois décompressée, fait 289 Mo.
Je parle ici du fichier d'origine.

job75 à dit:
Pas vu de cellules fusionnées.

Il y en a pourtant des centaines, à commencer par A1:B1 (si je me rappelle bien).

job75 · 9 Avril 2024

Les seules cellules fusionnées sont dans les 6 premières lignes A1:K6.

TooFatBoy · 9 Avril 2024

job75 à dit:
Les seules cellules fusionnées sont dans les 6 premières lignes A1:K6.

Pourtant je viens de dénombrer 415 583 plages fusionnées différentes.
Me serais-je trompé ?

En gros ce sont C : D et I : J de chaque ligne.

Microsoft 365 Ouvrir un fichier Excel rapidement en VBA

iliess

XLDnaute Occasionnel

iliess

job75

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

iliess

XLDnaute Occasionnel

iliess

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

iliess

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

iliess

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

iliess

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires