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.
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 .
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
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