Bonsoir à tous ,
j'ai un petit problème : c'est une erreur d’exécution 13 : incompatibilité de type
voici le code que j'ai écrit:
Sub importer()
Dim LADATE As String
Sheets("TEMP").Cells.Clear
LADATE = Worksheets("ACCUEIL").Range("K1").Value
With Sheets("TEMP").QueryTables.Add(Connection:="URL;http://www.geny.com/reunions-courses-pmu/_d&" - LADATE - "&" & -"?" - "" _
, Destination:=Sheets("TEMP").Range("$A$1"))
je veux juste changer l'expression " _d2013-10-17?" par la variable " LADATE", pour ne pas avoir a ouvrir le code pour changer la date tous les jours.Malgré plusieurs tentatives, j'ai toujours une erreur de compatibilité
Si vous pouvez m'aider à résoudre ce problème...
je vous dis a très bientot
bonne soirée
Kakachi
j'ai un petit problème : c'est une erreur d’exécution 13 : incompatibilité de type
voici le code que j'ai écrit:
Sub importer()
Dim LADATE As String
Sheets("TEMP").Cells.Clear
LADATE = Worksheets("ACCUEIL").Range("K1").Value
With Sheets("TEMP").QueryTables.Add(Connection:="URL;http://www.geny.com/reunions-courses-pmu/_d&" - LADATE - "&" & -"?" - "" _
, Destination:=Sheets("TEMP").Range("$A$1"))
je veux juste changer l'expression " _d2013-10-17?" par la variable " LADATE", pour ne pas avoir a ouvrir le code pour changer la date tous les jours.Malgré plusieurs tentatives, j'ai toujours une erreur de compatibilité
Si vous pouvez m'aider à résoudre ce problème...
je vous dis a très bientot
bonne soirée
Kakachi