Requête web

Le
NEWS
Bonjour

Pourquoi la dernière ligne ne foctionne pas, message objet de vba

merci

Sub OpenUSDRatesPage()
Dim objBK As Workbook
Dim objRng As Range

'Open the page as a workbook.
Set objBK = Workbooks.Open("http://www.x-rates.com/tables/USD.HTML")

'Find the Canadian Dollar cell.
Set objRng = objBK.Worksheets(1).Cells.Find("Canadian Dollar")

'Retrieve the exchange rate.
MsgBox "The CAD/USD exchange rate is " & objRng.Offset(-6, -1).Value
<<<<<< Fonctionne

Sheets("Recup").cells(1,2)=objRng.Offset(-6, -1).Value
<<<<<<<<<<<<<<<<<<<<<< Ne fonctionne pas
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
MichDenis
Le #4259631
Cela fonctionne :

Stipule dans ta ligne de code, le classeur où tu veux copier cette information

Workbooks("NomDuClasseur").Sheets(1).Cells(1, 2) = objRng.Offset(-6, -1).Value



"NEWS" Bonjour

Pourquoi la dernière ligne ne foctionne pas, message objet de vba

merci

Sub OpenUSDRatesPage()
Dim objBK As Workbook
Dim objRng As Range

'Open the page as a workbook.
Set objBK = Workbooks.Open("http://www.x-rates.com/tables/USD.HTML")

'Find the Canadian Dollar cell.
Set objRng = objBK.Worksheets(1).Cells.Find("Canadian Dollar")

'Retrieve the exchange rate.
MsgBox "The CAD/USD exchange rate is " & objRng.Offset(-6, -1).Value
<<<<<< Fonctionne

Sheets("Recup").cells(1,2)=objRng.Offset(-6, -1).Value
<<<<<<<<<<<<<<<<<<<<<< Ne fonctionne pas
End Sub
NEWS
Le #4259431
Merci

"MichDenis" uaG2c#
Cela fonctionne :

Stipule dans ta ligne de code, le classeur où tu veux copier cette
information


Workbooks("NomDuClasseur").Sheets(1).Cells(1, 2) objRng.Offset(-6, -1).Value



"NEWS" 46095acf$0$25917$

Bonjour

Pourquoi la dernière ligne ne foctionne pas, message objet de vba

merci

Sub OpenUSDRatesPage()
Dim objBK As Workbook
Dim objRng As Range

'Open the page as a workbook.
Set objBK = Workbooks.Open("http://www.x-rates.com/tables/USD.HTML")

'Find the Canadian Dollar cell.
Set objRng = objBK.Worksheets(1).Cells.Find("Canadian Dollar")

'Retrieve the exchange rate.
MsgBox "The CAD/USD exchange rate is " & objRng.Offset(-6, -1).Value
<<<<<< Fonctionne

Sheets("Recup").cells(1,2)=objRng.Offset(-6, -1).Value
<<<<<<<<<<<<<<<<<<<<<< Ne fonctionne pas
End Sub





Publicité
Poster une réponse
Anonyme