[VBA] Récupérer résultat d'un requête SQL
Fermé
eXqO
Messages postés
49
Date d'inscription
vendredi 25 avril 2008
Statut
Membre
Dernière intervention
26 septembre 2009
-
15 juin 2009 à 10:23
banbiou Messages postés 70 Date d'inscription mercredi 6 février 2008 Statut Membre Dernière intervention 4 août 2015 - 16 juil. 2009 à 11:38
banbiou Messages postés 70 Date d'inscription mercredi 6 février 2008 Statut Membre Dernière intervention 4 août 2015 - 16 juil. 2009 à 11:38
A voir également:
- [VBA] Récupérer résultat d'un requête SQL
- Comment récupérer un compte facebook piraté - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
- Recuperer video youtube - Guide
- Récupérer photo instagram - Guide
- Recuperer mon compte gmail - Guide
1 réponse
banbiou
Messages postés
70
Date d'inscription
mercredi 6 février 2008
Statut
Membre
Dernière intervention
4 août 2015
32
16 juil. 2009 à 11:38
16 juil. 2009 à 11:38
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
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
