Une énigme difficille...

PascalXLD

XLDnaute Barbatruc

• 27 Novembre 2006

• #2

Re : Une énigme difficille...

Bonjour

essaies en remplaçant ta ligne

.Connection = "URL;http://www.turf-fr.com/partants/271120061.shtml"

par

.Connection = "URL;http://www.turf-fr.com/partants/" & range("B2") & ".shtml"

 

Vote positif 0 Vote négatif

dame et roi

XLDnaute Occasionnel

• 27 Novembre 2006

• #3

Re : Une énigme difficille...

Re bonjour Pascal76,

Et non désolé pascal, ca ne fonctionne pas. J'ai une erreur 1004. Puis en cliquant sur débogage, j'ai la fenetre ci dessous:

Private Sub CommandButton1_Click()
-> With Selection.QueryTable
.Connection = "URL;http://www.turf-fr.com/partants/" & Range("B2") & ".shtml"
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
End Sub

une autre solution...

Je te remercie par avance.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 27 Novembre 2006

• #4

Re : Une énigme difficille...

Re

L'erreur ne vient pas de mon code mais du fait que tu dois avoir une cellule de selectionnée qui n'appartient pas à la table où tu as le resultat de ta requête

modifies ton code ainsi

Private Sub CommandButton1_Click()
range("B13").select
With Selection.QueryTable

 

Vote positif 0 Vote négatif

dame et roi

XLDnaute Occasionnel

• 27 Novembre 2006

• #5

Re : Une énigme difficille...

🙂 Re Bonjour Pascal,

Ca y est. Ca fonctionne. C'est génial. Comment tu sais tous ca?

Mais au fait, pourquoi "range b13". Si la cellule du nombre que je saisi serait en f5 au lieu de b2, il faudrait alors rentrer "range f13" c'est ca?

Je te remercie encore.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 27 Novembre 2006

• #6

Re : Une énigme difficille...

Re

Non B13 c'est une cellule qui appartient à ton tableau où tu avais marqué pronostics

Sinon et bien je fais de l'Excel depuis quelques années maintenant avec quelques projets à la clé plus une fréquentation assidue de ce forum pour en apprendre toujours davantage 😎

 

Vote positif 0 Vote négatif

dame et roi

XLDnaute Occasionnel

• 27 Novembre 2006

• #7

Re : Une énigme difficille...

🙂 Pascal,

Excuse moi encore de te demander encore une chose. Si la cellule contenant le mot pronostic (ici b13) était situé sur une autre feuille (feuil2 par exemple), quel serait alors la syntaxe complete à saisir, stp? 😕

Je te remercie par avance.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 27 Novembre 2006

• #8

Re : Une énigme difficille...

Re

Il faudrait passer ton code dans un module ce serait plus facile et selectionner la feuille avant de selectionner la cellule

 

Vote positif 0 Vote négatif

dame et roi

XLDnaute Occasionnel

• 27 Novembre 2006

• #9

Re : Une énigme difficille...

🙂 Pascal,

Comment faut il faire concrétement, je n'arrive pas.😕

Je te remercie par avance.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 27 Novembre 2006

• #10

Re : Une énigme difficille...

Re

Un exemple en fichier joint

 

Pièces jointes

• une-enigme-difficille-instruction-4.zip

  19.5 KB · Affichages: 57

Vote positif 0 Vote négatif

dame et roi

XLDnaute Occasionnel

• 27 Novembre 2006

• #11

Re : Une énigme difficille...

🙂 Pascal,

Je te remercie pour le fichier. C'est sympas.
J'ai visité ton blog, je donnerai l'adresse à des amis.

Merci et à bientôt

 

Vote positif 0 Vote négatif