Discussion :

[grostathar]

Bonjour a vous

Je cherche par l'intermédiaire d'une macro a importer une page web dans une feuilles

Jusque la pas de probleme ^^
Le problème est que la page désiré est derrière une page d’identification
http://xxxxxx:xxx/xx/
Sur cette page on s'identifie
http://xxxxxxxxx:xxx/xxxx/product/li...dmin&pass=pass
C est la page que je veux importer

je crée donc un fichier .iqy
Sous la forme http://xxxxxxxxxx:xxx/xx/product/lis...dmin&pass=pass

Qui marche très bien si je me suis déjà identifier
si je ferme mon classeur et re test
Il m'importe la page d'identification
il doit donc me manqué une étape pour me re identifier ....

si joint le début du code ^^

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
'Creation du fichier iqy
    Sheets("Feuil1").Select
    Range("A1").Activate
    ActiveCell.FormulaR1C1 = "WEB"
    Range("A2").Activate
    ActiveCell.FormulaR1C1 = "1"
    Range("A3").Activate
    ActiveCell.FormulaR1C1 = _
        "http://xxxxxxxxx:xxx/xxxx/product/liste.php?leftmenu=product&type=0?log=admin&pass=pass"
    Range("A1:A3").Select
    ChDir "G:\"
    ActiveWorkbook.SaveAs Filename:="G:\access.iqy", FileFormat:=xlTextMSDOS, _
        CreateBackup:=False
'requete web avec fichier iqy
    Sheets("Feuil2").Select
    Range("B2").Select
        Workbooks("access.iqy").Connections.AddFromFile "G:\access.iqy"
    With ActiveSheet.QueryTables.Add(Connection:="FINDER;G:\access.iqy", _
        Destination:=Range("$B$2"))
        .Name = "access"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = False
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = True
        .Refresh BackgroundQuery:=False
    End With

Merci pour la lecture et peu être même pour la solution^^
petite précision se site est une base sql derrière un serveur php

[Jean-Philippe André]

Salut,

tu peux t'inspirer du code très complet fourni par Qwazerty sur l'interfaçage IE et Excel
http://qwazerty.developpez.com/tutor...-et-vba-excel/

Tu pourras donc tester en amont certaines informations de la feuille qui s'affiche