lister le forum sur excel?

[sioli]

une petite question .

est il possible de lister toutes les question du forum sur excel pour puvoir faciliter les rechercher?

ps: tous le forum et une page a la fois.

merci les gas

 

[Temjeh]

Bonjour à tous

Je ne crois pas car à 120k en moyenne de la page (23k juste les questions) et 1 page aux 2 jrs ca ferait un trop gros classeur !!!

On a le moteur de recherche ici.

En attendant mieux ...(ici on peut nous surprendre)

A+

Temjeh

 

[Eric C]

Bonjour le forum
Bonjour sioli (Les réponses d'hier te conviennent elles ....cm), bonjour Temjeh

J'ai retrouvé l'un des fils de notre Grand ami Thierry (qui je crois sera à Paris le 13 juin....pour le concert de Chantal G... c'est cela ? Bonjour Thierry) visant à répertorier les différentes questions par domaines Ici
En recherchant, tu découvriras également Son moteur de recherches.

Bon dimanche à toutes & à tous

 

[sioli]

la taille ne me fais pas peur .

enfait il faudrait juste le listig dans l'excel et l'aisser le lien qui est lier eu forum,s'a serais plus fassile pour voir et drier toutes les question .

a mediter

a+ les gas

 

[sioli]

desoler pour les faute je vais trop vite pour ecrire et je ne fais pas attention a se que j'envois.

a+

 

[MichelXld]

bonjour Sioli , bonjour chers Temjeh et Eric


cet exemple permet de lister les 240 derniers fils de discussion du forum XLD : j'espere que ça pourra t'aider

Sub listeFilsDeDiscussion_XLD()
'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, y As Integer
Dim maPageHtml As HTMLDocument
Dim j As Integer

Application.ScreenUpdating = False

For j = 1 To 4
IE.Navigate 'Lien supprimé & j & '.htm'
IE.Visible = False
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop

Set maPageHtml = IE.Document
For x = 0 To maPageHtml.links.Length - 1
If maPageHtml.links(x) Like 'Lien supprimé Then
y = y + 1
Worksheets(1).Hyperlinks.Add Cells(y, 1), maPageHtml.links(x)
End If
Next

IE.Quit
Set IE = Nothing
Next j

For j = 480 To 1 Step -2
Rows(j).Delete
Next j
Application.ScreenUpdating = True

End Sub


bonne journée
MichelXld

Message édité par: michelxld, à: 06/02/2006 06:12

 

[sioli]

Sub listeFilsDeDiscussion_XLD()
'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

il y a une erreur?

ou bien j'ai oublier quelque chose?

 

[MichelXld]

bonjour

...oui , tu as oublié 2 choses :

1. mettre une formule de politesse dans ton message

2....tu dois prealablement activer les 2 references indiquées dans la macro

dans l'editeur de macros
Menu Outils
References
coche les 2 lignes 'Microsoft 'HTML Objects Library' et Microsoft Internet Controls '

Clique sur OK pour valider


bonne soirée
MichelXld

 

[sioli]

bonjour a tous est desoler pour la politesse je ne voulais pas froisser qui que se soit .

pour moi je penssais que dans se forum on se serrè tous les coudes puisque toutes les personnent qui vien dans se forum on besoin d'aide.

merci quand mème pour la reponsse.

a+