XL 2021 Créer une requête SQL pour lire plusieurs Ranges?

p'tit vieux

p'tit vieux

XLDnaute Occasionnel
Bonjour à tous
j'essaie de créer une requête SQL pour lire des Ranges (2 voire plus -Soyons fous 🤪) pour avoir un résultat en colonneS correspondant.
Voici mon code avec plusieurs essais de requêtes. J'y ai mis des commentaires au dessus de chacune d'elle.
Bien sûr il y a toujours la solution de faire une requête sur chaque Range et de créer le tableau compilant les résultats mais pourquoi faire simple 😁
Si quelqu'un a une ou des idées par avance merci à vous

VB: 
Sub Test1()
Dim Fichier, ConnectString
Dim Query_str
Dim arr, arr2
Dim RsTLigne, RsTCol

'===== Early Binding !! =========
Dim ADOConn As ADODB.Connection
Dim AdoComand As ADODB.Command
Dim RsT As ADODB.Recordset

  Set ADOConn = New ADODB.Connection
  Set RsT = New ADODB.Recordset
  Set AdoComand = New ADODB.Command
 
  Fichier = ActiveWorkbook.FullName
 
  ConnectString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=No;IMEX=1;"""
  
  ADOConn.Open ConnectString

'' => OK MAIS:
'' Le 1er RANGE du SELECT DOIT INCLURE la zone du RANGE du 2éme SELECT (celui du IN): Ici [Feuil1$A2:B11] et [Feuil1$B2:B11]
'' Close WHERE ET IN à créer complexe si plus de 2 Ranges. Pas testé avec plus de 2 Ranges
  Query_str = "Select * from [Feuil1$A2:B11] where [F2] in (select [F1] from [Feuil1$B2:B11])"

'' => Resultat exact MAIS:
'' PROBLEME j'ai un tableau 1D des 2 Ranges au lieu d'un tableau 2D
'  Query_str = "Select * from [Feuil1$B2:B11] union all Select * from [Feuil1$A2:A11]"

'' => NON! Pas d'erreur mais résultat UNION
'  Query_str = "Select * from [B2:B92],[A2:A92]"

'' => IDEM CI-DESSUS malgré le nom du classeur.
'  Query_str = "Select * from [Feuil1$B2:B11],[Feuil1$A2:A11]"

'' => IDEM CI-DESSUS avec champs nommées F1 plus nom sur 2 classeurs
'  Query_str = "Select [Feuil1$B2:B11.F1], [Feuil2$A2:A11.F1] from [Feuil1$B2:B11],[Feuil2$A2:A11]"

'' => NON! ERREUR!
'  Query_str = "Select [F1],[F2] from [Feuil1$B2:B11],[Feuil1$A2:A11]"

  RsT.Open Query_str, ADOConn, adOpenStatic

' Affichage
  Range("Q2").CopyFromRecordset RsT
 
' Fermeture
  If RsT.State = adStateOpen Then
    RsT.Close
  End If
  Set RsT = Nothing
  If ADOConn.State = adStateOpen Then
    ADOConn.Close
  End If
  Set ADOConn = Nothing

End Sub
 
Dernière édition:
Trier par date Trier par votes
p'tit vieux

p'tit vieux

XLDnaute Occasionnel
Oui il peut y avoir une quantité certaine. Je ne la contrôle pas.

Juste pour le "fun" voici un comparatif de ce que fait/faisait mon appli tu comprendras mieux.
Je dis "faisait" car j'ai ajouté tut ce qui est datas externes.
Je suis aussi en train d'écrire/intégrer d'autres fonctionnalités (Récursivité, comparaison type "Between, <= , >= etc. )
 

Pièces jointes

  • COMPARE FINDX.pdf
    903.9 KB · Affichages: 2
Dernière édition:
Vote positif 0 Vote négatif
Dranreb

Dranreb

XLDnaute Barbatruc
Je ne vois aucun rapport entre votre image et la demande.
Le résultat que j'envisageai de produire comportait :
1) — Une référence du classeur et de la feuille source, devant obligatoirement comporter une plage sous forme de tableau.
2) — Sous forme de tableau, une liste des intitulés et des valeurs retenues.
3) — Sous forme de tableau, les colonnes n'ayant pas fait l'objet d'un choix avec les valeurs trouvées dans toutes les lignes.
Mes modules de services sont à considérer comme faisant partie de fournitures privées dont il n'y a pas lieu de chercher comment il fonctionnent pour savoir comment il convient de s'en servir dans la programmation que je qualifie par opposition de "applicative".
J'envisageais d'installer un module standard de service MSujetCBx pour l'élaboration de listes classées et sans doublon destinées à des ComboBox, un module de classe ComboBoxLiées qui combine la gestion de plusieurs ComboBox, un module de classe ComboBoxMmbr à usage interne comme support des ComboBox membres de l'ensemble des ComboBox prises en charge.
Il s'y ajouterais un UserForm utilisant tout ça, qu'il resterait à développer …
 
Dernière édition:
Vote positif 0 Vote négatif
p'tit vieux

p'tit vieux

XLDnaute Occasionnel
Dranreb à dit:
Je ne vois aucun rapport entre votre image et la demande.
Le résultat que j'envisageai de produire comportait :
1) — Une référence du classeur et de la feuille source, devant obligatoirement comporter une plage sous forme de tableau.
2) — Sous forme de tableau, une liste des intitulés et des valeurs retenues.
3) — Sous forme de tableau, les colonnes n'ayant pas fait l'objet d'un choix avec las va
Cliquez pour agrandir...
Le rapport?
Dans mon appli je collecte:
1) ce que est recherché,
2) où le chercher
3) ce que l'utilisateur veut obtenir comme résultat
Enfin affichage des résultats

Je cherche à optimiser certaines collectes et traitements (avant et après collectes) de datas de mon appli (question de vitesse)

Donc la requête SQL est juste une idée pour savoir/tester si cela irait plus vite que ce que je fais maintenant dans ma nouvelle (béta) version.
 
Vote positif 0 Vote négatif
dysorthographie

dysorthographie

XLDnaute Accro
VB: 
Option Explicit

Sub Test1()
Dim Fichier, ConnectString
  Fichier = ActiveWorkbook.FullName
  ConnectString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1;"""
    With CreateObject("Adodb.connection")
    .Open ConnectString
     Range("I2").CopyFromRecordset .Execute(SqlForTo(10, 25)) 'Imagine que j'ai 2 ranges du genre: Range("A10:A25") et Range("C10:C25")
     .Close
  End With
