[VBA] Récupérer résultat d'un requête SQL

Question

Bonjour,

Tout d'abord je tiens à préciser que je suis novice en VBA ! :)
Voilà mon soucis, je suis en possession d'une requête SQL qui me fournie un certain nombre de statistique que j'aimerai incorporer dans un tableau Excel à l'aide d'une macro (je précise que ça se fera de façon régulière, toute les semaine)

J'ai beau chercher sur internet avec mon ami Google...j'ai pas trouvé grand chose pour m'aider à part l'objet QueryDef dont l'utilisation n'a pas été comprise...:s

Merci d'avance !

banbiou · Answer

autre question qui pourra t'aider en plus ;)
Voila j'ai voulu réaliser une requete qui me raporte mes données sur feuil Excel.
J'ai deux code de même sorte : 1 qui fonctionne (le 1er) et un autre que je croyais juste.
Je ne trouve pas mon erreur, et je déteste ca.. lol pouvez vous m'aider ?
Merci 

Voici les deux codes :

Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 16/07/2009 par Fbernard
'

'
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://za21ncy/Vectra_prod/Artemis_cdecps.php", Destination:=Range("A1") _
        )
        .Name = "Artemis_cdecps_2"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

------------------------------------------------------------------------------------

Dim url_connect As String
url_connect = "URL;http://za21ncy/Vectra_prod/Artemis_cdecps.php"

With Worksheets("vectra_DATA").Range("A1").QueryTable
    .Connection = url_connect
    .WebSelectionType = xlAllTables
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .Refresh BackgroundQuery:=False
End With

[VBA] Récupérer résultat d'un requête SQL

1 réponse

Discussions similaires

Newsletters