Microsoft 365 Ouvrir un fichier Excel rapidement en VBA

[iliess]

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]

Merci beaucoup M. @Cousinhub ça marche très bien.
SVP, une dernière question, comment en VBA je supprime la requête du classeur ?

 

[Cousinhub]

RE-,
Ce code te supprime la 1ère requête (je suppose la seule...)

ActiveWorkbook.Queries.Item(1).Delete

Restera à supprimer l'onglet ajouté

 

[iliess]

Finalement, je remercie tous ceux qui participent à cette discussion.
Je suis très reconnaissant.
Cordialement

 

[job75]

Bonjour iliess, le forum,

A priori Power Query n'est pas nécessaire, ADO suffit.

Merci de tester cette macro sur votre fichier de 207 791 lignes :

Sub Copier()
Dim fichier As Variant, t, feuille$, plage As Range, cn As Object, rs As Object
fichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx")
If fichier = False Then Exit Sub
t = Timer
feuille = "JournalAuxExcel" 'feuille à copier
Set plage = [A1:K210000] 'plage maximum à copier
Set cn = CreateObject("ADODB.Connection")
cn.Open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fichier & ";Extended Properties=""Excel 12.0;HDR=No;IMEX=1;"""
Set rs = cn.Execute("SELECT * FROM [$" & plage.Address(0, 0) & "]")
plage.CopyFromRecordset rs
rs.Close
cn.Close
MsgBox "Durée " & Format(Timer - t, "0.00 \sec")
End Sub

Est-ce plus rapide que Power Query ?

A+

 

[job75]

Chez moi avec la plage A1:K1048576 c'est même un peu plus rapide :

Sub Copier()
Dim fichier As Variant, t, feuille$, plage As Range, cn As Object, rs As Object
fichier = Application.GetOpenFilename("Fichiers Excel (*.xlsx), *.xlsx")
If fichier = False Then Exit Sub
t = Timer
feuille = "JournalAuxExcel" 'feuille à copier
Set plage = [A1:K1048576] 'plage maximum à copier
Set cn = CreateObject("ADODB.Connection")
cn.Open = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & fichier & ";Extended Properties=""Excel 12.0;HDR=No;IMEX=1;"""
Set rs = cn.Execute("SELECT * FROM [$" & plage.Address(0, 0) & "]")
plage.CopyFromRecordset rs
rs.Close
cn.Close
MsgBox "Durée " & Format(Timer - t, "0.00 \sec")
End Sub

 

[iliess]

Mille merci, M. Job.
oui sans passé par le Power Query

 

[job75]

Bonjour iliess,

oui sans passé par le Power Query

Alors sur le fichier de 207 791 lignes quelle est la durée d'exécution de la macro post #50 ?

Le lien a été supprimé, je ne peux plus tester.

A+

 

[Cousinhub]

Bonjour iliess,

Alors sur le fichier de 207 791 lignes quelle est la durée d'exécution de la macro post #50 ?

Le lien a été supprimé, je ne peux plus tester.

A+

Bonjour Job
Chez moi, avec ton code, 13.92 s, et avec PQ 13.50
Sensiblement tout pareil...
Bonne journée

 

[Cousinhub]

Re-,
Et avec le code du #49, 13.35 s

 

[job75]

Merci pour ces infos Cousinhub.

 

[Laurent78]

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.

bonjour,
Il semblerait que le nom du logiciel soit top secret

 

[iliess]

bonjour,
Il semblerait que le nom du logiciel soit top secret

bonjour
Non, Monsieur, ce n'est pas une information confidentielle. Il s'agit plutôt d'un logiciel développé en interne par notre entreprise. Il est exécuté directement dans Mozilla pour effectuer les écritures comptables.

 

[iliess]

Svp monsieur @Cousinhub une dernière question
le nom de l'onglet est différent, et qu'il n'y a qu'un seul onglet. Comment dans cette ligne

.CommandText = Array("SELECT * FROM [JournalAuxExcel]")

Je change le nom de la feuille. Sachant que c'est toujours la première feuille.

 

[job75]

Bonsoir iliess,

Notez que dans mes macros des posts #49 et #50 la variable feuille ne sert à rien.

C'est toujours la 1ère feuille du classeur qui est copiée quel que soit son nom.

A+

 

[iliess]

Bonsoir job75
Oui, vous avez raison, mais je suis obligé d'utiliser Power Query pour plus de tâches et d'options