End Sub


Function SqlForTo(Debut As Integer, Fin As Integer) As String
SqlForTo = "Select [Jour],[T° _moyenne/jour] from(" & _
"Select top " & (Fin - Debut + IIf(Debut <10, 2, 1)) & " * " & _
"from(" & vbCrLf & _
"       Select top " & (Fin - 1) & " [Date],[Jour],[T° _moyenne/jour] from [Feuil1$] " & vbCrLf & _
")order by [Date] desc)" & vbCrLf & _
"order by [Date] "
End Function
 
Dernière édition:
Vote positif 0 Vote négatif
p'tit vieux

p'tit vieux

XLDnaute Occasionnel
dysorthographie à dit:
VB: 
Option Explicit

Sub Test1()
Dim Fichier, ConnectString
  Fichier = ActiveWorkbook.FullName
  ConnectString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1;"""
    With CreateObject("Adodb.connection")
    .Open ConnectString
     Range("I2").CopyFromRecordset .Execute(SqlForTo(10, 25)) 'Imagine que j'ai 2 ranges du genre: Range("A10:A25") et Range("C10:C25")
     .Close
  End With
End Sub


Function SqlForTo(Debut As Integer, Fin As Integer) As String
SqlForTo = "Select [Jour],[T° _moyenne/jour] from(" & _
"Select top " & (Fin - Debut + IIf(Debut = 2, 2, 1)) & " * " & _
"from(" & vbCrLf & _
"       Select top " & (Fin - 1) & " [Date],[Jour],[T° _moyenne/jour] from [Feuil1$] " & vbCrLf & _
")order by [Date] desc)" & vbCrLf & _
"order by [Date] "
End Function
Cliquez pour agrandir...
Re @dysorthographie
Waouh! Bravo! Je te nomme "REQUETEUR SQL EN CHEF"
Le temps des vacances 😁🤣

Ca marche … Mais !! (Oui je sais encore un mais. Désolé SNIF!)
Il reste quelques trucs que moi pas compris.
Lorsque je remplace les valeurs 10,25 par 2, 400 ...
1) Execute(SqlForTo(2, 400)) j'ai:
Select [Jour],[T° _moyenne/jour] from(Select top 400 * from(
Select top 399 [Date],[Jour],[T° _moyenne/jour] from [Feuil1$]
)order by [Date] desc)
order by [Date]

A cause du (Fin - 1). Pourquoi le -1?

2) L'affichage du résultat est mauvais dans l'exemple il commence à s'afficher à la ligne 36.
Pas compris pourquoi la ligne 36. Mystère.

3) Imaginons que je n'ai pas les entêtes:
par quoi puis-je remplacer [Date], [Jour] etc.
Par [Feuil1$B2:B400], [Feuil1$A2:A400] etc. ??

Je viens tester en remplaçant HDR= No et [Date] etc. par [Feuil1$B2:B400] etc.
J'ai l'erreur suivante:
-2147217904 Microsoft Access Database Engine Aucune valeur donnée pour un ou plusieurs des paramètres requis. 0
Quid si pas d'entête? Ce qui le cas à 99%.
 
Dernière édition:
Vote positif 0 Vote négatif
dysorthographie

dysorthographie

XLDnaute Accro
VB: 
Option Explicit

Sub Test1()
Dim Fichier, ConnectString
  Fichier = ActiveWorkbook.FullName
  ConnectString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=no;IMEX=1;"""
    With CreateObject("Adodb.connection")
    .Open ConnectString
     Range("I2").CopyFromRecordset .Execute("select [F1],[F3] from [Feuil1$A10:C25]")
     .Close
  End With
