Copie de données Internet (Problème de code)

Citation:

---

Envoyé par patricktoulon

salut nono et oliv-
allez un petit exercice qui me torture l'esprit depuis quelque jours pour oliv-

pouquoi ca ca marche:

Code:

---

1 2 3 4 5

If InStr(lapage, mot4) <> 0 Then 'SI IL Y EST ALORS .Cells(I, "d") = HtmlToText(Split(Split(Split(lapage, mot4)(1), ">")(2), "</td>")(0)) 'l'item1 Else .Cells(I, "d") = "N/A" End If

---

et pourquoi ca ca ne marche pas :

Code:

---

.Cells(I, "d") = IIf(InStr(lapage, mot4) <> 0, HtmlToText(Split(Split(Split(lapage, mot4)(1), ">")(2), "</td>")(0)), "N/A")

---

bon courage

---

Citation:

---

Renvoie l'un ou l'autre de deux arguments selon l'évaluation d'une expression.
Syntaxe
IIf(expr, truepart, falsepart)
La syntaxe de la fonction IIf comporte les arguments nommés suivants :
Élément Description expr Expression à évaluer. truepart Valeur ou expression renvoyée si la valeur de expr est True. falsepart Valeur ou expression renvoyée si la valeur de expr est False.
Remarques
La fonction IIf évalue toujours truepart et falsepart, même si elle ne renvoie qu'un seul de ces arguments. Vous devez donc être particulièrement attentif à certains effets secondaires indésirables de cette fonction. Par exemple, si l'évaluation de falsepart engendre une division par zéro, une erreur se produit même si la valeur de expr est True.

---

:ccool::ccool::ccool:Bonjour,

