A
albert
Guest
Bonjours à tous et à toutes,
J’ai écrit une fonction qui a fonctionné une fois (mais qui ne marche plus à présent)
- j’ai également essayé de remplacer cours = Sheets("Feuil2").Cells(1, 6) par cours"" de manière à pouvoir écrire dans la fenêtre de la boîte de dialogue
lorsque j’essaie à nouveau d’écrire dans la fenêtre, il y a un message : »impossible de modifier cette cellule alors qu’une macro est en pause »
qu’est-ce que veut dire ce message et comment résoudre ce problème ?
merci d'avance
Function fin(isin) As Byte
cours = Sheets("Feuil2").Cells(1, 6)
Cells.Select
Selection.Clear
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.fininfo.fr/fininfo/GetResume.event?id=" & cours & "" _
, Destination:=Range("A1"))
.WebFormatting = xlWebFormattingNone
'.WebTables = "7" 'tableau
.WebTables = "8" 'dernier
.Refresh BackgroundQuery:=False
End With
Cells(1, 1).Select
End Function
J’ai écrit une fonction qui a fonctionné une fois (mais qui ne marche plus à présent)
- j’ai également essayé de remplacer cours = Sheets("Feuil2").Cells(1, 6) par cours"" de manière à pouvoir écrire dans la fenêtre de la boîte de dialogue
lorsque j’essaie à nouveau d’écrire dans la fenêtre, il y a un message : »impossible de modifier cette cellule alors qu’une macro est en pause »
qu’est-ce que veut dire ce message et comment résoudre ce problème ?
merci d'avance
Function fin(isin) As Byte
cours = Sheets("Feuil2").Cells(1, 6)
Cells.Select
Selection.Clear
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.fininfo.fr/fininfo/GetResume.event?id=" & cours & "" _
, Destination:=Range("A1"))
.WebFormatting = xlWebFormattingNone
'.WebTables = "7" 'tableau
.WebTables = "8" 'dernier
.Refresh BackgroundQuery:=False
End With
Cells(1, 1).Select
End Function