Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Programmation

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

Dernière réponse le 16 jui 2009 à 11:38:42 eXqO, le 15 jun 2009 à 10:23:14

Signaler ce message aux modérateurs

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 !

Configuration: Windows XP
Firefox 3.0.10

Posez votre question Répondre

banbiou, le 16 jui 2009 à 11:38:42

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

Répondre à banbiou

Posez votre question Répondre