Discussion :

[Pynouz]

Bonjour,
J'ai un classeur excel où j'effectue plusieurs requêtes sur une base de donnée MySQL. Pour cela, j'ai donc installer ODBC. J'ai fais mes requêtes jusqu'ici en faisant: données--> données externes --> à partir d'autres sources--> provenance: Microsoft Query--> NomBdd. (puis je constuire ma requête)
J'aimerai maintenant mettre une de mes requêtes directement dans le code VBA d'une macro mais je ne sais pas comment faire. J'ai cherché sur différent sites mais n'y est rien trouvé de concluant.
Si vous avez une idée..

EDIT: Sinon est t'il possible de rafraichir juste une cellule? je sais qu'il existe la méthode refresh.

Code :

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

1
2
'exemple
ThisWorkbook.RefreshAll

Mais est-il possible de faire de même pour une unique cellule ou une seul feuille?

[Maryy]

Bonjour !

Je viens d'être aidée sur un autre post concernant une requête dans VBA, moi-même apprenant actuellement à le faire. Je te copie-colle mon code en espérant que ça puisse t'aider. Moi aussi j'ai galéré pour trouver quelque chose sur internet !

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Sub test()
 
Dim Requete As String, Conn As String, Sh As Worksheet
 
Set Sh = Sheets("Feuil1")
 
'La chaîne de connexion
 Conn = "ODBC;"
 Conn = Conn & "DSN=maDSN;"
 Conn = Conn & "DATABASE=bdd;"
 Conn = Conn & "SERVER=monServeur;"
 Conn = Conn & "SRVR=monSrvr;"
 
 
'la chaîne de la requête
Requete = "SELECT fzaf.cdsoc, fzaf.noaff, fzea.cdeta " & _
         "FROM fzre, f_no, fzaf, fzea " & _
         "WHERE fzno.noneu  = fzre.noneu " & _
         "AND fzaf.sraff  = fzre.sraff; "
 
With Sh.QueryTables.Add(Connection:=Array(Conn), Destination:=Sh.Range("A1"))
Sh.Range("A1").CurrentRegion.ClearContents
.CommandText = Requete
.Name = "xxxx"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
 
End Sub

Voilou !