Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Ouvrir un fichier Excel rapidement en VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion iliess
  • 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 !

S'inscrire
I

iliess

XLDnaute Occasionnel
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 ?
 
Dernière édition:
Solution
I
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""...
Trier par date Trier par votes
Bonjour à Tous,

Je viens de faire un petit test.
J'ai ouvert le fichier, cela prend énormément de temps en effet, pour 200000 lignes et 11 colonnes environ, c'est très très long. Je travaille sur des données ayant plus de lignes/colonnes, ce n'est pas si long à ouvrir.
Une fois ouvert, j'ai supprimé tous les formats (sélection de la feuille entière, puis "effacer les formats".
Le résultat obtenu n'a plus rien à voir avec le fichier d'origine, l'ouverture est quasi instantanée.
Conclusion : le fichier Excel fourni par l'appli comptable est, comment dire, bof bof .... bourré de fusion entre autre.

Idées :
- est-il possible de choisir un autre format d'exportation ? Existe-t-il des API ?
- est-il envisageable de faire une première ouverture, supprimer les mise en forme et travailler sur cette copie ?
- est-il envisageable de faire une première ouverture et d'enregistrer la feuille en format csv ?

NB : le fichier, pour moi, n'est pas un état financier, mais un export d'un grand livre comptable (auxiliaire dans le cas présent).

@iliess : quel est le but final recherché ?
Bon après midi.
 
Vote positif 0 Vote négatif
bonjour @Laurent78
Mon but final est d'ouvrir ce fichier dans le délai le plus court possible, parce que j'ai plusieurs fichiers à ouvrir par jour.
Il n'est pas approprié de lancer un fichier et de rester les bras croisés pendant 10 minutes ou plus en attendant qu'il s'ouvre.
 
Vote positif 0 Vote négatif
J'entendais pour "but final" : "pour en faire quoi"; je suppose que le but final n'est pas juste les ouvrir 😉
En plus si c'est pour traiter plusieurs fichiers, je vois Power Query en embuscade ! 🤣

Ne peut on pas exporter dans un autre format ?
 
Vote positif 0 Vote négatif
c'est la seul format
Bien sûr, le but final n'est pas juste de les ouvrir.
je suis un financier Mr et un grand travail après l'ouverture
 
