Je suis en train de faire un script pour récupérer des infos sur un livre
à partir de son ISBN. Pour cela j'utilise un service Web : ISBNdb.com

Jusqu'ici pas de problème , j'ai crée ma fonction
pour faire une requête et récupérer le résultat qui s'affiche sous
une structure XML.

Mais mon problème c'est d'y récupérer ces infos :
- Le nom du livre : <Title> ou <TitleLong>
- Le ou les auteurs : <AuthorsText>
- L'éditeur : <PublisherText>.

J'ai essayé le parseur XMLDOM de Microsoft, sans succès.
J'ai suivit le tuto de Baptiste Wicht, très bon tuto, mais j'ai du mal à l'appliquer pour mon propre code.

Je joint ici un exemple de structure revoyée :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
<?xml version="1.0" encoding="UTF-8"?>
 
<ISBNdb server_time="2010-01-01T18:04:11Z">
<BookList total_results="1" page_size="10" page_number="1" shown_results="1">
<BookData book_id="rhinoceros_a02" isbn="2070368165" isbn13="9782070368167">
<Title>Rhinoceros</Title>
<TitleLong>Rhinoceros (French Edition)</TitleLong>
<AuthorsText>Eugene Ionesco</AuthorsText>
<PublisherText publisher_id="distribooks">Distribooks</PublisherText>
</BookData>
</BookList>
</ISBNdb>
Ah au fait ! Si sa intéresse quelqu'un je lâche ma fonction
(Besoin d'une Key, il suffit de s'inscrire sur le site).

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Function RechercheLivre(APIKey, BookISBN)
	Dim objHTTP
	Set objHTTP = CreateObject("Microsoft.XMLHTTP")
                objHTTP.open "POST", "http://isbndb.com/api/books.xml?", False
                objHTTP.send ("access_key=" & APIKey) + ("&index1=isbn&value1=" & BookISBN)
		RechercheLivre = objHTTP.responseText
	Set objHTTP = nothing
End Function
Merci pour votre précieuse aide