effectivement, la magie opère et je suis sous le charme.
Je vais maintenant essayer de comprendre toutes les subtilités de vos codes. Cela risque de prendre un .......certain temps (+ que le temps d"exécution de vos macros qui ne laissent même pas le temps au café de refroidir !).

Merci une nouvelle fois pour tout.
Bonne journée.

Nonno 94.

bonjour mercatog

je vais essayer de comprendre ca et d'y remedier

merci pour l'explication super claire

au plaisir

:DBonsoir à tous,

Afin de ne pas trop se faire "charrier" par "certain sudiste", Nonno (avec 2 n comme en italien), a entrepris de faire le ménage dans son "Bric à brac" (dixit "certain sudiste").
Pour cela, il a "élagué" son fichier en supprimant les feuilles inutiles pour ne conserver LA feuille "Potentiels-S" agrémentée par un superbe USF créé par "certain sudiste".
Fier de son "travail", il a voulu admirer ce nouveau fichier et s'enquérir grâce au nouvel outil mis en place des cotations de certaines valeurs.
Et là, grosse déception, la souris a refusé de lui donner satisfaction : le USF ne s'affiche plus!!!!!

Je vous propose donc et tout particulièrement "au-Toulonnais-qui ne-reste-pas-en rade-avec-Excel" la devinette suivante : pour quelle raison le USF ne s'affiche-t-il plus dans le fichier joint ?
Confidence : ce n'est pas le 1 ère fois que j'ai un problème avec une "souris" mais j'ai été pris au dépourvu par celui-là.
A toutes fins utiles, je suis en mesure de proposer une explication et même (si, si) une solution "bricolée" (de la même famille que "Bric à brac") à la "Nonno".

Dans l'attente, cordialement.
Nonno 94.

re
laisse tomber ton bric a brac j'en suis déjà a l'évolution 1.5

je te le donne dans moins d'une heure

a mon avis tu va friser la rupture d'anévrisme

:mouarf::mouarf::mouarf::mouarf:

au plaisir

a toute

purré

je crois que le cite ma dégagé j'ai peut être trop fait d'essais

ou alors il y a fermeture a une certaine heure

tout les liens qu'il y a en colonne "a" sont plus valides

mort de rire il m'ont pris pour un piiiiirrrraaatttee:aie::aie::aie::aie:

bon allez je te l'envoie comme ça malgré qu'il me restait encore quelque fignolage


si chez toi les liens sont bon admire ce userform que tu apprécie tant

heu....au plaisir bien sur :mouarf::mouarf::mouarf::mouarf::mouarf::kill::yaisse::lahola::lefou::fou::fessee:

tiens prend ca :

alors il te plait mon userform

a tu cliqué sur le bouton gris ????

n'est ce pas ca que tu voulais

il sont fort les toulonnais


a.. .......

:ccool::ccool: Ai récupéré le fichier.

UN TOULONNAIS PIRATE : cela ne serait pas la 1 ère fois !!

J'admirerai le chef d'oeuvre demain car ce soir, je n'ai pas le temps.

Merci et bonne soirée.
Cordialement.

Nonno 94.

:ccool::ccool::ccool: Bonjour Patricktoulon,

de + en + spectaculaire !!!!

Je me permets simplement 2 petites remarques que vous trouverez dans la feuille "AB SCIENCE" du fichier joint.
Qu'en pensez-vous ?

Une nouvelle fois : BRAVO et MERCI pour tout.

Bonne journée.
Cordialement.

Nonno 94.

:oops::oops:En P. J. , et en remplacement du 1.51 envoyé précédemment par erreur, le fichier qui vous est destiné.

Avec mes excuses.
Nonno 94.

et ben dis donc

quand je pense que au départ on cherchait "cours potentiel et objectif"

et est sur application digne d'un pro maintenant

bon alors.........

j'ai galère,transpiré,mouiller la chemise,souffert d'une rage de dents,doubler d'une migraine

tout ça pour découvrir que pour le conseil investir on cherchait pas au bon endroit

il y a une page spécialement rien que pour ça et pour toutes les valeurs

le lien de cette page c'est
http://bourse.lesechos.fr/infos-cons.../infos/?page=1 (1...2...3...4...5...6 ect) en haut de liste
tu a conseil investir a cliquer regarde par curiosité si tu veux
et ici tu trouve tout les conseils investir et on peu même les récupérer c'est pas bo la vie

alors voila on en ai a l'évolution 1.7 pur ré ça grimpe et oui ça déchire grave... surtout les tissus nerveux :mouarf::mouarf::mouarf::mouarf:
en cas de non disponibilité il sera inscrit "non disponible"et en plus on respecte les couleurs
puree rien que pour ça regarde dans le code a partir de la ligne "le grand conseil"

dis moi ce que tu en pense???? trop fort les toulonnais :lefou:


au plaisir

ok pour le decrochage ilogique

voila remplace le code qui est en dessous " LE GRAND CONSEIL"
par ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

'0000000000000000000000000000000000000000000000000000000000000000000000000000000000 ' LE GRAND CONSEIL 'http://bourse.lesechos.fr/infos-conseils-boursiers/infos-conseils-valeurs/infos/?page=( 1 et 2 et 3 etc....) '0000000000000000000000000000000000000000000000000000000000000000000000000000000000   avance = (184 / 40) For i = 1 To 40 elements_conseil = Split(Get_code_source("http://bourse.lesechos.fr/infos-conseils-boursiers/infos-conseils-valeurs/infos/" & "?page=" & i), "<tr class=""b12-direct-trblanc"">")   For e = 0 To UBound(elements_conseil) DoEvents If InStr(elements_conseil(e), UserForm2.Controls("NOMVALEUR") & " :") > 0 And InStr(elements_conseil(e), "<p class=""b12-direct-surl ") > 0 Then On Error Resume Next conseil = Split(Split(Split(elements_conseil(e), "<p class=""b12-direct-surl ")(1), ">")(1), "<")(0) On Error GoTo 0 GoTo suite End If   Next UserForm2.barro.Width = avance * i Next suite: UserForm2.barro.Width = 184 UserForm2.leconseil = IIf(conseil <> "", conseil, "non disponible") Select Case conseil Case "Achat", "Achat spéculatif" UserForm2.leconseil.BackColor = vbGreen Case "Vente partielle", "Vente" UserForm2.leconseil.BackColor = vbRed Case "Ecart" UserForm2.leconseil.BackColor = vbRed   End Select End With

---

tu vois il m'arrive aussi amoi de buger grave



trop la classe cette appli maintenant
dis moi si tu veut les autres tableaux moi ca m'amuse
au plaisir

ca yest je suis au bord de l'anevrisme

tiens pour cesoir je m'arrete a la version 1.9 je suis fatigué

beaucoup plus fluide dans la recherche du conseil

purré je fume du cerveau je vais me coucher :mouarf::mouarf::mouarf::mouarf:

au plaisir

:oops::oops: Re-bonsoir,

concernant l'évolution 1.9, il semble que votre méthode ne vous permette pas de récupérer tous les Conseils.
Pour "AIR FRANCE", le USF indique "non disponible" alors que la page "Synthèse" de la valeur donne "ACHAT SPECULATIF".
Je pense que seules les pages "Synthèse" des valeurs permettent de récupérer tous les Conseils.
Pour certaines d'entre elles (Valeurs inscrites au SRD), un état de 4 pages "CONSEILS de A à Z" permet de consulter les Conseils de ces valeurs.

Voici le lien de la 1 ère :
http://bourse.lesechos.fr/bourse/inf...ist_pageNum=1&

Pour les valeurs qui ne font pas partie de cette liste, il faut aller dans leur page "Synthèse".
Ainsi, pour "ALPES (COMPAGN", l'USF indique "non disponible" alors que le Conseil dans la page "Synthèse" est "ECART".

Concernant le fonctionnement de l'USF, il y a un "bug" lorsque l'on demande l'enregistrement : 'Erreur d'exécution 70' et Permission refusée.
.Name = "barre" & I apparaît en jaune dans Visual basic editor.

Afin de vous prouver que j'essaie de progresser, j'ai apporté quelques modifications à "Bric à brac Nonno" que vous trouverez en pièce jointe.
J'espère que vous apprécierez.
Pour le "fun" comme disent les "djeunes", je suis sûr que vous voudrez bien enregistrer les "COTATIONS" de "AB SCIENCE" et "AIR LIQUIDE" par exemple.

Oui, je sais, ce n'est pas parfait et vous voudrez y remédier !!

Bonne soirée.
Cordialement.

Nonno 94.

salut nonno

je n'ai pas le probleme comme toi moi
avec "barre&i"

de toute facon moi j'avance
voila la version 2.1
on navigue maintenant sur 3 pages

la pages syntheses pour le donnée

les pages info pour le conseil et recuperer le lien de la pages speciale au nom de la valeur ou l'on trouve des commentaires et autre
c'est dailleur sur cette derniere que je recupere le resumé globale

prepare toi une cafetiere tu en aura besoin:mouarf::mouarf::mouarf::mouarf:

dis moi ce que tu en pense ?

au plaisir

:ccool::ccool: Bonjour Patricktoulon,

effectivement, "ça avance fort" !
Cependant, mes 2 remarques restent valables; à savoir :
-

Code:

---

1 2 3 4 5 6 7

For i = 1 To 5 With ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, Left:=.Range(Controls("barre" & i).Tag).Left, Top:=.Range(Controls("barre" & i).Tag).Top + 3, Width:=Controls("barre" & i).Width / 1.7, Height:=Controls("barre" & i).Height - 5) .Name = "barre" & i .Fill.ForeColor.RGB = (Controls("barre" & i).BackColor) .Line.Visible = False End With Next

