etablier une connexion web

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

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

Re : etablier une connexion web

A tout hazard essaie de changer ce parametre
en

Re : etablier une connexion web

j'ai toujours le tableau vide

Re : etablier une connexion web

toujours tableau vide

Re : etablier une connexion web

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

Re : etablier une connexion web

desole mais j'ai pas compris en MP

Re : etablier une connexion web

par messagerie

Re : etablier une connexion web

je peux pas

Re : etablier une connexion web

merci comme mm de ton aide

Re : etablier une connexion web

Je me doutais un peu 😱)

Essaie ce parametre que j'avais zappé


en

Re : etablier une connexion web

non plus ca marche pas

Re : etablier une connexion web

Peut etre une piste.

Dans ta macro tu n'indiques pas le numero de la table a recuperer.
Lance l'enregistreur pour connaitre le numero et integre le a ta macro

Re : etablier une connexion web

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