Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Requête web

Requête web

2 réponses
Avatar
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
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
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" a écrit dans le message de 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
Avatar
NEWS
Merci

"MichDenis" a écrit dans le message de news:
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" a écrit dans le message de 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