Version imprimable
bonjour nono
oui il y une solution
j'ai mis la condition sur la premiere valeur pour toute la ligne
je me suis rendu compte que meme si il n'y avait pas potentiel et objectif il pouvait y avaoir un cours
donc je te conseille de séparé la condition unique en trois condition pour chaque valeur
je pense que tu saura faire
si tu n'y arrive pas je m'en occuperait demain
car la je ne suis pas chez moi
au plaisir
:oops:Bonsoir Patrick et merci d'avoir pris la peine de répondre aussi rapidement à mon message de détresse.
J'ai essayé de modifier le code et ai échoué lamentablement.
Je m'en remets donc à votre expertise pour le faire.
Quelle serait la modification pour extraire les données à partir des pages "Synthèse" et non des pages "Consensus" ?
Je vous souhaite une bonne soirée.
Cordialement.
Nonno 94.
Re-bonsoir Patrick,
si je préfère obtenir les données à partir des pages "Synthèse" plutôt qu'à partir des pages "Consensus", c'est parce que les Potentiels donnés dans les pages "Synthèse" sont exacts tandis que ceux donnés dans les pages "Consensus" sont erronés aussi surprenant que cela puisse paraître !!
Cordialement.
Nonno 94.
Réglerait problème des 3 conditions
Et j analyserons le code source des page synthèses
Si tu ale temps d ici demain après midi
Regarde les codes source voir si tu trouve pas des références sur les 19 valeurs
À demain au plaisir
bon voila
on a des onglets bleu et des onglets rouges
dans les bleu pour l'objectif c'est objectifs de cours a trois mois"
dans les rouges c'est "objectifs de cours a 3 mois"
petite différence qui m'a rendu complètement dingue
bon maintenant tu a tout dans les bleu et tout dans les rouge
"cours" ,"+ HAUT",objectif,potentiel
j'ai modifié le code complètement
il te faut oublié le précèdent
j'ai modifié aussi le titre d'un fonction dans le module "fonction commune
il te faudra y faire attention
avec l'ancien module 'fonction commune çà ne fonctionnera pas
allez c'est parti pour l'evolution 7
récupère le vite je ne le laisserais pas
au plaisir
Bonsoir et merci pour ce code qui, naturellement, fonctionne parfaitement.
Ainsi que vous le savez, il doit remplacer le code que j'utilise actuellement avec d'autres dans une macro qui en regroupe plusieurs autres pour mettre à jour le fichier.
Nouvelle difficulté insurmontable pour moi : je suis incapable de remplacer mon ancienne macro par les vôtres écrits dans un langage différent de celui des autres macros et que je ne comprends malheureusement pas !!
Je suis vraiment dépité.
Voici le code que j'utilise actuellement et qui doit être remplacé par les vôtres :
Code:
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Ci-dessous les autres Macros qui participent à la mise à jour du fichier.
Code:
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
37
38
39
40
41
42
43
44Sub MAJ() ' ' MAJ Macro ' Macro enregistrée le 02/09/2012 par Edmond ' ' Semaine_précédente_Objectifs_EV Semaine_précédente_Objectifs 'Effacer_Objectifs Semaine_précédente_Potentiels Lire_Cours_Objectifs_Potentiels_2 Objectifs_Copie Objectifs_JDF_Copie Cours_Consensus_Copie Cours_3_mois_2 Consensus_Copie Objectifs_3_mois_2 Ecarts_Classement Date_MAJ Colorer_Onglet MsgBox "La Mise à jour des Potentiels et des Objectifs à 3 mois des CONSENSUS est terminée." & Chr(10) & _ "Vérifier qu'elle s'est effectuée correctement." & Chr(10) & _ "Si tel est le cas, fermer le Fichier pour l'enregistrer et créer une Copie " & Chr(10) & _ "puis ouvrir le Fichier 'Conseils SRD' pour télécharger les CONSEILS actualisés du guide 'SRD' des 'Echos'et mettre à jour" & Chr(10) & _ "les Conseils, Risques et Objectifs à 18 mois de ce Fichier. " & Chr(10), vbInformation, "CONSENSUS 'Les Echos': Potentiels et Objectifs 3 mois." ActiveWorkbook.Save End Sub
La macro Lire_Cours_Objectifs_Potentiels_2 doit être remplacée par vos codes !!!
Je vous joins un fichier d'essai qui vous permettra, je l'espère, de redresser la situation !!!!
Je suis dépité.
Bonne soirée.
Cordialement.
Nonno 94.
bonjour nono
alors tu m'excusera mais c'est ni fait ni a faire
je n'y comprend rien dans ton truc
aucunne explication
tu n'a meme pas essayé d'intégrer les feuille tel que je te les avais rendues
c'est une catastrophe
bon je vais essayer de faire quelque chose mais en l'etat ca va etre difficile
je voudrais au moins que tu essaie d'analyser mon code
et que tu vois ce que tu aurais pu faire pour les au moins 200 pages synthezes
sachant que le code est commenté tu aurais du y arriver
peut etre t'es tu lancé dans une entreprise hors de ta portée
c'est temeraire j'aime ca mais il faut le faire avec methode
en tout cas moi je vire tout tes codes car ya rien a garder
je reprend tout a zero
ensuite il faudrai que tu m'explique quelle valeur va ou
les colonne ne sont plus au meme encroits
enfin si je devais traviller dans le bon sens il y aurais qu'a recupérer les lien syhtheses(210 apeu pres )et les autre
tout le reste est a jetter
bon apres ma crise de colere
donne mois une page vide avec des bulles qui me disent a quoi corespondent les cellules
en plus je viens de me rendre compte que tu n'a meme pas ecouté ce que je t'ai dis
pas de virgule dans les noms de sheets c'est pourtant pas compliqué sinon trop de probleme dans le code
je ne retrouve rien de ce que je t'ai fait dans ton fichier
a plus
:aie::aie::aie::aie::aie::aie::massacre::scarymov::evilred::arf::sm::furieux::mur::fessee::alerte:
bonsoir
après ma petite crise de ce matin je reviens avec de bonnes nouvelles
voila ton fichier nettoyé,vidé,expurgé,décrassé,décapé
toujours une seule fonction pour les données
j'ai supprimé tout tes modules a dormir debout sauf le module 1
qui te sert pour les autres pages
voila je t'ai mis aussi un pseudo progressbars pour avoir un aperçu de l'état du telechargement juste pour le fun
et essaie d'apprendre un peu c'est pas difficile
dis moi ce que tu en pense ???
récupère le vite je ne le laisserais pas
au plaisir
:ccool::ccool::ccool:Bonjour Patricktoulon,
c'est avec surprise que je découvre votre message et le nouveau fichier au retour de plusieurs jours "déconnectés".
Je vous en remercie et vais donc essayer de faire le ménage dans mon "bric à brac" (sic). "Ce n'est pas gagné !".
Je suis désolé de vous avoir déçu. Ne croyez-pas que je ne fasse pas d'efforts pour progresser dans un domaine dans lequel vous excellez; je "m'accroche" mais c'est difficile.
Je vais donc décortiquer ce nouveau fichier pour essayer d'en comprendre les subtilités.
Une nouvelle fois, mille mercis pour ce chef-d'oeuvre.
Cordialement.
Nonno 94.
nonno,
En fait tu doubles les difficultés, le vba n'est peut être pas la partie la plus compliquée quand tu veux récupérer des données de pages internet, il faut surtout décortiquer le HTML !
Il y a un logiciel fort intéressant à ce sujet : imacros il y a un add on pour firefox
bonjour olic et nono
oulala!! la tu l'embarque dans un domaine ou il va pas s'en sortir
l'important je crois c'est de comprendre le cheminement d'une macro
c'est la que nono a des difficulté il me semble
la méthode que j'emploie pour extraire des données sur le web et certes peu orthodoxe mais fonctionnelle elle a l'avantage d'utiliser des fonction
mis a pas le "getxmlhttp" tres courantes
ce qui a pour intérêt une simplicité du code
le 2ème avantage c'est que l'on travaille finalement sur du texte ce qui a pour effet une rapidité d'exécution relativement conséquente
d'ailleurs pour faire le test j'ai fait la même chose avec "IE" pour la page ou il y a les liens synthèses en la macro a duré 14 minutes
pourquoi?
AVEC "IE"
ouverture de 210 pages (ouverture d'une instance de l'object,et attente du ready state complete)quelque fois plus de 10 secondes
recherche de l'élément parent "les td"
recherche des enfants de cet éléments
retranscription sur la feuille en essayant de synchroniser le décompte pour le faire correspondre au lignes correspondantes ce qui n'est pas facile
AVEC MA METHODE
récupération du code source de la page correspondant au lien de chaque lignes( même pas 2 secondes)
recherche du mot dans le texte (même pas 1 secondes)
la fonction "split"fonction basique de vba voir même VB relativement bien gérée par vba sur les symboles de début et fin de balises ("<" et ">")
retranscription sur le sheet avec l'index de ligne du lien
vraiment rien de compliqué
encore une fois ça n'est pas orthodoxe comme façon de travailler mais c'est un exercice sur le quel je travail beaucoup en ce moment et j'essaye de le perfectionner au mieux
en tout cas dans un cas comme celui de nono ou il y a des récurrences multiples ça s'avère efficace
au plaisir
salut nono et oliv-
nono je suis en train de regarder les autre page qui utilise les connection excel
je suis en train e me dire "a tu besoins de tout ça "
quelles donnée pour toi sont a prendre en compte
donne moi le numéros de ligne dans la page "ACCORD" par exemple
qui sont pour toi indispensable
car il est vrai que quand je clique sur ton bouton jaune ou lala j'ai intérêt a avoir la cafetière pleine et surtout du temps :mouarf::mouarf::mouarf:
je peut te faire un module pour ces pages aussi 100 fois plus rapide et mieux ci blé sur les éléments qui t'intéresse
j'attend les numéros de lignes
au plaisir
allez un petit exercice qui me torture l'esprit depuis quelque jours pour oliv-
pouquoi ca ca marche:
Code:
2
3
4
5
et pourquoi ca ca ne marche pas :
bon courageCode:.Cells(I, "d") = IIf(InStr(lapage, mot4) <> 0, HtmlToText(Split(Split(Split(lapage, mot4)(1), ">")(2), "</td>")(0)), "N/A")
:ccool::ccool::ccool:Bonjour Patricktoulon, bonjour Oliv'
je vous remercie une nouvelle fois de vous intéresser à mon "cas".
Concernant le fichier "Bric à brac de Nonno", la seule feuille dont j'ai besoin est la feuille "Potentiels-S" qui me permet de télécharger dans des conditions très confortables toutes les données dont j'ai besoin pour alimenter mes autres fichiers.
Les autres feuilles étaient seulement destinées à montrer la disposition des pages "Synthèse" et "Consensus" des Valeurs. Elles peuvent donc être désormais être supprimées.
Oserais-je avouer que mes tentatives pour y parvenir ont ........échoué !
Ceci n'empêche naturellement pas le fichier de fonctionner. Je conçois cependant que cela puisse choquer les puristes que vous êtes.
Je vous souhaite une EXCEL-lente fin de journée.
Cordialement.
Nonno 94.
salut nono et oliv-
nono je suis en train de regarder les autre page qui utilise les connection excel
je suis en train e me dire "a tu besoins de tout ça "
quelles donnée pour toi sont a prendre en compte
donne moi le numéros de ligne dans la page "ACCORD" par exemple
qui sont pour toi indispensable
car il est vrai que quand je clique sur ton bouton jaune ou lala j'ai intérêt a avoir la cafetière pleine et surtout du temps :mouarf::mouarf::mouarf:
je peut te faire un module pour ces pages aussi 100 fois plus rapide et mieux ci blé sur les éléments qui t'intéresse
j'attend les numéros de lignes
au plaisir
allez un petit exercice qui me torture l'esprit depuis quelque jours pour oliv-
pouquoi ca ca marche:
Code:
2
3
4
5
et pourquoi ca ca ne marche pas :
bon courageCode:.Cells(I, "d") = IIf(InStr(lapage, mot4) <> 0, HtmlToText(Split(Split(Split(lapage, mot4)(1), ">")(2), "</td>")(0)), "N/A")
Question :
pour quelle raison Patricktoulon ne termine-t-il plus ses messages ("posts" !) par la formule habituelle : "Au plaisir" ?
Je crois avoir une idée pour la réponse !!
:lol:
re
hahahahah!!!!!..
non pas du tout ca n'est pas ce que tu crois
quand je suis sur un exercice comme en ce momment je suis yper concentré et j'oublie les bonnes manieres
non tu sais moi je pique ma crise et puis apres c'est fini j'ai tout oublié :mouarf::mouarf::mouarf::mouarf:
mais il est vrai que j'oublie tres souvent que je me suis trouvé dans la meme situation que toi il y a pas si longtemps
j'ai posé des question bien plus idiote que les tiennes je les citerais pas j'ai, trop hontes :mouarf::mouarf::mouarf::mouarf:
rien que pour le plaisir donne moi ce qui est gardable sur la page "ACCORD"
je vais la faire rien que pour m'amuser
au plaisir :mouarf::mouarf:;)
ca devrait !Citation:
Envoyé par patricktoulon
et ben non!....
ca devrait mais non ca ne marche pas
c'est bien pour cela que je t'ai posé la question au cas ou un petit detail m'aurait echapé
je suis la dessus depuis vendredi dernier
j'ai tou tester les processus et pas a pas rien ne me dis que c'est pas bon pourtant bug quand je l'applique
c'est a devenir dingue
au plaisir
puisque le Toulonnais ne veut pas me laisser en ......rade, je joins un petit fichier dérivé du "Bric à brac de Nonno" avec une feuille "ACCOR" pour les données à extraire et une question subsidiaire :
pourquoi la feuille "Potentiels-S" tremble-t-elle lorsque la macro de mise à jour est lancée si cette feuille "Potentiels-S" est seule dans ce fichier ?
Précision : la protection de la feuille est retirée au début et remise à la fin de la macro (peut-être pas aux bons endroits ?).
Bonne soirée.
Cordialement.
nonno 94.
salut nono
non elle ne tremble pas elle semet a jour
si elle tremble tu dois avoir un moulinex comme moteur dans ton ordi
mais si ca te gene tu peut mettre tout en haut de la fonction
Code:application.screenupdating=false
je regarde le reste
auuuuu pppplllllaaaiiissssirr
re
puisque la encore une fois tu ne donne pas de précision je suppose que ce que tu veux sur la page "ACCORD" est en jaune
est ce bien ca
??????
coquin de sort exprime toi bien clairement sinon je vais perdre tout le cheveux qui me reste
au plaisir
:ccool:
cher Toulonnais,
je savais bien que vous comprendriez !
Je joins un fichier qui comme moi à tendance à trembler !!
Bonne soirée.
en attendant
j'étais entrain de faire
un petit bidule
prend le fichier et dans le sheets potenciel-s clique droite n'importe ou dans un ligne
et vois la magie opérer recuperer le vite les fichiers grossissent
au plaisir
pour le clignotement c'est bien ca
a rajouter en en debut de fonctionCode:application.screenupdating=false
sinon pas de souci
amuse toi bien avec l'item ajouté dans le menu contextuel des cellule sur le sheets potentiel S
au plaisir
je regarde toujour pour les jaunes