Macros

Le 23/03/2016 à 11:10

bonjours

j'aimerai avoir de l'aide sur le fichier joint

je vais essayer de m'expliquer au mieux

j'ai cree une macro avec un bouton actualisation j'aimerai que celui ci quand je modifie la cellule (date-réunions- course) mette a jours les donner sur le tableau en dessous

voici le site référence ou je récupere c'est donner: http://www.geny.com/reunions-courses-pmu/_d2016-03-23?#reunion1

quelqu'un peut il vraiment m'aidé svp car ca fait plusieurs message que je poste mais sans réponse

voici le code vba aussi

Sub test()

Columns("A:l").Clear

Dim ReQ As Object, UrL As String

UrL = "http://www.geny.com/partants-pmu/2015-05-19-longchamp-pmu-prix-des-gobelins_c714591"

Set ReQ = CreateObject("microsoft.xmlhttp")

ReQ.Open "POST", UrL, False

ReQ.setRequestHeader "Accept", "text/html, application/xhtml+xml, */*"

ReQ.setRequestHeader "Accept-Language", "fr-FR"

ReQ.setRequestHeader "User-Agent", "Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; WOW64; Trident/6.0)"

ReQ.setRequestHeader "Accept-Encoding", "gzip, deflate"

ReQ.setRequestHeader "Host", "www.geny.com"

ReQ.setRequestHeader "DNT", 1

ReQ.setRequestHeader "Connection", "Keep - Alive"

ReQ.setRequestHeader "Cookie", " JSESSIONID=3E554B80B1ABBC36A2C53EC91C219C77.raoul_1;"

ReQ.send

'MsgBox ReQ.responsetext

Set fauxdoc = CreateObject("htmlfile")

With fauxdoc

.body.innerhtml = ReQ.responsetext

Set grouptable = .getelementsbytagname("TABLE")

For i = 0 To grouptable.Length - 1

If grouptable(i).ParentNode.ID = "dt_partants" Then Set matable = grouptable(i)

Next

For Each elem In matable.all

If elem.tagname = "TD" Then elem.innerhtml = elem.innertext

Next

faire = .ParentWindow.clipboardData.SetData("text", matable.outerhtml)

With Sheets(1)

Set cel = .Cells(Rows.Count, 1).End(xlUp).Offset(2, 0)

cel.Select

.Paste:

End With

faire = .ParentWindow.clipboardData.ClearData("text")

End With

End Sub

84exemple.xlsm (21.80 Ko)
Le 23/03/2016 à 13:52

Bonjour,

Il n'y a aucune cellule nommée date ou réunion ou course, de quoi parles-tu?

L'actualisation se fait sans problème donc où est le problème? ^^

Le 23/03/2016 à 13:59
d3d9x a écrit :

Bonjour,

Il n'y a aucune cellule nommée date ou réunion ou course, de quoi parles-tu?

L'actualisation se fait sans problème donc où est le problème? ^^

si il y a sur ma page excel 3 cellule nommé date réunions et course je voudrai que l'actualisation ce face a partir du moment ou je remplie les cellule date réunions course a chaque fois que je modifie c'est cellule et clic sur actualisation que cela ce mette a jour.

sinon je suis obliger de changer avec vb le champ "UrL = "http://www.geny.com/partants-pmu/2016-03-23-agen-le-passage-pmu-grand-prix-dynavena-maisagri-duran_c789278"" apres faire l'actualisation voila mon probleme

merci d'avance

Le 23/03/2016 à 14:48
Dim ReQ As Object, UrL As String, dateChaine As String
    dateChaine = Year([C2])
    dateChaine = IIf(Month([C2]) < 10, dateChaine & "-0" & Month([C2]), dateChaine & "-" & Month([C2]))
    dateChaine = IIf(Day([C2]) < 10, dateChaine & "-0" & Day([C2]), dateChaine & "-" & Day([C2]))
    UrL = "http://www.geny.com/partants-pmu/" & dateChaine & "-agen-le-passage-pmu-grand-prix-dynavena-maisagri-duran_c789278"

Voilà le code prenant en compte la date. Par contre il faut supprimer ton clear, il supprime la date que tu choisie -_-

Rechercher des sujets similaires à "macros"