bugalanoz
Messages postés10Date d'inscriptionmercredi 16 juillet 2003StatutMembreDernière intervention13 mai 2004
-
13 mai 2004 à 16:58
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 2006
-
13 mai 2004 à 18:39
Bonjour,
Je ne comprends pas pourquoi le code ci-dessous ne fonctionne pas bien sous visual basic 6.0 d'Access alors que ca fonctionne pour un ami sur un autre PC. Ca bloque au niveau du ".Execute" (Msg d'erreur : invalid procedure call or argument)
En fait, la fonction AttenteFichier s'éxécute tant que le fichier Fin.txt n'existe pas dans le répertoire D:\VSAT\Projet Alert.
---------------------------------------------------------
Function Principal()
End Function
---------------------------------------------------------
Function AttenteFichier(Répertoire, Fichier) As String
With Application.FileSearch
Do
.NewSearch
.LookIn = Répertoire
.FileName = Fichier
Loop While .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) = 0
End With
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 200628 13 mai 2004 à 18:39
Voici un extrait du MSDN qui peut peut-êter t'éclairer :
----------------------------------------------------------------------
Arguments nommés interdits
Lesarguments nommés ne sont pas permis dans toutes les situations. Causes et solutions de cette erreur :
Vous avez tenté de spécifier un argument nommé comme index detableau, par exemple :
MyVar = MyArray(MyNamedArg := 1)
Utilisez unevariable ordinaire ou uneexpression constante comme index de tableau.
Vous avez tenté de spécifier un argument nommé avec un objet, par exemple :
MyVar = MyObject(MyNamedArg := 1)
Utilisez une variable ou une expression constante si l'objet nécessite unargument. Par exemple, si la valeur par défaut d'un objet est uneméthode, le nom de l'objet représente la méthode par défaut. S'il nécessite des arguments, spécifiez-les par position.
Vous avez tenté de spécifier un argument nommé avec un nom externe :
MyVar = [MyName](MyNamedArg := 1)
Utilisez une variable ordinaire ou une expression constante si le nom externe a besoin d'un argument.
Vous avez tenté de spécifier un argument nommé avec un membre de données d'un objet, par exemple :
MyVar = [MyObject].MyProperty(MyNamedArg := 1)
Utilisez une variable ordinaire ou une expression constante si le membre de données a besoin d'un argument.
Pour plus d'informations, sélectionnez l'élément en question et appuyez sur F1.
----------------------------------------------------------------------