Importation depuis Web ne fonctionne pas

Le 10/10/2017 à 19:13

Bonjour à tous !

J'ai un gros soucis au boulot. Je dois importer des data depuis un site interne à l'aide d'une macro (étant donné que les dates définies dans mon URL changent en fonction de mes paramètres).

Mon entreprise dispose de ses propres serveur inaccessible depuis l'extérieur.

Etant débutant en VBA, j'ai enregistré ma macro.

Du coup, je fais "importer data depuis page web", je rentre mon URL, je sélectionne ma table et ça importe bien les données souhaitées.

J'arrête l'enregistrement.

Je check le code, il me semble cohérent avec un autre code VBA d'importation de données (qui lui fonctionne toujours).

Le problème, c'est que lorsque je veux relancer ma macro (sans même rien changer), ça plante tout de suite à la première ligne.

Le code qui fonctionne :

Sub update_rosterXXX()
Worksheets("rosterXXX").Range("A1:H1000000").ClearContents
    With Worksheets("rosterXXX").QueryTables.Add(Connection:= _
        "URL;https://fclm-portal.monsite.com/reports/passwordExpiration?warehouseId=" + "XXX" _
        , Destination:=Worksheets("rosterXXX").Range("$A$1"))
        .Name = "passwordExpiration?warehouseId=" + "XXX"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "3"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        .Delete
    End With

End Sub

Mon cote à problème plante à la ligne équivalente à :

    With Worksheets("rosterXXX").QueryTables.Add(Connection:= _
        "URL;https://fclm-portal.monsite.com/reports/passwordExpiration?warehouseId=" + "XXX" _
        , Destination:=Worksheets("rosterXXX").Range("$A$1"))

Je ne comprends donc pas pourquoi mon importation fonctionne mais que derrière de nouvelles importations soient impossibles.

(alors que le code ressemble trait pour trait à un autre code qui lui fonctionne - interne en entreprise également)

Des idées pour me débloquer ?

Merci.

Pierre

Le 10/10/2017 à 19:22

Bonsoir pierre_split,

As-tu regarder ici ? ça devrait te mettre sur la voie:

https://www.blog-excel.com/importer-des-donnees-site-web/

Cordialement,

Le 10/10/2017 à 20:23

Bonjour xorsankukai !