---

N.B. : ce "problème" est apparu lorsque vous avez ajouté le CONSEIL dans l'USF.

Auparavant, avec cette partie de code, l'enregistrement se déroulait sans "bug" !

Code:

---

1 2 3

If Left(ctrl.Name, 5) <> "barre" Then .Range(ctrl.Tag).Interior.Color = ctrl.BackColor Else

---

- Les CONSEILS :
- le Conseil "AIR FRANCE" dans USF = "ACHAT" et non "ACHAT SPECULATIF" comme dans page "Synthèse.
- le Conseil "ALPES (COMPAGN " dans USF = "Non disponible" et non "ECART comme dans page "Synthèse.

(voir les feuilles enregistrées dans le fichier joint).

Encore une fois, ce que vous avez créé me suffit et vous pouvez arrêter d'apporter des modifications pour passer à d'autres projets.

MERCI.

Cordialement.
Nonno 94.

re
alors pour la difference pour "achat" et "achat speculatif" c'est parceque la page infos ou l'on le recpere est a jour par rapport a la page syntheze

tu n'a qu'a regarder dans la page ou il y a tout les infos conseil tu verra

quand au reste du probleme je ne l'ai pas donc ca doit etre une difference entre 2007 et 2003 car je suppose que tu travaille sur 2003 et la si je ne l'ai pas je suis dans l'incapacité de deviner

