Une énigme difficille...

[dame et roi]

🙂 Bonjour à tous,

Je possède excel 2000 avec windows xp PC.
Pour éviter une longue suite d'instructions répétitives avec en plus des conditions (+365 fois *2!!), j'aimerai que le nombre indiquée dans la case b2
(281120061 correspondant à une date et un numéro de réunion de course hippique ici le 28 novembre 2006 réunion 1) REMPLACE LE NOMBRE indiquée dans la connection de la requète (le nombre qui est indiquée dans la requète est 271120061 correspondant au 27 novembre 2006 reunion 1).
Bien sur, si on met un autre nombre 261120061 dans la case b2, alors le nombre indiqué dans la requète devra être bien sur égal à 261120061.

Pouvez vous svp m'écrire toute la procédure à faire.
Je vous remercie par avance.

 

[PascalXLD]

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"

 

[dame et roi]

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.

 

[PascalXLD]

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

 

[dame et roi]

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.

 

[PascalXLD]

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 😎

 

[dame et roi]

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.

 

[PascalXLD]

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

 

[dame et roi]

Re : Une énigme difficille...

🙂 Pascal,

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

Je te remercie par avance.

 

[PascalXLD]

Re : Une énigme difficille...

Re

Un exemple en fichier joint

 

[dame et roi]

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