Microsoft Excel pour Mac :
Version 16.45
Quand j'appui sur le bouton (Mettre à Jour) la requête tourne bien mais elle ne me renvoie aucune valeur
alors que sur mon Ordi (Bill Gate) selon fonctionne et pas sous (Tim Cook)
Voici la macro que j'ai et qui fonctionne sur mon PC & non sur mon Mac
Sub MajCotations()
Dim i%, k%, URL$, COT
k = Cells(Rows.Count, [REF].Column).End(xlUp).Row
Range(Cells(2, [Cotation].Column), Cells(k, [Cotation].Column)).Clear
avant = "</div><div class=""c-ticker__item c-ticker__item--value"">"
apres = "</span class=""c-ticker__currency"">"
On Error Resume Next
For i = 2 To k
DoEvents
ReDim COT(1 To k, 1 To 1)
COT(1, 1) = Cells(i, [Cotation].Column).Value
URL = Cells(i, [WWW].Column).Value
Application.StatusBar = "Mise à jour des cotations en cours …"
On Error Resume Next
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
If .Status = 200 Then COT(i, 1) = Val(Split(Split(.responseText, avant)(1), apres)(0))
End With
Application.StatusBar = False
Cells(i, [Cotation].Column).Value = COT(i, 1)
Next
End Sub