importer d'internet explorer ver excel

[Nounours76]

Bonsoir a tous

voila j'aimerais savoir si cela est possible avoir une url dans une cellule et lorsque j'appelle cette cellule sous macro cela me lance l'importation des donnees a partir d'une cellule que j'ai designé .

merci a tous si vous pouvez m'aider dans ma demarche

bonne soiree a tous

 

[Staple1600]

Re : importer d'internet explorer ver excel

Bonsoir

Regardes dans la FAQ du forum

Les pages de MichelXLD.

Tu trouveras des exemples de macros.

 

[Nounours76]

Re : importer d'internet explorer ver excel

merci staple1600 pour avoir repondu rapidement

j'ai regarder sommairement la faq mais tellement de sujet discuter que je cible pas la reponse a mon pb

peux tu stp me donner plus ample renseignement

merci e bonne soiree

 

[Nounours76]

Re : importer d'internet explorer ver excel

bonsoir , je me permet de remonter ma question

 

[Staple1600]

Re : importer d'internet explorer ver excel

Bonsoir



Il faut creuser dans la mine qu'est la FAQ 😉

Voir ici
• https://www.excel-downloads.com/threads/ref-wiki-page-7-de-michelxld.92375/

• ici également :
https://www.excel-downloads.com/threads/lien-hypertexte-suite.31350/

 

[Staple1600]

Re : importer d'internet explorer ver excel

Re


Je te laisse tester ces deux exemples de macro:

Sub ouvrir_ie()
'insérer avant d'éxecuter la macro un lien hypertexte
'dans la cellule C1
Range("C1").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.WindowState = xlNormal
End Sub

Sub ouvrir_ie_II()
Dim stURL As String
stURL = "http://www.excel-downloads.com"
With ActiveSheet
    .Hyperlinks.Add Selection, stURL
    .Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End With
Application.WindowState = xlNormal
End Sub

 

[Staple1600]

Re : importer d'internet explorer ver excel

Re


J'avais oublié l'enregistreur de macro !

1)Outils/Macros/Nouvelle MAcro

2) Aller dans
Données externes/Nouvelle requête sur le web

Puis suivre les instructions

Voici un exemple du code VBA obtenu.

Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 05/10/2008 par Staple1600
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.excel-downloads.com", Destination:=Range("A1"))
        .Name = "www.excel-downloads"
        .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 = xlWebFormattingRTF
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

 

[Nounours76]

Re : importer d'internet explorer ver excel

Bonjour a tous merci pour votre aide

staple1600 ton dernier post pas de soucis c'est bien ce que je fais , mais j'aimerais que d'integrer moi meme l'url dans ma macro comme cela est le cas dans ton dernier exemple , que la macro aille cherche par exemple la cellule a1 ou se trouve mon url en question que la macro donc l'appelle et m'inporte par exemple mes donnees recherchees dans la cellule b3 (ceci reste un exemple )

merci de votre aide

 

[Staple1600]

Re : importer d'internet explorer ver excel

Bonjour



Voir ici égalemebt:
XL98 : comment exécuter par programme une requête sur le Web

Essaie cet exemple

Au r"alable , insré une adresse internet dans la cellule active
puis lance la macro

Sub URL_Static_Query()
Dim sURL As String
 sURL = ActiveCell.Text
 With ActiveSheet.QueryTables.Add(Connection:= _
 "URL;" & sURL, _
 Destination:=Range("a1"))
 
 .BackgroundQuery = True
 .TablesOnlyFromHTML = True
 .Refresh BackgroundQuery:=False
 .SaveData = True
 End With
End Sub

 

[Staple1600]

Re : importer d'internet explorer ver excel

RE




Insères ce code dans la feuille (pas dans un module)

(Clic-droit sur la feuille -> [Visualiser le code]

Dans la feuille 1 dans une cellule saisis:
'http://www.excel-downloads.com

Puis double-cliques sur cette cellule

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Count = 1 Then
Dim Adresse As String
Adresse = ActiveCell.Text
With ActiveSheet.QueryTables.Add(Connection:= _
 "URL;" & Adresse, Destination:=Range("A1:D20"))
 
 .BackgroundQuery = True
 .TablesOnlyFromHTML = True
 .Refresh BackgroundQuery:=False
 .SaveData = True
 End With
End If
End Sub

 

[Nounours76]

Re : importer d'internet explorer ver excel

Bonjour je remonte mon poste

 

[Staple1600]

Re : importer d'internet explorer ver excel

Re


Tu as testé mes dernières réponses ???