XL pour MAC ISBN

[GGFuveau]

Bonjour.
Je ne suis pas un expert en Excel, juste un utilisateur "averti". Je débute sur Excel Downloads et j'ai l'impression que c'est d'une grande richesse.
Je dois gérer des inventaires de livres pour une association qui organise un salon littéraire. Je peux scanner et importer dans un fichier Excel le code ISBN, mais je ne sais pas remplir automatiquement les informations du livre (titre auteur etc.) Merci beaucoup pour votre aide. Gérard

 

[GGFuveau]

Je suis ce soir avec un ami qui parle le VBA couramment.
On obtient cette requête : curl --get -d https://www.googleapis.com/books/v1/volumes?q=isbn=<9782957439805>

 

[GGFuveau]

l'url remonte bien la fiche xml du livre lorsqu'on la saisit dans le navigateur (Safari). En revanche j'ai une erreur qui semble liée à bash dans MacOs :
macbook-pro:~ gerard$ curl --get --d https://www.googleapis.com/books/v1/volumes?q=isbn=<9782957439805>
-bash: syntax error near unexpected token `-1'
Qu'en penses-tu ? En fait le code VBA fonctionne mais la ligne de commande MACOS ne semble pas correcte.

 

[Dudu2]

Je ne connais rien à ce curl de MAC, j'ai pris l'exemple sur Internet.
Sur Internet, on est supposé envoyer une chaine $Query que j'ai supprimée car seul l'URL est suffisant.
Il faut essayer en retirant le -d (je ne sais pas à quoi correspond cette option).
Essaie ces 2 options:

sCmd = "curl --get " & Replace(Url, "ISBN>", ISBN)
sCmd = "curl " & Replace(Url, "ISBN>", ISBN)

 

[Dudu2]

De plus, si le titre n'est toujours pas trouvé (ce qui m'étonnerait si le curl passe) retire les commentaire sur ces instructions et envoie-moi ce qui apparait dans A1.

'[A1].Value = GetBookFromISBN(ISBN)
'Exit Sub

 

[GGFuveau]

Merci Dudu2. En déplacement jusqu'à jeudi soir, je ne pourrai pas tester avant. Je te tiendrai au courant dès que j'aurai à nouveau avancé. Merci encore pour ton aide ! GS

 

[Pyros2536]

on doit avancer, j'ai maintenant le message
Titre: Tag "Title" non trouvé !





Auteur:

Salut GG
Je vois que nous suivons les mêmes pistes ! j'en suis arrivé là moi aussi après quelques heures de recherches. Même erreur avec XL 2019. continuons à chercher
Pierre

 

[Pyros2536]

De plus, si le titre n'est toujours pas trouvé (ce qui m'étonnerait si le curl passe) retire les commentaire sur ces instructions et envoie-moi ce qui apparait dans A1.

'[A1].Value = GetBookFromISBN(ISBN)
'Exit Sub

Bonjour Dudu2
après avoir testé tes deux modifs, il ne se passe rien! la cellule A1 ne renvoie aucune valeur. Mystère lié au vba de MacOs ?

 

[p56]

Bonjour à tous,

Ne fonctionne probablement pas sur Mac, mais voici une version Pc (32 bits et 64bits)

Ici le site interrogé est le catalogue en opendata des prêts des bibliothèques de Paris.
Les n° ISBN sont à saisir selon le format "officiel" (et non abrégé sans les - tirets)
@Dudu2 saura probablement rendre de code compatible Mac (?)
P.

 

[Pyros2536]

Bonjour à tous,

Ne fonctionne probablement pas sur Mac, mais voici une version Pc (32 bits et 64bits)
Regarde la pièce jointe 1189021

Ici le site interrogé est le catalogue en opendata des prêts des bibliothèques de Paris.
Les n° ISBN sont à saisir selon le format "officiel" (et non abrégé sans les - tirets)
@Dudu2 saura probablement rendre de code compatible Mac (?)
P.

bonjour p56. ton script fonctionne bien sur PC Windows10. Impec ! Reste à trouver la conversion pour le faire fonctionner sous Mac. Merci à toi.

 

[GGFuveau]

A suivre, Pierre... on va y arriver !

 

[Pyros2536]

A suivre, Pierre... on va y arriver !

Salut GG
Comme je l'ai dit à p56 son script fonctionne bien sur PC win. Mais pas pour tous les isbn. Il semblerait que de nombreux titres ne soient pas répertoriés selon les différentes bases de données gratuite (par ex: bib paris et google). je continue à fouiner...

 

[Pyros2536]

De plus, si le titre n'est toujours pas trouvé (ce qui m'étonnerait si le curl passe) retire les commentaire sur ces instructions et envoie-moi ce qui apparait dans A1.

'[A1].Value = GetBookFromISBN(ISBN)
'Exit Sub

Salut dudu2. Après avoir testé tes différentes modifs et rajouté un chevron manquant, on voit enfin apparaitre des résultats... non mis en forme. voir fichier joint

 

[Dudu2]

Je regarde ce soir.

 

[Dudu2]

Ok donc il devrait suffire de remettre en commentaire les 2 instructions:

'[A1].Value = GetBookFromISBN(ISBN)
'Exit Sub

pour obtenir un résultat, non ?

 

[Pyros2536]

Bonjour Dudu2. Bien dormi ?
En effet. Cette petite correction fait apparaitre maintenant la MsgBox. On peut aussi "verser" le résultat de la recherche dans une cellule donnée. (voir FJ)
Je vais tenté d'améliorer l'ergonomie de la "chose" pour que celà puisse ressembler à ce qu'a fait <P56> pour windows. Je pense que ça conviendra mieux à ce qu'attend <GGFuveau>...
Have a good day