A voir également:
- [VBA] Récupérer résultat d'un requête SQL
- Comment recuperer un message supprimé sur whatsapp - Guide
- Resultat foot - Télécharger - Vie quotidienne
- Comment récupérer un compte facebook piraté - Guide
- Récupérer mon compte facebook désactivé - Guide
- Comment récupérer un document dans le presse-papier samsung - Guide
1 réponse
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