La macros ...bugg...

[Guido]

Bonjour le Forum

Voici mon probleme

apres avoir lancé ma macros...un debocage s'affiche,voir le texte..

Sub Get_Course(Lien As String)
Dim Cel As Range
With F01
With .QueryTables.Add( _
Connection:="URL;" & Lien, _
Destination:=.Range("B8"))
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.WebSelectionType = xlSpecifiedTables
.WebTables = "1"
.TablesOnlyFromHTML = True
.WebDisableDateRecognition = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
If .Range("C8") = "E-mail" Then
With .QueryTables.Add( _
Connection:="URL;" & Lien, _
Destination:=.Range("B8"))
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.WebSelectionType = xlSpecifiedTables
.WebTables = "2"
.TablesOnlyFromHTML = True
.WebDisableDateRecognition = True
.Refresh BackgroundQuery:=False <<<<<<Voici la phrase en jaune.......
.SaveData = True
End With
End If
Set Cel = .Range("B9:L9").Find("Musique", LookIn:=xlValues)
If Not Cel Is Nothing Then
Cel.Offset(, 2) = "Cotes Réf.": Cel.Offset(, 3) = "Der. Cotes"
End If
End With
End Sub

Merci d'avance

Guido

 

[Guido]

Re : La macros ...bugg...

Bonjour Le Forum

Je n'ai pas eu de reponse..a mon probleme...

je reposte la macro..avec le bugg

Merci d'avance

Bonjour le Forum

Voici mon probleme

apres avoir lancé ma macros...un debocage s'affiche,voir le texte..

Sub Get_Course(Lien As String)
Dim Cel As Range
With F01
With .QueryTables.Add( _
Connection:="URL;" & Lien, _
Destination:=.Range("B8"))
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.WebSelectionType = xlSpecifiedTables
.WebTables = "1"
.TablesOnlyFromHTML = True
.WebDisableDateRecognition = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
If .Range("C8") = "E-mail" Then
With .QueryTables.Add( _
Connection:="URL;" & Lien, _
Destination:=.Range("B8"))
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.WebSelectionType = xlSpecifiedTables
.WebTables = "2"
.TablesOnlyFromHTML = True
.WebDisableDateRecognition = True

----------------------------------------------------------------------------------------

.Refresh BackgroundQuery:=False <<<<<<Voici la phrase du debocage.......

-----------------------------------------------------------------------------------------

.SaveData = True
End With
End If
Set Cel = .Range("B9:L9").Find("Musique", LookIn:=xlValues)
If Not Cel Is Nothing Then
Cel.Offset(, 2) = "Cotes Réf.": Cel.Offset(, 3) = "Der. Cotes"
End If
End With
End Sub

Merci d'avance

Guido

 

[camarchepas]

Re : La macros ...bugg...

Bonjour Guido ,

si pas de réponse ,
c'est peut être que tu n'as pas lu la charte d'XLD

en particulier ce point :

8 - Les demandes de développements relatives à des extractions de données sur des sites interdisant ces pratiques dans leurs conditions générales sont interdites.

 

[Guido]

Re : La macros ...bugg...

Re

Salut camarchepas

Merci de m'avoir ecrit la position 8.

je ne savait pas.

Pourtant quand sur Google je tape la phrase

.Refresh BackgroundQuery:=False


la phrase ce me renvoi sur ce forum,donc se probleme est bien courant

.Refresh BackgroundQuery:=False - Excel Downloads




Excel Downloads › Forum › Excel › Forum Excel

Dernière mise à jour : 18.10.2009 ·
6 publications ·
Première publication : 18.10.2009

Bonjour a tous, j'ai une macro avec une requete web j'ai de temps en temps l'erreur 1004 a la ligne :.Refresh BackgroundQuery:=False true ou false toujours meme erreur

donc ,je suis un peu naif.....

a bientôt

Guido

 

[camarchepas]

Re : La macros ...bugg...

Re ,

C'est un point de la charte qui à évolué en même temps que la législation .

Et oui 2009 , c'était avant ....

GG à une sacrée mémoire , il se souvient des cases , le problème est que souvant les cases sont vides ou hors d'atteinte.

Bon Week end

 

[Guido]

Re : La macros ...bugg...

Ré

Je te remercie

Abientot

amitiés

Guido