IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Discussion :

Connexion à Translate de Google pour traduction


Sujet :

VBA

  1. #1
    Membre habitué
    Homme Profil pro
    Inscrit en
    Février 2009
    Messages
    161
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Février 2009
    Messages : 161
    Points : 168
    Points
    168
    Par défaut Connexion à Translate de Google pour traduction
    Bonjour,
    J'avais fais en VBA sous Excel un traducteur de texte qui se connectait au serveur Translate de Google, ça marchait bien avant mais depuis ça ne marche plus.
    il se peut que la connexion ne soit plus gratuite, qu'en pensez vous ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    Function Translate(RQ As Object, Html As Object, texte As String, Lang_Source As String, Lang_Cible As String) As String
        Dim URL As String
        Dim elem As Object
     
        'UTF8_Encode (texte)
     
        URL = "https://translate.google.pl/m?&sl=" & Lang_Source & "&tl=" & Lang_Cible & "&ie=UTF-8&prev=_m&q=" & UTF8_Encode(texte)
     
        RQ.Open "POST", URL, False
        RQ.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
        RQ.send
     
        Html.body.innerHTML = RQ.responseText
        Translate_new = Replace(RQ.responseText, "<>", ">" & vbCrLf & "<")
     
        For Each elem In Html.all
            If elem.tagName = "DIV" And elem.className = "t0" Then
                                                        Translate_new = elem.innerHTML
                                                        Exit For
                                                        End If
        Next elem
     
    End Function

  2. #2
    Expert éminent
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    3 939
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 3 939
    Points : 9 251
    Points
    9 251
    Par défaut
    hello,
    je crois que cela ne fonctionne plus car la réponse est envoyée par Ajax et si ton objet RQ (on ne voit pas ce que c'est dans ton code) ne les gère pas (comme l'objet MSXML2.ServerXMLHTTP par exemple) tu n'as pas la traduction. Il faut utiliser un navigateur pour gérer ce genre de réponse. On peut utiliser l'objet InternetExplorer.application ou utiliser SeleniumBasic qui est capable d'utiliser Chrome ou Edge Chromium ou FireFox.
    Par exemple avec SeleniumBasic , j'ai créé une fonction personnalisée TraductionGoogle qui traduit le texte d'une cellule Excel en utilisant une instance de Chrome :

    Nom : SeleniumTraductionGoogle.PNG
Affichages : 863
Taille : 19,0 Ko

    installation de seleniumbasic ici

    Ami calmant, J.P
    Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

  3. #3
    Membre habitué
    Homme Profil pro
    Inscrit en
    Février 2009
    Messages
    161
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Février 2009
    Messages : 161
    Points : 168
    Points
    168
    Par défaut translate Google
    Bonjour,
    merci pour la réponse,
    Ta fonction personnalisée TraductionGoogle qui traduit le texte d'une cellule Excel en utilisant une instance de Chrome répond parfaitement à mon besoin
    j'ai pas trouvé le script VBA de cette fonction pour le mettre dans une macro et tester ?

  4. #4
    Expert éminent
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    3 939
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 3 939
    Points : 9 251
    Points
    9 251
    Par défaut
    Citation Envoyé par itasoft Voir le message
    j'ai pas trouvé le script VBA de cette fonction pour le mettre dans une macro et tester ?
    C'est normal c'est une fonction personnelle en test actuellement et pas publiée et cela oblige à installer seleniumbasic. Par contre tu pourrais rechercher un code qui utilise InternetExplorer.Application
    Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

  5. #5
    Membre habitué
    Homme Profil pro
    Inscrit en
    Février 2009
    Messages
    161
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations forums :
    Inscription : Février 2009
    Messages : 161
    Points : 168
    Points
    168
    Par défaut Transltate
    re bonjour,
    OK, merci, je vais chercher un code VBA qui utilise InternetExplorer.Application pour traduire automatiquement un texte de français à rosbif, si je trouve
    A+

  6. #6
    Expert éminent
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    3 939
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 3 939
    Points : 9 251
    Points
    9 251
    Par défaut
    j'ai dû raconter des bêtises car je viens d'essayer une macro personnalisée googletranslate qui se trouve ici ( prendre la dernière version en fin de page) et qui utilise un objet MSXML2.XMLHTTP et cela à l'air de fonctionner.
    Ami calmant, J.P
    Jurassic computer : Sinclair ZX81 - Zilog Z80A à 3,25 MHz - RAM 1 Ko - ROM 8 Ko

Discussions similaires

  1. Réponses: 5
    Dernier message: 18/05/2018, 06h33
  2. connexion a un serveur pour application web
    Par Phiss dans le forum MS SQL Server
    Réponses: 8
    Dernier message: 07/07/2006, 15h28
  3. Récupérer des resultats Google pour mon appli ?
    Par Bruno13 dans le forum API, COM et SDKs
    Réponses: 5
    Dernier message: 06/03/2006, 19h57
  4. Connexion derrière un proxy pour Firebird ???
    Par .:morgoth:. dans le forum Connexion aux bases de données
    Réponses: 8
    Dernier message: 17/02/2005, 10h32

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo