Mettre à jour à partir d'Internet

[gaspalet]

Salut à tous !
Je vous explique : j'ai un tableau excel, dans lequel j'aimerais que certaines cellules se mettent à jour toutes seules, à partir d'un site web. Plus exactement, j'aimerais qu'une cellule prenne pour valeur le nombre de visite d'un site, nombre écrit simplement ici : Compteur ("Il y eu ... accès via le petit lien").
Sachant que je ne connais pas grand chose en programmation, toute aide est bienvenue =)

 

[JNP]

Re : Mettre à jour à partir d'Internet

Bonjour Gaspalet et bienvenue 🙂,
Teste ce bout de code

Sub Macro1()
Dim Tableau
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://petitlien.com/count.php?alias=a", Destination:=Range("$A$1"))
        .Name = "count.php?alias=a"
        .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
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
Tableau = Split(Range("B5"), " ")
MsgBox Tableau(4)
End Sub

Bon dimanche 😎

 

[gaspalet]

Re : Mettre à jour à partir d'Internet

Oh, c'est super, thanks a lot !
Et tu penses que ce serait possible de récupérer uniquement le nombre de visites ? Ici, juste le 6. Parce que pour l'instant, c'est toute la page qui est récupérée...

 

[JNP]

Re : Mettre à jour à partir d'Internet

Re 🙂,
Récupérer sans import, je ne penses pas, mais qui sait... En tout cas, ça sort de mes compétences 😛.
Le résultat est dans Tableau(4), donc tu peux créer une feuille, importer, récupérer la donnée, supprimer la feuille, et le tour est joué 😉.
Bon courage 😎