ensuite j'espere que tu n'essaie pas d'adapter mon code au tiens parceque c'est l'inverse qu'il faut faire

ensuite je suis en train de revoir tout le system car je me suis rendu compte qu'il y avait encore plus facile

mort de rire


au plaisir

Merci de répondre.

J'ai effectivement 2003 et je ne me hasarderais certainement pas à modifier vos codes.
Ce que j'essaie de faire ainsi que vous avez pu le voir avec le fichier que je vous ai retourné hier est d'harmoniser la présentation avec celle de mes autres fichiers (codes couleurs) ou d'ajouter une macro pour classer dans l'ordre alphabétique les feuilles contenant les données affichées dans l'USF dès leurs créations.
Celle-ci fonctionne bien dans le fichier qui ne pose pas de problème avec le code :

Code:

---

1 2 3

If Left(ctrl.Name, 5) <> "barre" Then .Range(ctrl.Tag).Interior.Color = ctrl.BackColor Else

---

mais clignote avec celui de votre dernier fichier (La bourse à nonno V.2)
lorsque j'essaie de l'intégrer dans Private Sub CommandButton1_Click() pour l'USF 2.
Voir fichier joint.
Décidément, vos derniers codes n'apprécient pas ma "machine" !

Ceci pour vous montrer que je participe dans la mesure de mes faibles moyens.

Concernant les CONSEILS, pour AIR FRANCE, la page dont le lien suit indique "ACHAT SPECULATIF".

http://bourse.lesechos.fr/infos-cons...les_articles=1

Si vous cosultez cette page (CONSEILS SRD),
http://bourse.lesechos.fr/bourse/inf...srd_de_a_z.jsp
le CONSEIL est également "ACHAT SPECULATIF"

Encore une fois, "ne vous mettez pas la rate au cours bouillon pour cela".

Bon après-midi.
Cordialement.

Nonno 94.

bonjour nonno

tout dabors je te felicite pasbien qu'effectivement je sens une participation plus importante de ta part

celdit pourquoi veut tu passer par une macro pour changer les couleur
dans le sheets produit par le userform

je vois que tu t'est pas encore rendu compte que le sheet etait la reproduction exact de l'userform en tout points
les dimentions
le font name
le font size
le font color
ect ect......

tu n'a qu'a changer les couleur dans le userform un peu comme dans cette version que je te livre

quand a la mise en ordre alphabethique des sheets il n'y a rien de compliqué
d'ailleurs ta macro fonctionnais tres bien chez moi

je me suis permis de faire la mienne a ma facon
regarde comment on economise des lignes de codes afin d'eviter de trop se perdre

