bonjour voici mon code que j ai trouvé sur le net et modifié
LE SEUL HIC étant :
Sub ExporterTexte_PageInternetDansCellule()
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Silent = True
For i = 1 To 50
.Navigate Range("f" & i)
.Visible = True
textePage = doc.body.innerHTML
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
''' LA IL ME COPIE RIEN SUR MON EXCEL en Range("a" & j) = textePage.value
Range("a" & j) = textePage.value
Next
End With
merci d avance
Set IE = Nothing
End Sub
bonjour voici mon code que j ai trouvé sur le net et modifié
LE SEUL HIC étant :
Sub ExporterTexte_PageInternetDansCellule()
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Silent = True
For i = 1 To 50
.Navigate Range("f" & i)
.Visible = True
textePage = doc.body.innerHTML
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
''' LA IL ME COPIE RIEN SUR MON EXCEL en Range("a" & j) = textePage.value
Range("a" & j) = textePage.value
Next
End With
merci d avance
Set IE = Nothing
End Sub
bonjour voici mon code que j ai trouvé sur le net et modifié
LE SEUL HIC étant :
Sub ExporterTexte_PageInternetDansCellule()
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Silent = True
For i = 1 To 50
.Navigate Range("f" & i)
.Visible = True
textePage = doc.body.innerHTML
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
''' LA IL ME COPIE RIEN SUR MON EXCEL en Range("a" & j) = textePage.value
Range("a" & j) = textePage.value
Next
End With
merci d avance
Set IE = Nothing
End Sub
Bonjour, je ne sais pas si ça répond à ton problème,
voici une macro proposée il y a un an par un contributeur de ce groupe.
Elle marche impec.
Le but est de télécharger des données sur un site et de les mettre de la
cellule A2 à la cellule Ax
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.celestrak.com/NORAD/elements/stations.txt",
Destination:= _
Range("A2"))
.Name = "stations"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse
End With
Cordialement
Michel dit "Sam"
"STEPH B" a écrit dans le message de news:
4c15fdc2$0$2947$bonjour voici mon code que j ai trouvé sur le net et modifié
LE SEUL HIC étant :
Sub ExporterTexte_PageInternetDansCellule()
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Silent = True
For i = 1 To 50
.Navigate Range("f" & i)
.Visible = True
textePage = doc.body.innerHTML
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
''' LA IL ME COPIE RIEN SUR MON EXCEL en Range("a" & j) =
textePage.value
Range("a" & j) = textePage.value
Next
End With
merci d avance
Set IE = Nothing
End Sub
Bonjour, je ne sais pas si ça répond à ton problème,
voici une macro proposée il y a un an par un contributeur de ce groupe.
Elle marche impec.
Le but est de télécharger des données sur un site et de les mettre de la
cellule A2 à la cellule Ax
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.celestrak.com/NORAD/elements/stations.txt",
Destination:= _
Range("A2"))
.Name = "stations"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse
End With
Cordialement
Michel dit "Sam"
"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4c15fdc2$0$2947$ba4acef3@reader.news.orange.fr...
bonjour voici mon code que j ai trouvé sur le net et modifié
LE SEUL HIC étant :
Sub ExporterTexte_PageInternetDansCellule()
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Silent = True
For i = 1 To 50
.Navigate Range("f" & i)
.Visible = True
textePage = doc.body.innerHTML
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
''' LA IL ME COPIE RIEN SUR MON EXCEL en Range("a" & j) =
textePage.value
Range("a" & j) = textePage.value
Next
End With
merci d avance
Set IE = Nothing
End Sub
Bonjour, je ne sais pas si ça répond à ton problème,
voici une macro proposée il y a un an par un contributeur de ce groupe.
Elle marche impec.
Le but est de télécharger des données sur un site et de les mettre de la
cellule A2 à la cellule Ax
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.celestrak.com/NORAD/elements/stations.txt",
Destination:= _
Range("A2"))
.Name = "stations"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse
End With
Cordialement
Michel dit "Sam"
"STEPH B" a écrit dans le message de news:
4c15fdc2$0$2947$bonjour voici mon code que j ai trouvé sur le net et modifié
LE SEUL HIC étant :
Sub ExporterTexte_PageInternetDansCellule()
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Silent = True
For i = 1 To 50
.Navigate Range("f" & i)
.Visible = True
textePage = doc.body.innerHTML
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
''' LA IL ME COPIE RIEN SUR MON EXCEL en Range("a" & j) =
textePage.value
Range("a" & j) = textePage.value
Next
End With
merci d avance
Set IE = Nothing
End Sub
merci bcps mais je l avais vu ce code..
mon probleme est sur la boucle
"Sam" a écrit dans le message de news:
4c160b28$0$2967$Bonjour, je ne sais pas si ça répond à ton problème,
voici une macro proposée il y a un an par un contributeur de ce groupe.
Elle marche impec.
Le but est de télécharger des données sur un site et de les mettre de la
cellule A2 à la cellule Ax
"STEPH B" a écrit dans le message de news:
4c15fdc2$0$2947$bonjour voici mon code que j ai trouvé sur le net et modifié
LE SEUL HIC étant :
Sub ExporterTexte_PageInternetDansCellule()
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Silent = True
For i = 1 To 50
.Navigate Range("f" & i)
.Visible = True
textePage = doc.body.innerHTML
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
''' LA IL ME COPIE RIEN SUR MON EXCEL en Range("a" & j) =
textePage.value
Range("a" & j) = textePage.value
Next
End With
merci d avance
Set IE = Nothing
End Sub
merci bcps mais je l avais vu ce code..
mon probleme est sur la boucle
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
4c160b28$0$2967$ba4acef3@reader.news.orange.fr...
Bonjour, je ne sais pas si ça répond à ton problème,
voici une macro proposée il y a un an par un contributeur de ce groupe.
Elle marche impec.
Le but est de télécharger des données sur un site et de les mettre de la
cellule A2 à la cellule Ax
"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4c15fdc2$0$2947$ba4acef3@reader.news.orange.fr...
bonjour voici mon code que j ai trouvé sur le net et modifié
LE SEUL HIC étant :
Sub ExporterTexte_PageInternetDansCellule()
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Silent = True
For i = 1 To 50
.Navigate Range("f" & i)
.Visible = True
textePage = doc.body.innerHTML
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
''' LA IL ME COPIE RIEN SUR MON EXCEL en Range("a" & j) =
textePage.value
Range("a" & j) = textePage.value
Next
End With
merci d avance
Set IE = Nothing
End Sub
merci bcps mais je l avais vu ce code..
mon probleme est sur la boucle
"Sam" a écrit dans le message de news:
4c160b28$0$2967$Bonjour, je ne sais pas si ça répond à ton problème,
voici une macro proposée il y a un an par un contributeur de ce groupe.
Elle marche impec.
Le but est de télécharger des données sur un site et de les mettre de la
cellule A2 à la cellule Ax
"STEPH B" a écrit dans le message de news:
4c15fdc2$0$2947$bonjour voici mon code que j ai trouvé sur le net et modifié
LE SEUL HIC étant :
Sub ExporterTexte_PageInternetDansCellule()
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Silent = True
For i = 1 To 50
.Navigate Range("f" & i)
.Visible = True
textePage = doc.body.innerHTML
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
''' LA IL ME COPIE RIEN SUR MON EXCEL en Range("a" & j) =
textePage.value
Range("a" & j) = textePage.value
Next
End With
merci d avance
Set IE = Nothing
End Sub
re Bonjour,
où est défini la valeur de j pour déterminer la cellule(A,j) ?
Cordialement
Michel dit "Sam"
"STEPH B" a écrit dans le message de news:
4c16162f$0$27581$merci bcps mais je l avais vu ce code..
mon probleme est sur la boucle
"Sam" a écrit dans le message de news:
4c160b28$0$2967$Bonjour, je ne sais pas si ça répond à ton problème,
voici une macro proposée il y a un an par un contributeur de ce groupe.
Elle marche impec.
Le but est de télécharger des données sur un site et de les mettre de la
cellule A2 à la cellule Ax
"STEPH B" a écrit dans le message de news:
4c15fdc2$0$2947$bonjour voici mon code que j ai trouvé sur le net et modifié
LE SEUL HIC étant :
Sub ExporterTexte_PageInternetDansCellule()
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Silent = True
For i = 1 To 50
.Navigate Range("f" & i)
.Visible = True
textePage = doc.body.innerHTML
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
''' LA IL ME COPIE RIEN SUR MON EXCEL en Range("a" & j) =
textePage.value
Range("a" & j) = textePage.value
Next
End With
merci d avance
Set IE = Nothing
End Sub
re Bonjour,
où est défini la valeur de j pour déterminer la cellule(A,j) ?
Cordialement
Michel dit "Sam"
"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4c16162f$0$27581$ba4acef3@reader.news.orange.fr...
merci bcps mais je l avais vu ce code..
mon probleme est sur la boucle
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
4c160b28$0$2967$ba4acef3@reader.news.orange.fr...
Bonjour, je ne sais pas si ça répond à ton problème,
voici une macro proposée il y a un an par un contributeur de ce groupe.
Elle marche impec.
Le but est de télécharger des données sur un site et de les mettre de la
cellule A2 à la cellule Ax
"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4c15fdc2$0$2947$ba4acef3@reader.news.orange.fr...
bonjour voici mon code que j ai trouvé sur le net et modifié
LE SEUL HIC étant :
Sub ExporterTexte_PageInternetDansCellule()
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Silent = True
For i = 1 To 50
.Navigate Range("f" & i)
.Visible = True
textePage = doc.body.innerHTML
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
''' LA IL ME COPIE RIEN SUR MON EXCEL en Range("a" & j) =
textePage.value
Range("a" & j) = textePage.value
Next
End With
merci d avance
Set IE = Nothing
End Sub
re Bonjour,
où est défini la valeur de j pour déterminer la cellule(A,j) ?
Cordialement
Michel dit "Sam"
"STEPH B" a écrit dans le message de news:
4c16162f$0$27581$merci bcps mais je l avais vu ce code..
mon probleme est sur la boucle
"Sam" a écrit dans le message de news:
4c160b28$0$2967$Bonjour, je ne sais pas si ça répond à ton problème,
voici une macro proposée il y a un an par un contributeur de ce groupe.
Elle marche impec.
Le but est de télécharger des données sur un site et de les mettre de la
cellule A2 à la cellule Ax
"STEPH B" a écrit dans le message de news:
4c15fdc2$0$2947$bonjour voici mon code que j ai trouvé sur le net et modifié
LE SEUL HIC étant :
Sub ExporterTexte_PageInternetDansCellule()
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Silent = True
For i = 1 To 50
.Navigate Range("f" & i)
.Visible = True
textePage = doc.body.innerHTML
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
''' LA IL ME COPIE RIEN SUR MON EXCEL en Range("a" & j) =
textePage.value
Range("a" & j) = textePage.value
Next
End With
merci d avance
Set IE = Nothing
End Sub
voila mon code
mais ca marche pas il ne copie rien
For i = 1 To 3
Destinationd = Range("c" & i).value
''''' dans la cellule c&i il y a un lien sous la forme
http:xxxxxxxxxuiuiuuou.fr
With ActiveSheet.QueryTables.Add(Connection:="URL;destinationd",
Destination:=Range("A1"))
.Name = "hhh"
.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:úlse
End With
Next
End Sub
"Sam" a écrit dans le message de news:
4c161a26$0$27615$re Bonjour,
où est défini la valeur de j pour déterminer la cellule(A,j) ?
Cordialement
Michel dit "Sam"
"STEPH B" a écrit dans le message de news:
4c16162f$0$27581$merci bcps mais je l avais vu ce code..
mon probleme est sur la boucle
"Sam" a écrit dans le message de news:
4c160b28$0$2967$Bonjour, je ne sais pas si ça répond à ton problème,
voici une macro proposée il y a un an par un contributeur de ce groupe.
Elle marche impec.
Le but est de télécharger des données sur un site et de les mettre de
la cellule A2 à la cellule Ax
"STEPH B" a écrit dans le message de news:
4c15fdc2$0$2947$bonjour voici mon code que j ai trouvé sur le net et modifié
LE SEUL HIC étant :
Sub ExporterTexte_PageInternetDansCellule()
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Silent = True
For i = 1 To 50
.Navigate Range("f" & i)
.Visible = True
textePage = doc.body.innerHTML
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
''' LA IL ME COPIE RIEN SUR MON EXCEL en Range("a" & j) =
textePage.value
Range("a" & j) = textePage.value
Next
End With
merci d avance
Set IE = Nothing
End Sub
voila mon code
mais ca marche pas il ne copie rien
For i = 1 To 3
Destinationd = Range("c" & i).value
''''' dans la cellule c&i il y a un lien sous la forme
http:xxxxxxxxxuiuiuuou.fr
With ActiveSheet.QueryTables.Add(Connection:="URL;destinationd",
Destination:=Range("A1"))
.Name = "hhh"
.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:úlse
End With
Next
End Sub
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
4c161a26$0$27615$ba4acef3@reader.news.orange.fr...
re Bonjour,
où est défini la valeur de j pour déterminer la cellule(A,j) ?
Cordialement
Michel dit "Sam"
"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4c16162f$0$27581$ba4acef3@reader.news.orange.fr...
merci bcps mais je l avais vu ce code..
mon probleme est sur la boucle
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de news:
4c160b28$0$2967$ba4acef3@reader.news.orange.fr...
Bonjour, je ne sais pas si ça répond à ton problème,
voici une macro proposée il y a un an par un contributeur de ce groupe.
Elle marche impec.
Le but est de télécharger des données sur un site et de les mettre de
la cellule A2 à la cellule Ax
"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4c15fdc2$0$2947$ba4acef3@reader.news.orange.fr...
bonjour voici mon code que j ai trouvé sur le net et modifié
LE SEUL HIC étant :
Sub ExporterTexte_PageInternetDansCellule()
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Silent = True
For i = 1 To 50
.Navigate Range("f" & i)
.Visible = True
textePage = doc.body.innerHTML
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
''' LA IL ME COPIE RIEN SUR MON EXCEL en Range("a" & j) =
textePage.value
Range("a" & j) = textePage.value
Next
End With
merci d avance
Set IE = Nothing
End Sub
voila mon code
mais ca marche pas il ne copie rien
For i = 1 To 3
Destinationd = Range("c" & i).value
''''' dans la cellule c&i il y a un lien sous la forme
http:xxxxxxxxxuiuiuuou.fr
With ActiveSheet.QueryTables.Add(Connection:="URL;destinationd",
Destination:=Range("A1"))
.Name = "hhh"
.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:úlse
End With
Next
End Sub
"Sam" a écrit dans le message de news:
4c161a26$0$27615$re Bonjour,
où est défini la valeur de j pour déterminer la cellule(A,j) ?
Cordialement
Michel dit "Sam"
"STEPH B" a écrit dans le message de news:
4c16162f$0$27581$merci bcps mais je l avais vu ce code..
mon probleme est sur la boucle
"Sam" a écrit dans le message de news:
4c160b28$0$2967$Bonjour, je ne sais pas si ça répond à ton problème,
voici une macro proposée il y a un an par un contributeur de ce groupe.
Elle marche impec.
Le but est de télécharger des données sur un site et de les mettre de
la cellule A2 à la cellule Ax
"STEPH B" a écrit dans le message de news:
4c15fdc2$0$2947$bonjour voici mon code que j ai trouvé sur le net et modifié
LE SEUL HIC étant :
Sub ExporterTexte_PageInternetDansCellule()
'Necessite d'activer la reference to Microsoft Internet Controls
Dim IE As InternetExplorer
Dim nFile As Integer
On Error Resume Next
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Silent = True
For i = 1 To 50
.Navigate Range("f" & i)
.Visible = True
textePage = doc.body.innerHTML
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
''' LA IL ME COPIE RIEN SUR MON EXCEL en Range("a" & j) =
textePage.value
Range("a" & j) = textePage.value
Next
End With
merci d avance
Set IE = Nothing
End Sub