Image dans un état à partir de l'api google

Bonjour
J'aimerai savoir s'il est possible de générer une image dans un état access à partir de l'api google
C'est principalement pour utiliser leur api pour générer des qr code :
https://chart.googleapis.com/chart?c...200&chl=coucou

Une idée?
si bien sur vous connaissez un moyen de générer du qr code dans un état autrement et gratuitement je suis tout ouïe :ccool:
D'avance merci

Bonjour,

J'avais fait quelques recherches, ça m'étonnerait que le problème soit simple.

La première solution serait de les générer soi-même. Une fois fait, ce ne devrait pas être très compliqué de les dessiner (c'est relatif), mais pour trouver les spécifications, il semble que ce soit une toute autre histoire. En tout état de cause, cette piste semble semée d'embûches.

Une autre solution serait d'utiliser un générateur existant et de pouvoir récupérer l'adresse de l'image créée pour la télécharger en local. Mais la seule solution que j'avais trouvée était payante.

Par contre, c'est peut-être possible avec l'API Google. As-tu fait des recherches ? As-tu trouvé de la documentation ?

Domi2

Merci Domi2 d'avoir répondu à mon appel:lol:
J'ai regardé sur le net, il existe des dll payantes pour générer des codes barres 1D et 2D mais bien sur c'est payant
J'ai ce type de code pour Excel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub TestInsertPicture() InsertPictureInRange Range("A1"), Range("D10") End Sub   'Procédure d'insertion de l'image Sub InsertPictureInRange(mon_texte As String, TargetCells As Range) ' inserts a picture and resizes it to fit the TargetCells range Dim p As Object, t As Double, l As Double, w As Double, h As Double ' import picture Dim url As String url = "https://chart.googleapis.com/chart?cht=qr&chs=200x200&chl=" & mon_texte Set p = ActiveSheet.Pictures.Insert(url)     With TargetCells t = .Top l = .Left End With ' position picture With p .Top = t .Left = l End With Set p = Nothing End Sub

---

Je ne sais pas si je peux transposer ça dans access, spécialement dans un état.
J'avoue que j'ai cherché la solution tout faite sans succès mais je n'ai pas tenté de créer une image à la volée comme pour excel.

En cherchant en anglais je suis tombé sur ça :
http://www.pcreview.co.uk/forums/dis...-t3256471.html

Le problème c'est que la taille est pas maitrisée, et surtout ca me propose de télécharger l'image, il faut actualiser la page (dans le contrôle webbrowser) pour qu l'image s'affiche mais sans pouvoir bien contrôler la taille (les ascenseurs de IE sont présents)

Il me semble qu'il n'est pas possible de spécifier une url comme source d'une image dans Access, mais je ne l'ai pas sous la main, difficile de vérifier :aie:

Donc effectivement, passer par le contrôle Webbrowser serait peut-être une solution.

J'ai essayé de regarder si on trouvait une doc complète sur cette API, mais c'est plutôt maigre.

Bonjour

Tu peux éventuellement télécharger en VBA avec WinHttp. J'ai testé ça fonctionne bien.
Ça veut dire qu'on peut faire créer l'image par l'api google, et la sauvegarder localement dans un fichier.

A+

Super ça marche nikel
Donc pour les autres : pensez à mettre "Microsoft WinHTTP Services, Version 5.1" en références du projet

Pour ceux comme moi qui sont derrière un proxy transparent (Bluecoat) il faut mettre les credentials :
oWinHTTP.SetCredentials "login", "mot de passe", HTTPREQUEST_SETCREDENTIALS_FOR_PROXY

Faut que je regarder pour récupérer les credentials de la session en cours...

Sinon le code complet

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Function DownloadHTTP() Dim oWinHTTP As WinHttp.WinHttpRequest Dim fic As Integer Dim buffer() As Byte Set oWinHTTP = New WinHttp.WinHttpRequest oWinHTTP.Open "POST", "https://chart.googleapis.com/chart?cht=qr&chs=200x200&chl=coucou", False 'cette ligne est utile si vous êtes derrière un proxy transparent ou pas mais qui demande de se loguer oWinHTTP.SetCredentials "login", "mot de passe", HTTPREQUEST_SETCREDENTIALS_FOR_PROXY oWinHTTP.send If oWinHTTP.Status = 200 Then fic = FreeFile Open "c:\monimage.jpg" For Binary As #fic buffer = oWinHTTP.ResponseBody Put #fic, , buffer Erase buffer Close #fic End If End Function

---