etablier une connexion web

[raidinio]

Bonjour,

actuellement je suis sur un fichier excel et je souhaite recuperer des données d'une page web verouille. jusque la j'arrive à telecharger les données je fais données> données externes> nouvelles requetes.
j'ai creer une macro de facon des que je clique su ma macro je recupere automatiquement les données, sauf que chaque fois que j'ouvre mon fichier excel une deuxiéme fois je dois modifier la requete pour que ma macro marche en fait je dois aller dans données> données externes> modifier la requete sinon j'ai un tableau tout blanc. est-ce qq peut m'aider

merci d'avance

 

[Minick]

Re : etablier une connexion web

Sans rien comme base difficile de repondre.
Donne nous au moins le code (en prenant soins de virer utilisateur et mdp de la requete)
Apres on verra si on peut voir quelque chose sans acceder au site

 

[raidinio]

Re : etablier une connexion web

Sub WebQueryUpdateDynamicURL()

Dim Qt As QueryTable
Dim Sht As Worksheet
Dim strWebAddr As String
Dim WebTableNb As String

Dim strDecimal As String
Dim strThousand As String
Dim boolUserSystem As String

Dim i As Integer

On Error Resume Next

' Go to SAPBW_DOWNLOAD hidden sheet
Worksheets("SAPBW_DOWNLOAD").Activate
ActiveSheet.Unprotect
Application.ScreenUpdating = False

Set Sht = ActiveSheet

'Clear content of sheet
Sht.Range("A1:Z100").ClearContents

strWebAddr = Range("BWURL")
WebTableNb = Range("WebTableNb")

' Note : dynamic URL is stored in named range BWURL2

With Application
'Store number format settings.
strDecimal = .DecimalSeparator
strThousand = .ThousandsSeparator
boolUserSystem = .UseSystemSeparators

'Set XL separators to match the Web site.
.DecimalSeparator = ","
.ThousandsSeparator = "."
.UseSystemSeparators = False

End With

With ActiveSheet.QueryTables.Add( _
Connection:="URL;" & strWebAddr, _
Destination:=Range("A1"))
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
' .SaveData = True
' Better not to save Query definition because stored in macro
.SaveData = False
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebTables = WebTableNb
' .WebFormatting = xlWebFormattingRTF
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
' .WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
' .WebDisableRedirections = False
.Refresh BackgroundQuery:=False
'To remove the query definition in the sheet
.Delete

End With

With Application

'Reset number format settings.
.DecimalSeparator = strDecimal
.ThousandsSeparator = strThousand
.UseSystemSeparators = boolUserSystem

End With

On Error Resume Next

Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

 

[Minick]

Re : etablier une connexion web

A tout hazard essaie de changer ce parametre

.RefreshOnFileOpen = False

en

.RefreshOnFileOpen = True

 

[raidinio]

Re : etablier une connexion web

j'ai toujours le tableau vide

 

[raidinio]

Re : etablier une connexion web

toujours tableau vide

 

[Minick]

Re : etablier une connexion web

Serait il possible d'envoyer le fichier.
Si trop sensible eventuellement en MP

 

[raidinio]

Re : etablier une connexion web

desole mais j'ai pas compris en MP

 

[Minick]

Re : etablier une connexion web

par messagerie

 

[raidinio]

Re : etablier une connexion web

je peux pas

 

[raidinio]

Re : etablier une connexion web

merci comme mm de ton aide

 

[Minick]

Re : etablier une connexion web

Je me doutais un peu 😱)

Essaie ce parametre que j'avais zappé

.SaveData = False

en

.SaveData = True

 

[raidinio]

Re : etablier une connexion web

non plus ca marche pas

 

[Minick]

Re : etablier une connexion web

Peut etre une piste.

Dans ta macro tu n'indiques pas le numero de la table a recuperer.

.WebTables = "xxxx"

Lance l'enregistreur pour connaitre le numero et integre le a ta macro

 

[raidinio]

Re : etablier une connexion web

je sais pas faire cette manip est-ce que tu peux m'expliquer merci