XL 2019 extraire des données d'un fichier Excel sans l'ouvrir avec VBA

Kenza18 · 19 Décembre 2020

Bonjour,

je souhaite extraire les données d'un fichier Excel très volumineux (lire le fichier sans l'ouvrir).

les données que je veux extraire sont les suivantes :

les cellules du champ code-techno == '4GF'. --> [ ce champ se trouve sur la colonne D]

Est ce que c'est possible de m'aider à trouver une solution avec VBA s'il vous plait ?

En vous remerciant d'avance pour vote aide.

Cordialement,
Kenza

soan · 20 Décembre 2020

Bonsoir @patricktoulon,

tu as été perturbé par la formule ou par la jolie Kenza ? 😜

soan

patricktoulon · 20 Décembre 2020

re
je pense que c'est plutôt pour deux de ton age Soan moi il y a longtemps qu'une gazelle m'a fait les yeux de biche et même si aujourd'hui nous somme moins fringant elle reste ma lumière à tout jamais
et si tu me traite de vieux je te cogne OK 🤪

soan · 20 Décembre 2020

ah ben moi, j'ai aucune idée de ton âge ; mais si t'es une personne âgée,
je les respecte, c'est normal ! 🙂

note que dans les tribus indiennes, par exemple, les personnes âgées sont très respectées ;
et on adore écouter leurs histoires des temps passés. 😜 le mot « vieux » est synonyme
de « très grande sagesse » !

soan

patricktoulon · 20 Décembre 2020

re
oh je pense l’être un peu plus que toi et moins que d'autres dans cette discussion
continue a être comme tu es 😉

soan · 20 Décembre 2020

oui, grand sachem ! 🙏 j'te quitte, j'vais chez Quick ! 🍔

soan

patricktoulon · 20 Décembre 2020

re
@job75 ok c'est bon
je me stocke une petite fonction qui me sera bien utile

VB:

Sub test()
Dim chemin$, Fichier$, Rng As Range, Feuille$
chemin = "C:\Users\polux\DeskTop\"
Fichier = "Exemple.xlsx"
Set Rng = [D1:D100000]
Feuille = "Feuil1"
MsgBox GetLastRowColInClosedFich(chemin, Fichier, Feuille, Rng)
End Sub

Function GetLastRowColInClosedFich(chemin$, Fichier$, Feuille, Rng As Range)
Dim Addr$, Formule, n&
Addr = Rng.Address(, , xlR1C1)
Formule = "'" & chemin & "[" & Fichier & "]" & Feuille & "'!" & Addr
On Error Resume Next
n = ExecuteExcel4Macro("MATCH(""zzz""," & Formule & ")") 'dernière cellule texte en colonne D
On Error GoTo 0
GetLastRowColInClosedFich = n
End Function

histoire d'etre compatible 2003

VB:

Set Rng = [D1].Resize(Rows.Count)

Kenza18 · 20 Décembre 2020

job75 à dit:

Bonjour Kenza18, R@chid, chris,

Téléchargez les fichiers zippés joints dans le même dossier et voyez la macro du bouton :

VB:

Sub Importer()
Dim t#, chemin$, fichier$, dercol$, formule$, n&
t = Timer
chemin = ThisWorkbook.Path & "\" 'à adapter
fichier = "Source.xlsx" 'à adapter
dercol = "H" 'dernière colonne à copier
formule = "'" & chemin & "[" & fichier & "]Feuil1'!"
On Error Resume Next
n = ExecuteExcel4Macro("MATCH(""zzz""," & formule & "C4)") 'dernière cellule texte en colonne D
On Error GoTo 0
'---restitution---
Application.ScreenUpdating = False
With Feuil1 'CodeName de la feuille de destination
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .Range("A1:" & dercol & 1).Resize(n)
        .FormulaArray = "=" & formule & "A1:" & dercol & n 'formule de liaison matricielle
        .Value = .Value 'supprime la formule
       .Rows(1) .Offset(n).Resize(Rows.Count - n).ClearContents 'RAZ en dessous
        .Sort .Columns(4), Header:=xlYes 'tri pour regrouper et accélérer
        .Columns(4).Replace "4GF", "#N/A"
        On Error Resume Next
        .Columns(4).Offset(1).SpecialCells(xlCellTypeConstants, 3).EntireRow.Delete 'textes et nombres
        .Columns(4).Replace "#N/A", "4GF"
        .Replace 0, "", xlWhole 'efface les valeurs zéro
    End With
    With .UsedRange: End With 'actualise les barres de défilement
