bonjour à tous
j ai recuperer sur le web une procedure que j ai du mal a faire fonctionner
Sub MajCoursMSN()
Dim BaseURL As String, MyURL As String
Dim ShtV As Worksheet, ShtT As Worksheet ' Définition des différentes feuilles
Dim LigV As Long, DerLigV As Long ' Définition des lignes
Dim Quoi As String ' Texte à chercher
Dim Cible As Object ' Cellule cible contenant le texte à chercher
Dim ValAdr As String ' Valeur de la cellule contenant la valorisation
' Initialisation des variables
Quoi = "Nom ou code" ' Texte à chercher dans récupération du site
Set ShtV = Sheets("Valo")
Set ShtT = Sheets("Tempo")
Application.Calculation = xlCalculationManual
BaseURL = "URL;
"
With ShtV
.Activate
' Récupérer la dernière ligne de la feuille de VALORISATION
DerLigV = .Range("B" & Rows.Count).End(xlUp).Row
' Effacer les cours existants
.Range("G3:G" & DerLigV).ClearContents
For LigV = 3 To DerLigV
' Effacer la feuille Tempo
ShtT.UsedRange.Clear
' Construire l'adresse URL
MyURL = BaseURL & .Range("B" & LigV)
' Créer la requête de connexion WEB
With ShtT.QueryTables.Add(Connection:=MyURL, Destination:=ShtT.Range("A2"))
.BackgroundQuery = True
.WebFormatting = xlWebFormattingNone
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
' Effacer la requête après l'avoir importée
ShtT.QueryTables.Item(1).Delete
End With
On Error Resume Next
' Rechercher le terme approprié
Set Cible = ShtT.Range("A1:M500").Find(Quoi, LookIn:=xlValues)
On Error GoTo 0
' Si le terme à été trouvé
If Not Cible Is Nothing Then
' La cellule contenant la valorisation + pourcentages doit se trouver
' 2 lignes en dessous
ValAdr = Cible.Offset(2, 0).Value
' Inscrire juste la partire de la valeur dans la feuille
.Range("G" & LigV).Value = Left(ValAdr, InStr(1, ValAdr, " ") - 1)
End If
Next LigV
.Range("E1").Value = Format(Now(), "mm/dd/yyyy")
End With
' Effacer toutes les variables objet
Set Cible = Nothing
Set ShtV = Nothing
Set ShtT = Nothing
' Ré-activer le calcul automatique
Application.Calculation = xlCalculationAutomatic
MsgBox "Mise à jour effectuée", vbInformation, "C'EST FINI ..."
End Sub
elle utilise une adresse MSN ?
pourriez vous m aider
cordialement