Autres Problème avec CreateObject("ADODB.Connection")

Roland_M

XLDnaute Barbatruc

• 24 Janvier 2021

• #16

re

bonjour STAPLE1600

@dysorthographie: Quel librairie manquante ?
Ce n'est pas une librairie manquante !
mais des types de données charger avec cette méthode:
Cnx.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & RepSource$ & Fich$ & ";HDR=Yes;IMEX=1"

ET mon problème c'est avec Excel 2007 après avoir installé Excel 2016
ceci ne fonctionne plus avec 2007 ! (sauf avec 2016)
Cnx.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & RepSource$ & Fich$ & ";Extended Properties='Excel 12.0;HDR=Yes;IMEX=1'"

Allez c'est bon je laisse tomber apparemment j'ai beaucoup de mal à me faire comprendre !

merci encore à Patrick !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Janvier 2021

• #17

Rolland
fait une réparation de 2007
normalement les librairies devraient se cumuler(ça m'est arrivé)
mais tu aura toujours des soucis sur certaines librairies malheureusement

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 24 Janvier 2021

• #18

re, Patrick

je voulais simplement comprendre, c'est tout !
et puis ce n'est pas grave, dans l'entreprise en question, ils sont passé à Excel 2016 depuis un moment.
et le principale c'est que ça fonctionne avec 2016 !

merci encore à toi et bonne journée à toi !

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Janvier 2021

• #19

Ok pas de soucis
juste pour le'exercice j'ai testé une adaptation de JB (celle que tu a donnée dans une autre discussion me semble t il)

et a ma grande surprise!!!!! c'est plus rapide qu'adobe.connexion même sur 10000 lignes

VB:

Sub LitClasseurFermé()
Dim ChampAlire As Range, ChampOuCopier As Range, Chemin$, Fichier$, Onglet$
Chemin = ThisWorkbook.Path
Fichier = "exemple source.xlsx"
Onglet = "Feuil1"
Set ChampAlire = [A1:F3]
Set ChampOuCopier = [c3].Resize(ChampAlire.Rows.Count, ChampAlire.Columns.Count)
'execution
LitChamp ChampOuCopier, Chemin, Fichier, Onglet, ChampAlire
End Sub

Sub LitChamp(ChampOuCopier As Range, Chemin, Fichier, Onglet, ChampAlire As Range)
ChampOuCopier.FormulaArray = "='" & Chemin & "\[" & Fichier & "]" & Onglet & "'!" & CStr(ChampAlire.Address(0, 0)) 'formule matricielle
ChampOuCopier = ChampOuCopier.Value 'suppression des formules
End Sub

j'ai le C..! par terre
à me dégoutter d'avoir autant bûché sur Ado

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 24 Janvier 2021

• #20

Bonjour,

A tout zazarr je tenterais de modifier la requête plutôt que la connexion, genre :

SELECT CSTR(ChampQuiPoseProblème) As Truc From ......

Cordialement

 

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 24 Janvier 2021

• #21

re

salut roblochon

@patrick:
je ne me sers plus que ça !
c'est ce que je te disais dans une autre discussion, tu avais du mal à me croire,
moins de 5 secondes sur env. 400 fichiers avec deux champs de données env 130/150 cellules
ça représente sur ma feuille presque 6000 lignes sur 7 colonnes
je load dans une feuille temp et je transfert .value dans un Tablo as variant pour mettre en forme sur la feuille de destination. tout ça en un temps record !
c'est absolument bluffant ! Merci J.B !

cette méthode de (J.B) Jacques Boisgontier n'est pas assez connu !

 

Dernière édition: 24 Janvier 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Janvier 2021

• #22

Ah!! ben oui maintenant je te confirme que c'est plus rapide

après il faut pas tout jeter avec adobe.connexion on peu faire des choses qu'avec cette méthode ce serait un vrai calvaire a coder
le " from certaine colonnes" par exemple ou le "WHERE..."

après avec l'exemple copyfromrecordset je vais aussi vite mais c'est normal c'est un simple calque c'est une simple copie

mais la méthode formulaarray a l'avantage d’être facile a comprendre et à mettre en place même pour un débutant

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Janvier 2021

• #23

Re

[aparté]

après il faut pas tout jeter avec adobe.connexion

Cliquez pour agrandir...

Ah bah, si
Il faut au moins jeter adobe
Car Adobe (oui le gars des PDF) n' a rien à voir dans la connexion.

[/aparté]

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Janvier 2021

• #24

craneur!!!
c'est vrai adaube.connerie

 

Dernière édition: 24 Janvier 2021

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Janvier 2021

• #25

Re

cette méthode de (J.B) Jacques Boisgontier n'est pas assez connu !

Cliquez pour agrandir...

[Pour infos]
Cette méthode est connue depuis au moins aout 2004
Mais pas dans la sphère francophone
Deux indices:
1) Sub GetValuesFromAClosedWorkbook(....
2) Joseph Rubin
[/Pour infos]

Ce qui n'enlève rien à celle de JB.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Janvier 2021

• #26

re
oui je connaissais aussi
mais j'ais découvert adodb avec 2007 et malgré la verbosité assez complexe du codage c'est attrayant
avec 2003 j'utilisais encore les macro excel4 que j'utilise encore d'ailleurs et même avec les api win

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 24 Janvier 2021

• #27

Roland_M à dit:

re

salut roblochon

@patrick:
je ne me sers plus que ça !
c'est ce que je te disais dans une autre discussion, tu avais du mal à me croire,
moins de 5 secondes sur env. 400 fichiers avec deux champs de données env 130/150 cellules
ça représente sur ma feuille presque 6000 lignes sur 7 colonnes
je load dans une feuille temp et je transfert .value dans un Tablo as variant pour mettre en forme sur la feuille de destination. tout ça en un temps record !
c'est absolument bluffant ! Merci J.B !

cette méthode de (J.B) Jacques Boisgontier n'est pas assez connu !

Cliquez pour agrandir...

il faut dans limiter au maximum aux connexion déconnexion c'est ce qui prends le plus de temp!

pour gagner ce temp de connexion il faut faire un connexion sur ThisWorkbook.FullName et effectuer une jointure externe dans tes requêtes!

pour te donner une petite idée!

VB:

Sub test()
With CreateObject("AdoDb.connection")
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1;"""
For i = 1 To 400
    Sheets("Feuil2").Cells(Cells.Rows.Count, "A").End(xlUp).Offset(1).CopyFromRecordset .Execute("Select * from [Feuil1$] in 'C:\Test\test.xlsX' 'Excel 12.0;HDR=No;IMEX=1'")
Nex    .Close
End With
End Sub

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Janvier 2021

• #28

en voila une belle idée Robert
testé et approuvé

 

Vote positif 0 Vote négatif