Bonjour Eric, Celeda, Boris, Bernard, Christophe, le Forum, Les Lecteurs et Lectrices, mon Voisin de pallier, mon ex-copinne, l'épicier du coin de la rue, le serveur sympathique du "Bambi", et au type qui ronflait dans l'avion !!! et à ceux et celles que j'oublie... (lol)
Bon enfin je vous souhaite à tous et toutes de bonne et joyeuses fêtes de Pâques.
Pour ton problème Eric par mail, selon ton format de client messagerie il est possible que l'URL de retour vers le thread initial soit tronquée un peu comme ceci (exemple du fil de discussion avec Zon et tchouminator) :
This message was sent from: Forum Excel Downloads.
http://www.excel-downloads.com/html/French/forum/read.php?f=1
&i=81928&t=80167
----------------------------------------------------------------
Il est impératif que l'url ne soit pas tronquée, il faut la reconstituer comme ceci :
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=81928&t=80167
Pour ce qui concerne mon programme de recherche, tu ne peux pas l'utiliser pour quelle raison ? version d'excel ou bien tu n'as pas le droit ?
Enfin dans tous les cas pour t'y retrouver facilement dans ce forum l'URL de base est toujours constitué ainsi (exemple de ce fil de discussion):
http://www.excel-downloads.com/html/French/forum/messages/1_77772_77772.htm
77772 étant le numéro "Main" du Thread (Fil) si il y a deux numéros, le plus petit est à prendre en considération...
Mais par contre on peut même écrire l'URL ainsi :
http://www.excel-downloads.com/html/French/forum/messages/1_1_77772.htm
le dernier numéro étant celui qui sert rééllement à reconstituer la page en PHP
Ainsi, par exemple le fil que je donnais plus avec tchouminator dont le numéro le plus petit est 80167 il suffit de copier ceci
http://www.excel-downloads.com/html/French/forum/messages/1_1_80167.htm
Voilà, je pense que celà t'aidera un peu plus et si tu souhaites le faire par VBA comme dans mon Ce lien n'existe plus
Voici un code tout simple :
Option Explicit
'@+Thierry, NB nécessite référence blibliothèque "Microsoft ActiveX dataObject 2.0" minimum
Const XLD As String = "http://www.excel-downloads.com/html/French/forum/messages/1_"
Sub XLD_URL_Builder()
Dim PHP_URL As String
Dim Thread As String
Thread = InputBox("Saisir Numéro du Fil," & vbCrLf & _
"Puis dans la barre d'adresse de IE faire CTRL + V", "XLD URL Maker", "77772")
PHP_URL = XLD & Thread & "_" & Thread & ".htm"
With New DataObject
.SetText PHP_URL
.PutInClipboard
End With
End Sub
On pourrait aussi travailler depuis un simple feuille contenant les numéros de thread et faire ceci quand le numéro est sélectionné puis en agissant par un double click :
Option Explicit
'@+Thierry, NB à mettre dans le Private Module de la Feuille en question
Const XLD As String = "http://www.excel-downloads.com/html/French/forum/messages/1_"
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim PHP_URL As String
Dim Thread As String
Cancel = True
Thread = ActiveCell.Value
If Thread <> "" Then
ThisWorkbook.FollowHyperlink XLD & Thread & "_" & Thread & ".htm"
End If
End Sub
et hop !!! le tour est joué et je pense que tu pourras faire ceci depuis ton boulot sans difficulté... on peut travailler directement depuis les Databases TXT au cas où d'ailleurs...
Et....... d'ailleurs si David me lit, ce serait bien de me faire parvenir une MAJ pour le premier trimèstre si il peut...
Bonnes Pâques à tous et toutes
@+Thierry
