Problème d'exécution

Bonsoir le forum,

Avec de très petites connaissances en VBA j'ai tenté de faire un import de données.

Mais cela ne fonctionne pas par rapport à un problème d'exécution. Est-ce que quelqu'un pourrait m'aider ?

Merci

PS le fichier en Xl en pièce-jointe (macro - (pronosyntheseturf)

Salut le Forum

Il n'y a aucune macro dans ton fichier.

Mytå

Bonsoir,

Il suffit de l'activer !

Voici le code qui se trouve dedans :

Sub pronoprosyntheseturf()

     Sheets("TEMP").celles.Clear

    With ActiveSheet("TEMP").QueryTables.Add(Connection:= _
        "URL;http://www.turfpronos.fr/saint-cloud-mardi-26-mars-2013-pmu-pronostics-presse-gratuit" _
        , Destination:=Sheets("TEMP").Range("$A$1"))
        .Name = "saint-cloud-mardi-26-mars-2013-pmu-pronostics-presse-gratuit"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

    compteur = 0

    For ligne = 1 To 1000

        If Left(Sheets("TEMP").Cells(ligne, 1), 4) = "Zone" Then
           compteur = compteur + 1
           Sheets ("Accueil"): Cells(compteur, 1) = Sheets("TEMP").Cells(ligne - 1, 1)

           If compteur = 40 Then Exit For

     End If

     Next

End Sub

Re le Forum

Déjà ceci :

    With Sheets("Temp")
        .Select
        .Cells.Delete
        With .QueryTables.Add( _
             Connection:="URL;http://www.turfpronos.fr/saint-cloud-mardi-26-mars-2013-pmu-pronostics-presse-gratuit" _
                         , Destination:=Range("A1"))
            .Name = "saint-cloud-mardi-26-mars-2013-pmu-pronostics-presse-gratuit"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlEntirePage
            .WebFormatting = xlWebFormattingNone
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
    End With

Mytå

Bonsoir,

L'erreur est que j'utilise l'option explicite !

Mais j'ai utilisé une variable sans la déclarer.

Déclarez explicitement la variable, ou modifiez l'orthographe de la variable pour qu'elle corresponde à la variable souhaitée.

Voilà l'erreur.

Merci

Re le forum

Juste après le Sub pronoprosyntheseturf()

Dim compteur as Integer
Dim ligne as Integer

Ensuite remplace

Sheets("TEMP").celles.Clear
par
Sheets("TEMP").Cells.Clear

Et aussi ceci

Sheets ("Accueil"): Cells(compteur, 1) = Sheets("TEMP").Cells(ligne - 1, 1)
par
Sheets ("Accueil").Cells(compteur, 1) = Sheets("TEMP").Cells(ligne - 1, 1)

Mytå

Merci mais je n'arrive toujours pas ! Merci quand même de ton aide.

Bonne nuit.