non vraiment la !! 6 sur 10 pour la participation
2 sur 10 pour la compréhention:aie::aie::aie::mrgreen::mrgreen::mouarf::mouarf::mouarf::calim2::calim2::calim2:

alles recupere la version 2.1.1

et prepare toi une chaise avec un cousins je te prepare une version completement differente tu va rester scotché :mouarf::mouarf::mouarf:
je m'amuse comme un fou avec ca

a j'oubliais ....au plaisir

Bonsoir,

le "Toulonnais" est sévère avec son disciple !
En effet, dans le fichier joint hier, j'avais modifié des mises en formes dans le USF !!!

A mon tour de lui dire que :
- le "bug" se produit toujours lorsque je veux enregistrer dans une feuille ce qui empêche le classement alphabétique de la nouvelle feuille.
- je ne suis toujours pas d'accord avec les Conseils affichés dans le USF (cf. le lien de la page "CONSEILS de A à Z" et la page "Synthèse" des valeurs).
Dans les pages "Infos et Conseils boursiers ...", voilà ce que j'ai trouvé pour "AIR FRANCE KLM" à la date du 03/11 (identique à la page "Synthèse")
03/11 01h00 Conseil Investir
Achat spéculatif AIR FRANCE -KLM : Mercredi, 5% du capital ont changé de mains Investir

http://bourse.lesechos.fr/infos-cons.../infos/?page=9

Petite question : pourquoi le "Conseil" n'est il pas récupéré dans la feuille enregistrée ?

Peut-être la nouvelle version gommera-t-elle tous ces détails ?

J'arrête là car sinon je vais me faire jeter et chacun sait surtout dans les régions côtières "qu'il ne faut pas faire ...... le marin (surtout Toulonnais) quand la mer est mauvaise" !!!!

Sur ce, je vous souhaite une bonne soirée.
Cordialement.

Nonno 94.

:cry::cry:Bonjour Patricktoulon,

passablement agacé par cette erreur qui survient lorsque je demande l'enregistrement des données affichées dans le USF puis le classement alphabétique de la feuille générée, m'empêchant de profiter de votre précieux travail, j'ai fait une recherche sur Internet pour m'informer sur ce problème.
Il en ressort, si j'ai bien compris (!!!!), que ce problème est lié au fait que je n'ai pas de "droit sur le fichier (lecture seule)".
La solution résiderait dans une modification du code ce qui pour moi est inenvisageable.
Qu'en pensez-vous ?
Vous trouverez ci-dessous le lien concernant ce sujet.

http://www.developpez.net/forums/d12...ssion-refusee/

Bonne journée.
Cordialement.

Nonno 94.

bonsoir nonno

voila une nouvelle version la v2.5

nouveauté :
menu contextuel perso
possibilité d'affichage fullscreen ou pas
recherche intuitive d'une feuille valeur efectuée par le menu contextuel
en effet les nom de feuille apparaise que si elle sont presente

mise en page et impression automatique des tableau par le menu contextuel
les conseils sont aussi inscrit dans un commentaire dans chaque cellules en colonne valeur dans le sheets potentielS quand ceci sont disponibles bien sur
j'ai aussi changer la facon pour les "barre & i" peut etre que tu aura moins de problemes

purré une app comme ca t'a jamais vu

regale toi

:ccool::ccool::ccool: Bonjour Monsieur le Toulonnais-trop-fort-qui-ne-reste-jamais-en-rade,

