[Microsoft Query] Enregistrer les requêtes avec des *

Bonjour

J'ai remarqué que quand on fait une requête SELECT * avec MS Query sur une base access, Excel n'enregistre pas cette requête sous la forme SELECT * mais sous la forme SELECT champ1, champ2...
Ce qui pose problème si la structure de la table source dans Access change (dans mon cas, c'est une requête analyse croisée, susceptible de changer souvent).

Exemple : j'écris

Code:

---

1 2	SELECT * FROM matable

---

et quand j'essaye de modifier la requête, elle est comme ça :

Code:

---

SELECT champ1, champ2, champ3 FROM matable

---

Quelqu'un connait-il une méthode pour contourner ce problème ?

Merci d'avance

Je crois qu'avec VBA c'est possible...
Insère cette petite macro dans le module de la feuille en question, et lance la macro :

Code:

---

1 2 3 4 5 6

Sub test() temp = Me.QueryTables(1).CommandText i = InStr(1, temp, "FROM", vbTextCompare) Me.QueryTables(1).CommandText = "SELECT * " & Right(temp, Len(temp) - i + 1) Me.QueryTables(1).Refresh End Sub

---

Merci, j'ai réussi à les corriger avec ce code, mais lors de l'enregistrement par excel, le problème reste entier.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub MAJrequete() 'Mise à jour des requêtes avec un * au lieu des noms de champs For Each feuille In Worksheets   For Each req In feuille.QueryTables   'Debug.Print req.CommandText   Dim reg As New VBScript_RegExp_55.RegExp reg.Pattern = "(select)(.*)(\n| from)" reg.Global = True reg.MultiLine = True reg.IgnoreCase = True tmp = reg.Replace(req.CommandText, "$1" + " * " + "$3") 'Debug.Print tmp Set reg = Nothing   req.CommandText = tmp req.Refresh Next req Next feuille End Sub

---