Extractions des META description keywords title

Cyril53 · 6 Mai 2005

Bonjour à tous,

J'ai beaucoup de Favoris que je souhaite mettre à disposition d'un groupe de personnes.

Pour cela, je voudrais récupérer les descriptions des sites concernés, à partir d'excel, directement sans tout taper à la main.

Je n'ai pas trouvé de solution dans le forum !

Version Excel 2000 - Windows -
Meta names intéressants : keywords description title author ...
De toute façon la recette pour marchera pour les autres !

Merci de l'aide que vous pourrez m'apporter !

MichelXld · 6 Mai 2005

bonjour Cyril

peux tu preciser comment tu fais actuellement pour afficher ces données 'manuellement' ?

chez moi , le dossier des favoris ne contient que des raccourcis , sans infos spécifiques lorsque je fais un clic droit sur le lien , puis propriétés

bon week end
MichelXld

Cyril53 · 10 Mai 2005

Bonjour MichelXld

Ces infos sont des 'META TAGS' qui sont contenu dans le code Html des pages web.
On peut les consulter en faisant Affichage/Source, ce qui ouvre le bloc note avec le code.
Exemple de la page du Forum :
----------
<title>Excel Downloads - Extractions des META description keywords title </title>

<meta name='description' content='Site indépendant des passionnés d'Excel contenant de nombreuses applications à télécharger, des tutoriels, des actualités, un forum, des offres d'emplois et de nombreuses autres choses à découvrir.' />
<meta name='keywords' content='excel,microsoft,downloads,telechargements,telecharger,microsoft office,formation,formule,shareware,freeware,tutoriel, tutorial, tutoriaux, tutoriels, didacticiel, aide, cours, formation, didacticiels, aide en ligne, macros, visual basic,vba, access' />
<base href='Lien supprimé />
---------------------
Les balises sont entre les signes < et > (vert) et les infos qui m'intéresse sont le contenu (en orange).

A bientôt !

Cyril

MichelXld · 11 Mai 2005

bonjour Cyril

je comprend mieux ta demande
tu peux tester cette procedure qui fonctionne chez moi :

Code:

Sub metaInformationsPageWeb()
'michelxld le 11.05.2005
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
Dim IE As New InternetExplorer
Dim x As Integer
Dim htmlDoc As HTMLDocument
Dim htmlRef As IHTMLMetaElement
Dim i As Byte

IE.Navigate '[B]Lien supprimé[/B]
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

Set htmlDoc = IE.Document
MsgBox htmlDoc.Title

For i = 0 To 1
Set htmlRef = htmlDoc.all.tags('meta').Item(i)
MsgBox htmlRef.content
Next i

Set IE = Nothing
End Sub

bonne journée
MichelXld

Flohb · 25 Mars 2008

Re : Extractions des META description keywords title

Comment faire pour récuperer chaque données dans le document lui meme et non pas dans un message box?

Antho87 · 13 Octobre 2009

Re : Extractions des META description keywords title

Bonjour,

Le code proposé me paraît pas mal pour ce que je souhaiterais faire sauf qu'il est demandé d'activer :
"nécéssite d'activer la référence Microsoft Internet Controls"
Et évidemment sous Excel 2007 bé je l'ai pas

Je voudrais savoir comment faire pour la rajouter, merci

Bon euh... j'ai trouvé, en réfléchissant on fait de ces choses parfois...

Extractions des META description keywords title

Cyril53

Guest

MichelXld

XLDnaute Barbatruc

Cyril53

Guest

MichelXld

XLDnaute Barbatruc

Flohb

XLDnaute Nouveau

Antho87

XLDnaute Nouveau

Discussions similaires