XL pour MAC ISBN

GGFuveau · 20 Janvier 2024

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 · 25 Janvier 2024

Bonsoir et merci pour votre aide !
Un ami a finalement trouvé la bonne syntaxe pour la commande Curl sur MAC :

En VBA :
#If MAC Then
Function GetBookFromISBN(ISBN As String) As String
Dim sCmd As String
Dim sResult As String
Dim lExitCode As Long

Const Url = "https://www.googleapis.com/books/v1/volumes?q=isbn13=<ISBN>"

sCmd = "curl " & Chr(34) & Replace(Url, "ISBN", ISBN) & Chr(34)

sResult = execShell(sCmd, lExitCode)

' ToDo check lExitCode
GetBookFromISBN = sResult

End Function
#End If

Ce qui produit des lignes de commande de ce genre (contenu de sCmd) :

curl...

GGFuveau · 20 Janvier 2024

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 · 20 Janvier 2024

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 · 21 Janvier 2024

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:

VB:

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

Dudu2 · 21 Janvier 2024

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.

Code:

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

GGFuveau · 21 Janvier 2024

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 · 22 Janvier 2024

GGFuveau à dit:
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 · 22 Janvier 2024

Dudu2 à dit:
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.

Code:

'[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 · 22 Janvier 2024

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 · 22 Janvier 2024

p56 à dit:
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 · 23 Janvier 2024

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

Pyros2536 · 23 Janvier 2024

GGFuveau à dit:
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 · 24 Janvier 2024

Dudu2 à dit:
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.

Code:

'[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 · 24 Janvier 2024

Je regarde ce soir.

Dudu2 · 24 Janvier 2024

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

VB:

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

pour obtenir un résultat, non ?

Pyros2536 · 25 Janvier 2024

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

XL pour MAC ISBN

GGFuveau

XLDnaute Nouveau

GGFuveau

GGFuveau

XLDnaute Nouveau

GGFuveau

XLDnaute Nouveau

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

GGFuveau

XLDnaute Nouveau

Pyros2536

XLDnaute Nouveau

Pyros2536

XLDnaute Nouveau

p56

XLDnaute Occasionnel

Pièces jointes

Pyros2536

XLDnaute Nouveau

GGFuveau

XLDnaute Nouveau

Pyros2536

XLDnaute Nouveau

Pyros2536

XLDnaute Nouveau

Pièces jointes

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Pyros2536

XLDnaute Nouveau

Pièces jointes

Discussions similaires