Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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...
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...
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.
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.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.