Si votre email correspond à un compte, vous recevrez un lien de réinitialisation.
Cela fonctionne :Stipule dans ta ligne de code, le classeur où tu veux copier cetteinformation
Workbooks("NomDuClasseur").Sheets(1).Cells(1, 2) objRng.Offset(-6, -1).Value"NEWS" a écrit dans le message de news:46095acf$0$25917$
BonjourPourquoi la dernière ligne ne foctionne pas, message objet de vbamerciSub OpenUSDRatesPage()Dim objBK As WorkbookDim 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<<<<<< FonctionneSheets("Recup").cells(1,2)=objRng.Offset(-6, -1).Value<<<<<<<<<<<<<<<<<<<<<< Ne fonctionne pasEnd Sub
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" <pgj@wanadoo.fr> a écrit dans le message de news: 46095acf$0$25917$ba4acef3@news.orange.fr...
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