Vote positif 0 Vote négatif
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"", type datetime}, {""Column11"", type any}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Type modifié"""
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=JournalAuxExcel;Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [JournalAuxExcel]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "JournalAuxExcel"
        .Refresh BackgroundQuery:=False
    End With
MsgBox "Durée " & Format(Timer - t, "0.00 \sec")
End Sub

Dans ce code, le chemin du fichier est fixe. Comment je peux modifier le choix du fichier ?
 
Vote positif 0 Vote négatif
Solution
iliess à dit:
Je ne suis pas ici pour perdre votre temps en ouvrant le fichier.
Cliquez pour agrandir...
je n'ai pas compris.

Je suggère de faire une macro qui ouvre les fichiers d'un dossier et les enregistre ensuite soit dans un format csv, soit en format Excel après avoir supprimé toutes les mises en forme. Ensuite utiliser Power Query pour la travail sur les fichiers du dossier. En procédant ainsi, il y a juste un premier travail automatique qui peut être long, mais qui se fait tout seul, pas besoin de rester le nez sur le PC et ensuite, Power Query sera performant.
 
Vote positif 0 Vote négatif
iliess à dit:
c'est la seul format
Bien sûr, le but final n'est pas juste de les ouvrir.
je suis un financier Mr et un grand travail après l'ouverture
Cliquez pour agrandir...
Pas d'API, pas de serveur SQL ou un truc du genre ?
Quel est ce logiciel de comptabilité ?

Ce qui m'énerve, c'est de devoir trouver, en 2024, une solution de contournement parce que le logiciel de comptabilité n'est pas capable de fournir un export propre. Quel dommage. Bon courage à vous.
 
Vote positif 0 Vote négatif
Le logiciel de comptabilité n'est pas exécutable en travail directement dans le web Mozilla avec un nom d'utilisateur et un mot de passe.
 
Vote positif 0 Vote négatif
Bonjour,
En modifiant le début du code ainsi :
VB: 
....
Dim Fichier As String
Fichier = Application.GetOpenFilename("XL* Files (*.xls;*.xlsm;*.xlsx), *.xls;*.xlsm;*.xlsx", 1, "ouvrir un fichier")
If Fichier = "" Then Exit Sub
ActiveWorkbook.Queries.Add Name:="JournalAuxExcel", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.Workbook(File.Contents(""" & Fichier & """), null, true)," & Chr(13) & "" & Chr(10) & "    JournalAuxExcel_Sheet = Source{[Item=""JournalAuxExcel"",Kind=""Sheet""]}[Data]" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    JournalAuxExcel_Sheet"
ActiveWorkbook.Worksheets.Add
....
....
Si le nom de l'onglet peut être différent, et qu'il n'y a qu'un seul onglet, tu peux supprimer la partie Item=""JournalAuxExcel"", le code deviendrait alors :
VB: 
....
Dim Fichier As String
Fichier = Application.GetOpenFilename("XL* Files (*.xls;*.xlsm;*.xlsx), *.xls;*.xlsm;*.xlsx", 1, "ouvrir un fichier")
If Fichier = "" Then Exit Sub
ActiveWorkbook.Queries.Add Name:="JournalAuxExcel", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Excel.Workbook(File.Contents(""" & Fichier & """), null, true)," & Chr(13) & "" & Chr(10) & "    Import = Source{[Kind=""Sheet""]}[Data]" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    Import"
ActiveWorkbook.Worksheets.Add
....
....
 
Vote positif 1 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

M
  • Question Question
Microsoft 365 Créer en VBA un Fichier Xml a partir d'un tableau
2
Réponses
15
Affichages
612
patricktoulon
T
  • Question Question
XL 2019 Ouvrir et modifier un fichier Excel dans un autre
Réponses
4
Affichages
465
Theca
T
E
  • Question Question
XL 2013 Excel VBA - Problème lien hypertexte pour ouvrir un dossier
2
Réponses
19
Affichages
2 K
TooFatBoy
D
  • Question Question
Microsoft 365 convertir un fichier access en excel avec les formules de calcul
2
Réponses
22
Affichages
1 K
Daniel200666
D
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
1 K
Dranreb
M
  • Résolu(e)
Power Query Convertir un fichier PdF en Excel et restitution d'un état de synthèse
Réponses
10
Affichages
1 K
Merlin258413
M
  • Question Question
XL 2016 VBA : Ajouter dans le ruban 1 onglet / import d'un fichier excel / reconstruction de la mise en page de l'import Excel
Réponses
1
Affichages
620
Gégé-45550
  • Question Question
XL 2019 Ouvrir excel sur un fichier existant dans un cloud
Réponses
8
Affichages
2 K
TooFatBoy
S
  • Question Question
XL 2019 Enregistrer plusieurs feuilles excel en un fichier PDF dans un dossier portant le nom d'une cellule
Réponses
4
Affichages
2 K
Phil69970
  • Question Question
XL 2016 Problème pour ouvrir en vba un fichier excel en mode protégé
Réponses
7
Affichages
2 K
MJ13
W
  • Question Question
XL 2010 Publipostage Word Excel en joignant si possible automatuqement un fichier pdf et un fichier excell
Réponses
0
Affichages
2 K
willoweiss
W
W
  • Question Question
XL 2019 VBA - ouverture d'un fichier Excel pour consultation depuis un userform
Réponses
2
Affichages
2 K
Wana
W
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
823
oguruma
F
  • Question Question
XL 2016 Comment ouvrir et déprotéger en VBA un fichier Excel à partir d'un autre fichier Excel?
Réponses
6
Affichages
1 K
fwigishoff
F
S
  • Question Question
Autres Lourdeur du fichier excel et lenteur du traitement macro : comment identifier les éléments générant ces lenteurs et lourdeurs et comment optimiser ?
Réponses
9
Affichages
5 K
TooFatBoy
J
  • Question Question
Excel -VBA : Envoie plusieurs partie du même tableau dans un corps mail en fonction de certaines conditions
Réponses
0
Affichages
2 K
JBIK
J
M
  • Question Question
XL 2019 Convertir un fichier excel 2019 en logiciel
Réponses
2
Affichages
1 K
Mimi1952
M
C
  • Résolu(e)
Autres ouvrir en vba un fichier CSV qui se trouve dans un fichier .zip
2
Réponses
27
Affichages
8 K
Cobra
C
A
  • Question Question
XL 2010 Générer un code à l'impression de fiches palettes
Réponses
3
Affichages
1 K
Dudu2
A
  • Question Question
Microsoft 365 VBA: ouvrir un fichier en n'indiquant que le début du nom
Réponses
14
Affichages
3 K
Aloha
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…