End With
MsgBox "Durée " & Format(Timer - t, "0.00 \sec"), , "Import"
End Sub

Chez moi pour un fichier Source de 40 000 lignes la durée d'exécution est de 1,70 seconde.

A+

merci bcp pour ta réponse par contre il y a un petit souci
mon fichier comporte 30000000 lignes c'est quasiment impossible de l'importer sur le classeur Excel
est ce que c'est possible de modifier le programme en prenant compte cette remarque
par exemple ajouter une condition (si ça dépasse la capacité d'une feuille --> le copier sur une nouvelle feuille etc.)
PS: j'ai essayé de le faire mais j'ai as pu 🙁

Merci bcp pour ton aide

chris · 20 Décembre 2020

RE

Je ne comprends pas : le fichier d'origine n'est pas Excel si tu as 30 millions de lignes...

Tu as bien indiqué Excel dans ton 1er post...

Kenza18 · 20 Décembre 2020

chris à dit:
RE

Je ne comprends pas : le fichier d'origine n'est pas Excel si tu as 30 millions de lignes...

Tu as bien indiqué Excel dans ton 1er post...

si c'est un fichier Excel avec une extension CSV mais par contre je ne peux pas l'ouvrir car il est très volumineux
pour voir ce qui y 'a dedans je fais un split pour le découper ou bien j'essaie de l'ouvrir avec powerQuery

chris · 20 Décembre 2020

RE

CSV n'est pas un fichier Excel mais un fichier texte

Excel peut l'ouvrir, assez mal la plupart du temps, et pas s'il fait plus d'1 million de lignes

Si tu as Office voir si Access y arrive

job75 · 20 Décembre 2020

Utiliser plutôt un fichier texte .txt.

Vous l'étudierez par une lecture séquentielle des lignes, c'est très rapide.

Il y a pas mal d'exemples sur ce forum.

Kenza18 · 20 Décembre 2020

chris à dit:
RE

CSV n'est pas un fichier Excel mais un fichier texte

Excel peut l'ouvrir, assez mal la plupart du temps, et pas s'il fait plus d'1 million de lignes

Si tu as Office voir si Access y arrive

Non j'arrive pas à l'ouvrir avec Access
dans ce cas qu'est ce que vous me conseillez de faire ?

soan · 20 Décembre 2020

Bonsoir @Kenza18, le fil,

quand @chris t'a proposé d'utiliser Access, ce n'est pas pour lire ton fichier csv
mais pour créer un fichier Access d'extension « .mdb » ; sinon, lis le post #28
de @job75.

« lecture séquentielle » signifie : lire les lignes successivement, de la 1ère ligne
du fichier jusqu'à la dernière ligne du fichier.

soan

Kenza18 · 20 Décembre 2020

job75 à dit:
Utiliser plutôt un fichier texte .txt.

Vous l'étudierez par une lecture séquentielle des lignes, c'est très rapide.

Il y a pas mal d'exemples sur ce forum.

RE
merci pour votre réponse.

comment je peux le faire est ce que vous avez un exemple concret ou un code pour mon problème s'il vous plait ?

Kenza18 · 20 Décembre 2020

soan à dit:
Bonsoir @Kenza18, le fil,

quand @chris t'a proposé d'utiliser Access, ce n'est pas pour lire ton fichier csv
mais pour créer un fichier Access d'extesion « .mdb » ; sinon, lis le post #28
de @job75.

soan

ok merci

XL 2019 extraire des données d'un fichier Excel sans l'ouvrir avec VBA

Kenza18

XLDnaute Nouveau

soan

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Kenza18

XLDnaute Nouveau

chris

XLDnaute Barbatruc

Kenza18

XLDnaute Nouveau

chris

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Kenza18

XLDnaute Nouveau

soan

XLDnaute Barbatruc

Kenza18

XLDnaute Nouveau

Kenza18

XLDnaute Nouveau

Discussions similaires

XL 2019 extraire des données d'un fichier Excel sans l'ouvrir avec VBA

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency