variable

[hudouriezh]

Bonjour,
Voilà j’essaye depuis un moment de trouver une solution sur le topic ;
Mais je ne trouve pas de solution.
J’arrive par la fonction String à changer la date.
Mais pour ce qui du code « 1&ppd » pas moyen.

Voici les codes utilisés :

Sub essai()
Dim MaDate As String
Dim Num As Integer
Num = Sheets("Accueil").Range("D13")
MaDate = Sheets("Accueil").Range("D12")
Sheets("Import").Select
Range("A1").Select

'http://www.pmu.fr/pmu/servlet/pmu.web.servlet.www.infos.PerformancesDetaillesServlet?idc=14112393&np=1&ppd=0&dd=25092010  La page information s’affiche normalement

‘'http://www.pmu.fr/pmu/servlet/pmu.web.servlet.www.infos.PerformancesDetaillesServlet?idc=14112393&np=1&ppd=0&dd= » & MaDate & «  La page information s’affiche normalement
'http://www.pmu.fr/pmu/servlet/pmu.web.servlet.www.infos.PerformancesDetaillesServlet?idc=14112393&np= " & Num & " =0&dd=25092010  Num doit correspondre à 1&ppd.

Workbooks.Open Filename:="http://www.pmu.fr/pmu/servlet/pmu.web.servlet.www.infos.PerformancesDetaillesServlet?idc=14112393&np= " & Num & " =0&dd=25092010"
End Sub

Si vous pouviez me donner un coup de main.
Merci d’avance.

 

[Robert]

Re : variable

Bonjour Hudouriezh, bonjour le forum,

Excuse mon ignorance et malgré tout cette intervention. J'avoue ne rien comprendre ce que signifie 1&ppd mais tu dis que num doit correspondre à ça et tu déclares num comme entier... Ne faudrait-il pas déclarer Num As String aussi ??

 

[hudouriezh]

Re : variable

Bonjour,
C'est peut être moi qui explique mal.
Enfaite vous avez raison, je viens de trouver le fonctionnement.
je joins le dossier.




Bon cela manque de structure mais apparament tout fonctionnes.
Merci pour l'interret que vous avez apportez à ma question.
B.Y.