Contenu récent par hctad1

  1. H

    XL 2019 Tester l'existence d'un répertoire avant exécution macro

    Morale de l'histoire. la solution au dessus laisse la macro en attente trop longtemps. Je passe par un ping, ça m'a l'air plus rapide. 'https://stackoverflow.com/questions/21020077/ping-ip-address-with-vba-code-and-return-results-in-excel Public Function GetPingResult(Host) As String Dim...
  2. H

    XL 2019 Tester l'existence d'un répertoire avant exécution macro

    Merci. honte sur moi, j'ai vous posé la question avant d'interroger l'oracle google. Public Function DossierExiste(MonDossier As String) If Len(Dir(MonDossier, vbDirectory)) > 0 Then DossierExiste = True Else DossierExiste = False End If End Function
  3. H

    XL 2019 Tester l'existence d'un répertoire avant exécution macro

    Bonjour à tous, je suis en train de faire un petit machin avec Application.GetOpenFilename() et Worksheet_BeforeDoubleClick comme je suis fainéant, je veux ouvrir dans le bon répertoire direct. ça c'est facile. là ou ça se complique, c'est que c'est un lecteur réseau que j'appelle par son IP...
  4. H

    XL 2013 Function--> récupérer recordset

    Après décantage, y a solutionnage :) et en effet la solution m'a sauté aux yeux. Quand tu renommes ta fonction ben faut pas oublier de tout renommer. #Boulet.
  5. H

    XL 2013 Function--> récupérer recordset

    Mais je sais. Hormis la différence de version. IL n'y pas pas de raison. Je vais laisser décanter quelques jours. La solution finira par me sauter aux yeux.
  6. H

    XL 2013 Function--> récupérer recordset

    ça me rend dingue : je prends ton code, j'édite les paramètres de connexion et patatras. je ne vois aucune faute de frappe. J'appelle bien mon driver comme d'hab. je relis et relis, ne ne vois pas l'erreur. J'ai même copié/collé chacun des paramètres de connexion des fois que je passe sans la...
  7. H

    XL 2013 Function--> récupérer recordset

    oui end of file. la requête ne peut renvoyer qu'une seule valeur car il s'agit d'une clef primaire unique de ma table.
  8. H

    XL 2013 Function--> récupérer recordset

    Bonjour à tous, je progresse mais il me reste un souci. Je n'ai plus le souci de nom de fonction (quel idiot !) la requête est bien exécutée. elle renvoie bien un résultat. si je fais un msgbox sur Rs("products_id"), la valeur affichée est correcte. en revanche, le résultat dans la cellule est...
  9. H

    XL 2013 Function--> récupérer recordset

    Bingo, on dirait que c'est la réponse. Pas le temps de finir, Madame me sort à un apéro :) Merci.
  10. H

    XL 2013 Function--> récupérer recordset

    C'est juste un exemple de la sub qui fonctionne. l'autre est bien une fonction.
  11. H

    XL 2013 Function--> récupérer recordset

    Merci pour la méthode, c'est bien pratique. Alors donc, sur la base de mon nouveau code: ?model_to_id(ALA7308) me retourne bien une valeur. Mieux: celle que j'attendais :cool: pour autant, si je veux saisir la function dans une cellule je me fais jeter.
  12. H

    XL 2013 Function--> récupérer recordset

    oui pour vous faire plaisir mais ça retourne, et c'est logique, une erreur mysql.
  13. H

    XL 2013 Function--> récupérer recordset

    tout bête: Sub model_to_id() Dim Password As String Dim SQLStr As String Dim Server_Name As String Dim User_ID As String Dim Database_Name As String Dim table_name As String Set RS = CreateObject("ADODB.Recordset") Server_Name = r" Database_Name = ""...
  14. H

    XL 2013 Function--> récupérer recordset

    non puisque products_model est un txt, il doit etre entre quote ou double quote. En règle générale, je termine tjrs mes requêtes par un ; mais d'expérience que ce soit en en php ou vba cela n'a que rarement d'impact.
  15. H

    XL 2013 Function--> récupérer recordset

    Oui mon products_id est integer, pour autant. Meme pb avec ta déclaration de variable modifiée.