End Sub
 
Vote positif 0 Vote négatif
p'tit vieux

p'tit vieux

XLDnaute Occasionnel
dysorthographie à dit:
VB: 
Option Explicit

Sub Test1()
Dim Fichier, ConnectString
  Fichier = ActiveWorkbook.FullName
  ConnectString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=no;IMEX=1;"""
    With CreateObject("Adodb.connection")
    .Open ConnectString
     Range("I2").CopyFromRecordset .Execute("select [F1],[F3] from [Feuil1$A10:C25]")
     .Close
  End With
End Sub
Cliquez pour agrandir...

mais en utilisant ta function SqlForTo [F n] ça ne marche plus.

Bon je vais encore réfléchir à ça demain.
Merci pour ton aide

Bonne soirée à tous
 
Vote positif 0 Vote négatif
dysorthographie

dysorthographie

XLDnaute Accro
VB: 
Option Explicit

Sub Test1()
Dim Fichier, ConnectString
  Fichier = ActiveWorkbook.FullName
  ConnectString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=No;IMEX=1;"""
    With CreateObject("Adodb.connection")
    .Open ConnectString
     Range("I2").CopyFromRecordset .Execute(SqlForTo(10, 25)) 'Imagine que j'ai 2 ranges du genre: Range("A10:A25") et Range("C10:C25")
     .Close
  End With
End Sub


Function SqlForTo(Debut As Integer, Fin As Integer) As String
SqlForTo = "Select [F1],[F3] from(" & _
"Select top " & (Fin - Debut + 1) & " * " & _
"from(" & vbCrLf & _
"       Select top " & Fin  & " * from [Feuil1$] " & vbCrLf & _
")order by [F2] desc)" & vbCrLf & _
"order by [F2] "
End Function
 
Dernière édition:
Vote positif 0 Vote négatif
dysorthographie

dysorthographie

XLDnaute Accro
VB: 
Option Explicit

Sub Test1()
Dim Fichier, ConnectString
  Fichier = ActiveWorkbook.FullName
  ConnectString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Fichier & ";Extended Properties=""Excel 12.0;HDR=No;IMEX=1;"""
    With CreateObject("Adodb.connection")
    .Open ConnectString
     Range("I2").CopyFromRecordset .Execute(SqlForTo(100, 110)) 'Imagine que j'ai 2 ranges du genre: Range("A10:A25") et Range("C10:C25")
     .Close
  End With
End Sub


Function SqlForTo(Debut As Integer, Fin As Integer) As String
Dim nb As Integer
nb = Fin - Debut + 2
SqlForTo = "Select [F1],[F3] from(" & _
"Select top " & (nb - 1) & " * " & _
"from(" & vbCrLf & _
"       Select top " & (Fin - 1) & " * from [Feuil1$]  where [F2]<>'Date'" & vbCrLf & _
")order by format([F2],'yyyy-mm-dd') desc)" & vbCrLf & _
"order by format([F2],'yyyy-mm-dd')  "
End Function
 
Vote positif 0 Vote négatif

Discussions similaires

S
  • Question
Microsoft 365 VBA Requette SQL sur un autre fichier excel
Réponses
13
Affichages
373
dysorthographie
dysorthographie
J
  • Question
Microsoft 365 problème avec un requête MySQL
Réponses
8
Affichages
675
Hasco
Hasco
VBA_dev_Anne_Marie
  • Résolu(e)
XL 2019 SQL ADODB avec plusieurs lignes en input
2
Réponses
17
Affichages
2 K
fanch55
fanch55
J
  • Question
XL 2016 VBA : Erreur automation - requête sur un fichier ouvert
Réponses
1
Affichages
935
fanch55
fanch55
B
  • Question
Autres Retour d'erreur SQL / Firebird
Réponses
5
Affichages
1 K
dysorthographie
dysorthographie
P
  • Question
XL 2016 Données non rapatriées via CopyFromRecordset
Réponses
9
Affichages
1 K
Polobe36
P
Fredox
  • Question
XL 2016 [Résolu] - [VBA] Récupérer le nom de la feuille 1 d'un fichier externe ouvert dans la procédure
Réponses
5
Affichages
2 K
Fredox
Fredox
G
  • Question
Microsoft 365 Ecrire dans un classeur ferme
Réponses
2
Affichages
3 K
patricktoulon
patricktoulon
F
  • Question
Microsoft 365 Recordset avec fichier TSV
2
Réponses
15
Affichages
3 K
Hasco
Hasco
patricktoulon
  • Résolu(e)
XL 2013 excercice2 ADO récupération de données de type différent dans la même colonnes
Réponses
12
Affichages
2 K
patricktoulon
patricktoulon

Membres actuellement en ligne

17 membres et 355 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
314 698
Messages
2 112 019
Membres
111 400
dernier inscrit
mandaille