heureusement que j'ai pris la précaution de m'installer confortablement dans mon siège "baquet" avant d'ouvrir cette nouvelle version; parce que, "là ça décoiffe" et l'essai a été magnifiquement transformé ("on se croirait au stade Mayol !!!!!).
Les "menus détails" qui gâchaient mon plaisir ont disparu et tout fonctionne à merveille.

Une précision sur les "Nouveautés": qu'entendez-vous par :
Menu contextuel perso.
Possibilité d'affichage fullscreen ou pas
Recherche intuitive d'une feuille valeur effectuée par le menu contextuel;
En effet les noms des feuilles n'apparaissent que si elles sont présentes" ?

Une remarque concernant la valeur "RALLYE" : la feuille indique un Conseil "non disponible" alors que la page "Synthèse"
http://bourse.lesechos.fr/bourse/syn...PAR&codif=ISIN
et la page "Infos & Conseils / TOUTES LES INFOS / CONSEILS" indiquent "ACHAT".
http://bourse.lesechos.fr/infos-cons...les_articles=1

Avant de vous décerner ma note pour cette discussion et le titre honorifique de "Monsieur-no-limit-es-Excel", je vais vous faire une suggestion pour une nouvelle version "2.5 ++++ Turbo" :
ajouter une macro pour colorer automatiquement les onglets des feuilles lorsqu'elles sont créées en fonction du Conseil dans la même couleur que celle de la feuille (cellule B14).
Ainsi, l'onglet d'une feuille dans laquelle sont enregistrées les données d'une valeur dont le Conseil est "ACHAT" sera automatiquement coloré en Vert à la création de la feuille, celui d'une valeur dont le Conseil est "VENTE" en Rouge.

Pour illustrer ma demande, je joins votre fichier avec les onglets colorés.

Quelle que soit votre réponse, encore MERCI :merci:et .....BRAVO pour tout.
Bon après-midi.

Cordialement.
Nonno 94. :lahola:

bonjour nonno
je sais je sais n'en jetez plus la coupe est pleine :mouarf::mouarf::mouarf:

alors quand je parle du menu contextuel c'est le clic droit n'importe ou dans un sheet

au départ quand le fichier est vierge de tout autre feuille que celle du potentiels le menu n'offre que 2items
affichage full screen ou normal en fait ça enlève le ruban les scrollbar ect...

le 2eme item ouvre le userform comme d'habitude

ensuite quand tu a enregistrer le feuille avec le userform
tu te retrouve avec la feuille que tu viens de créer un autre menu contextuel est créé pour ces feuille tu a
retour a potentiel
imprimer la feuille
voir des autres feuille si il y en a

c'est pas beau la vie

et pour tes onglet rien de plus facile

quand au petite différence pour rallie par exemple c'est par que dans les pages infos....... elle n'y est pas

tu a remarqué aussi le commentaire des cellule en colonne "VALEUR"

passe avec ta souris juste dessus comme ça sans appuyer la ou il y a les angle rouges

c'est magique
allez au plaisir

Citation:

---

et pour tes onglet rien de plus facile

---

Oui !!! Avec une macro ? Comment ?

Attention, un titre est en jeu !!

Cordialement.
Nonno 94.

hihihihi
mes fesse oui

un titre j'en ai pas besoins je sais ce que je vaut moi

et puis une note si tu aurais du en mettre une c'est a chaque message de ma part ou d'un autre qui t'a convenu
par les pouces en bas rouge ou en le pouce en haut vert
relis la charte a mon avis t'a pas tout compris
bon regarde cette version et prend une camomille

nouveauté
menu contextuel dans le sheets potentiel revu amélioré et agrémenté
pareil pour les autre feuille crée avec la valeur par le userform

on a la possibilité maintenant d'archiver les feuilles
on a la possibilité de comparer une feuille valeur archivé la semaine dernière ou un autre jour avec celle du jour dans un nouveau userfom
les différences sont en vert pour la hausse et rouge pour la baisse

pareil pour le potentiel mais je ne l'ai pas encore fini

possibilité de naviguer entre les feuille toujours avec le menu contextuel
les petit bug concernant l'affichage plein écran ou pas on été résolu
tes onglets au couleurs du conseil c'est bon c'est réglé
et dire que tu est payé pour faire ça :mouarf::mouarf::mouarf::mouarf:

moi je m'amuse comme un fou avec ta bourse a neuneu
allez va au plaisir