Discussion :

[guidav]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SELECT *
FROM matable

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT champ1, champ2, champ3 FROM matable

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

Merci d'avance

[dadavyvy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[guidav]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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