SQL dans macro excel

Bonjour à tous,

Je voudrais savoir, s'il est possible d'utiliser du SQL dans une macros

Précisément je cherche à alléger un fichier excel qui fait 12 mo
et des requêtes sql si cela fonctionne allégerais son temps de traitement.

Donc, est-il possible de récupérer les élément d'un onglet "operation de tresorerie", les colonnes A à H, U et V, en fonction d'un nom que je saisie dans un combo box "nom"

pour les mettes dans un onglet "extraction" sur les colonnes A à J

Avec comme critères de sélection :
1) la valeur dans la combobox "nom" qui se situe dans la colonne B
2) la lettre a qui se situe dans la colonne V de l'onglet "operation de tresorerie"

Merci.

J'espère avoir été assez explicite

Bonjour,
j'ai trouvé ce lien:http://www.developpez.net/forums/d93...el/#post618327

Bonjour,
Il est également possible d'extraire des lignes d'une liste de données excel en fonction de critères en utilisant les filtres avancés d'excel (En VBA c'est la méthode AdvancedFilter de l'objet Range).
Un tutoriel sur le sujet Les filtres avancés ou élaborés dans Excel

Merci

Donc on peu effectivement utiliser le sql via ADO

Mais j'avoue mon ignorance en la matière, c'est la première fois que je vais tenter cela

1) si je comprend bien je dois d'abord activer dans la bibliothèque
X Data Objects 2.X Library ?

2) mon code actuellement se présente comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Private Sub nom_Change() Application.ScreenUpdating = False Sheets("critère").Activate Range("b2").Value = nom.Value         Sheets("extraction").Select Cells.Select Range("H1").Activate Selection.ClearContents Sheets("operation de tresorerie").Columns("A:v").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("critère").Rows("1:2"), CopyToRange:=Range("A1"), _ Unique:=False Columns("J:j").Select Selection.Delete Shift:=xlToLeft Columns("k:t").Select Selection.Delete Shift:=xlToLeft   Range("K1").Select ActiveCell.FormulaR1C1 = "=SUM(C[-2])" Range("K2").Select           totalbox = Range("k1").Value totalbox = Replace(totalbox, ",", ".") np.Value = Range("k1").Value list_operation.ColumnHeads = True 'en tete de colone list_operation.ColumnCount = 10 ' nombre de colone a afficher list_operation.ColumnWidths = "60,40;80;40;40;40;40;40;50;50" list_operation.RowSource = "extraction!a2:j" & Range("extraction!b65536").End(xlUp).Row ' etendue de la liste a fficher list_operation.MultiSelect = fmMultiSelectMulti Application.ScreenUpdating = True End Sub

---

Comment faire intervenir une requête sql ?
N'ayant jamais fait cela, je suis dans le brouillard

3) toute requête doit être précédé de " rSQL =" ?

4) Si je veux, à partir du nom inscrit dans la combobox "nom", executer ma sélection est-ce que la requête semble correct :

Code:

---

select * from [operation de tresorerie] where [B]=nom.values and [v]='a'

---

Sachant que la colonne B contiens les nom et la colonne V, soit la lettre a ou l

Merci pour votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

Private Sub nom_Change() Application.ScreenUpdating = False Sheets("critère").Range("b2").Value = nom.Value Sheets("extraction").Range("H1").ClearContents   FiltreActif Range("A1"), Sheets("critère").UsedRange, Sheets("operation de tresorerie").Columns("A:v"), False     Columns("J:j").Delete Shift:=xlToLeft Columns("k:t").Delete Shift:=xlToLeft   Range("K1").FormulaR1C1 = "=SUM(C[-2])"             totalbox = Range("k1").Value totalbox = Replace(totalbox, ",", ".") np.Value = Range("k1").Value list_operation.ColumnHeads = True 'en tete de colone list_operation.ColumnCount = 10 ' nombre de colone a afficher list_operation.ColumnWidths = "60,40;80;40;40;40;40;40;50;50" list_operation.RowSource = "extraction!a2:j" & Range("extraction!b65536").End(xlUp).Row ' etendue de la liste a fficher list_operation.MultiSelect = fmMultiSelectMulti Application.ScreenUpdating = True End Sub   Function FiltreActif(RangeSource As Range, CriterRange As Range, CopyRange As Range, Optional Unique As Boolean = True) As Boolean FiltreActif = False On Error Resume Next RangeSource.AdvancedFilter Action:= _ xlFilterCopy, CriteriaRange:=CriterRange _ , CopyToRange:=CopyRange, Unique:=Unique DoEvents If Err = 0 Then FiltreActif = True On Error GoTo 0 End Function

---

Merci pour l'amélioration du code,

donc aucune utilisation de sql...

je teste cela lundi

Bonjour,

ça ne fonctionne pas du tout

aucune action sur la feuille extration

bonjour,
peux tu me donner un fichier XLS?

voici le fichier

je l'ai alléger au maximum

avec le code d'origine pour que tu puisse voir ce que cela fait lorsque je change de nom

merci pour ton aide

Regarde ça

ça fonctionne :)

cela consomme-t-il moins ressource que ma version ?

non sauf que ma fonction est réutilisable, éprouvé depuis des années.
ça t'évite de te creuser la tête pour adapter à une autre application.
de plus j'ai pas analysé ton code vue que ma méthode fonction à quoi bon. ceci dit, il fallait supprimer le valeur de la feuille extraction, c'est surtout ça qui faisait que ça ne marchait pas.

évite quand même les Select,Selection et autres Active

Code:

---

1 2	Sheets("critère").Activate Range("b2").Value = nom.Value

---

Code:

---

Sheets("critère").Range("b2").Value = nom.Value

---

Merci