web vers excel

Le
STEPH B
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Sam
Le #22254001
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" 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



STEPH B
Le #22254601
merci bcps mais je l avais vu ce code..

mon probleme est sur la boucle



"Sam" 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


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" 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







Sam
Le #22254291
re Bonjour,
où est défini la valeur de j pour déterminer la cellule(A,j) ?
Cordialement
Michel dit "Sam"

"STEPH B" 4c16162f$0$27581$
merci bcps mais je l avais vu ce code..

mon probleme est sur la boucle



"Sam" 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" 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











STEPH B
Le #22254351
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" 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" 4c16162f$0$27581$
merci bcps mais je l avais vu ce code..

mon probleme est sur la boucle



"Sam" 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" 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















Sam
Le #22255151
re bonjour
j'ai fait ceci et ça fonctionne .
J'ai mis l'adresse du site à consulter en C3

destinationd = Range("C3").Value
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & destinationd, Destination:=Range("A2"))
.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 = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:úlse
End With

3 remarques :
- il faut mettre "URL;" & destinationd
- en réalité les données s'inserrent dans une nouvelle colonne A, au test
suivant l'adresse est en Range(D3)
- il y a une apostrophe indésirable dans une de tes lignes (Refresh...)

Cordialement
Michel dit "Sam"
"STEPH B" 4c161e94$0$27617$
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" 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" 4c16162f$0$27581$
merci bcps mais je l avais vu ce code..

mon probleme est sur la boucle



"Sam" 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" 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



















Publicité
Poster une réponse
Anonyme