Contenu récent par hctad1

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...

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

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...

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.

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.

ç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...

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.

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...

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

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

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.

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

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 = ""...

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.

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