Utilisation navigateur internet via macro VBA [Résolu/Fermé]

edit2 : pour le 2nd exemple :
- clic-droit sur les données Feuil1,
- 'modifier les données'
- cocher en haut à gauche pour récupérer toute la page (ne récupérer que le bloc de données voulu n'est plus possible)
Bien sûr les données voulues ont changé d'emplacement sur la Feuil1

eric

Bonjour Eric,

Je ne connaissais pas cette fonctionnalité.
Dans le fichier n°1, je n'arrive pas à coller l'adresse à visiter (Ctrl+V ne fonctionne pas)
En plus la fenêtre s'ouvre sur search.conduit.com, j'ai l'impression d'avoir choppé une merde.
Dans le fichier N°2, je récupère le code html
Je vais essayer d'approfondir mes recherches à ce sujet.

Pour l'instant voila à quoi ressemble mon code

Sub Aspirine()

'il faudrait remplacer http://www.turlututu.com par l'adresse en cellule F23

Shell("C:\Program Files\Mozilla Firefox\firefox.exe http://www.turlutututu.com", vbNormalFocus)

'la page firefox s'ouvre bien

'Sélectionne tout - Ctrl+a - c'est surement faux
SendKeys "^(a)", True

'Copie - Ctrl+c - c'est surement faux
SendKeys "^(c)", True

Application.Wait (Now + TimeValue("0:00:01"))

Windows("monfichier.xls").Activate

Application.Wait (Now + TimeValue("0:00:01"))

Range("G18").Select
Application.CutCopyMode = False
ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:= _
False
End Sub

J'ai compris mon erreur, si je copie directement la cellule, le Ctrl+V ne fonctionne pas, par contre si je copie l'url dans la barre de formule, alors le Ctrl+V fonctionne.

Bizarrement j'obtiens le code html de la page, j'ai pourtant essayé de cocher/décocher toutes les options de mise en page...

Normalement tu devrais avoir :
- soit rien : aucune fleche jaune n'est cochable sur la page web
- soit uniquement le texte (choisir 'aucune mise en forme')

Passe ton lien (par mp si tu préfères) si tu veux que je jette un oeil...

voici un exemple de lien ;-) http://www.film-stream.net/tout.php?url=http://www.commentcamarche.net/communaute/profil-eriiic

Effectivement il y a les balises (peut-être dû à la redirection).
Il ne te reste plus qu'à rechercher tes données dedans en te calant sur des chaines toujours présentes et en éliminant l'inutile.
Si tu ne mets que l'url finale tu n'obtiens que le texte. Par contre ccm fait parti des sites ou tu ne peut prendre que la page entière.

eric

ce n'est pas une redirection, mais des informations parsées en php.

j'ai bien envisagée de récupérer les données à l'intérieur du html, mais celà rallongerai beaucoup la procédure. En effet, au lieu d'ouvrir une page contenant toutes les infos, je serais obligé d'ouvrir la page titre, la page catégories, la page turlututu ...et de les importer dans différentes colonnes car le contenu de ces pages (le nombre de lignes) est variable.

Est-ce vraiment déconnant de vouloir utiliser des Sendkeys ?

Sinon j'ai une alternative avec le logiciel supermacro, mais j'essaie de me désintoxiquer ^^

sendkeys c'est faisable, le pb c'est que tu ne sais jamais si tu es sur la bonne page et si elle a fini d'être affichée...
Impossible de synchroniser correctement
Personnellement je resterai sur une requete web, et pourquoi pas faire une petite fonction personnalisée pour oter les balises <...> (bien qu'elles peuvent t'aider à te caler au bon endroit)

ex (sûrement à améliorer...) :

Function suppBalises(chaine As String) As String
    Dim ch As Variant, i As Long
    ch = Split(chaine, "<")
    For i = 0 To UBound(ch)
        If InStr(ch(i), ">") Then
            suppBalises = suppBalises & " " & Mid(ch(i), InStr(ch(i), ">") + 1)
        Else
            suppBalises = suppBalises & ch(i)
        End If
    Next i
    suppBalises = Trim(suppBalises)
End Function

Bien vu Eriic, en ajoutant une pause de quelques secondes après l'ouverture de la page ça fonctionne.

C'est vrai qu'il serait préférable de savoir quand la page a fini d'être affichée, quitte à utiliser Internet Explorer.

Je vais gonfler le temps de pause. Merci bcp.

Sinon connais-tu la solution à cette question ?
comment remplacer http://www.turlututu.com par l'adresse en cellule F23 ?
Shell("C:\Program Files\Mozilla Firefox\firefox.exe http://www.turlutututu.com", vbNormalFocus)

essaie avec :
Shell("C:\Program Files\Mozilla Firefox\firefox.exe " & [F23], vbNormalFocus)

ça fonctionne parfaitement.
J'ai simulé un temps d'ouverture de page trop long, ce qui fait planter la macro, et ça me va bien comme ça.

Merci beaucoup pour tes précieux conseils, je note sujet comme résolu.