appolofrance
Messages postés46Date d'inscriptionmercredi 8 mai 2002StatutMembreDernière intervention26 mars 2008
-
30 sept. 2006 à 18:08
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 2014
-
30 sept. 2006 à 22:19
Bonjour,
J' aimerais dans la ligne open app.path ouvrir un fichier, le nom de ce fichier est fournit par textserie.text
Merci
-------------------------------------------------------------------------------------------
List1.Clear 'listbox
Dim tmp As String
Dim monnumero As String
monnumero$ = Textserie.Text
Open App.Path & "\Logs" & monnumero For Input As 1 'ouvre le fichier
Do Until EOF(1)
Line Input #1, tmp
List1.AddItem tmp 'Ajoute la ligne dans la listbox
Loop
Close #1
---------------------------------------------------------------------------------------------
Paul
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 30 sept. 2006 à 21:56
Est-ce que ta textbox contient bien "12345678.txt" ou au contraire ne contient-elle que "12345678" (ce qui semblrait plus logique pour des numéro de série ????
Dans le second cas, il faudra modifier la ligne suivante
Vive le copier coller.
Bon serieusement, appolofrance, c'est quoi que tu veux fair ?
Kenji
Il ?tait une fois, un pauvre petit r?glement que personne ne lisait. Il est tout sympa mais il est triste, aidez-le, lisez-le, ca lui ferait tellement plaisir ainsi qu'a nous. Merci.
Ca sent le sondage sur ce lien
Ben que veut tu qu'on te dise ? Le fichier n'existe pas. Vérifie qu'il existe bien dans le répertoire Logs de ton application.
As tu aussi l'extension de ce ficher dans ton Textserie.Text ?
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 30 sept. 2006 à 19:24
"Aucune info n'est fournie sur un éventuel problème ou message d'erreur
ou autre" --> "j' ai un probleme il me met erreur "fichier non
trouvé"" On y est arrivé, c'est l'info qu'il manquait depuis le début
Vérifie aussi que App.Path ne te met pas de "" comme dernier caractère dans le chemin.
Ca arrive des fois suivant les OS. Si c'est le cas tu te retrouverais avec 2 "" qui se suive dans le nom du fichier et c'est pas bon.
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
appolofrance
Messages postés46Date d'inscriptionmercredi 8 mai 2002StatutMembreDernière intervention26 mars 20085 30 sept. 2006 à 20:21
monnumero$ = App.Path & "\Logs" & Textserie.Text
Open monnumero For Input As 1 'ouvre le fichier
J' ai repris ces lignes mais
Lorsque je remplace textserie.text par un nom de fichier situé dans le dossier "Logs" sa fonctionne je n' ais pas le message "erreur 53, fichier introuvable".
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 30 sept. 2006 à 20:48
Heu..... ta dernière réponse me met un doute.
Est-on bien d'accord ? Textserie est une textbox que tu as placée sur ta feuille. Lors de l'exécution, tu es scensé saisir dans cette textbox, un nom de fichier valide dans le répertoire logs. Ensuite seulement, tu appelle ton bout de code (par un bouton surrement).
Que ton code fonctionne lorsque tu remplace Textserie.text par le nom d'un fichier, ne m'étonne pas puisque pour moi ton code est bon. Mais en gardant Textserie, et en saisissant ce même nom dans la textbox lors de l'exécution, est-ce que ça marche ?????
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
appolofrance
Messages postés46Date d'inscriptionmercredi 8 mai 2002StatutMembreDernière intervention26 mars 20085 30 sept. 2006 à 21:52
Textserie est une textbox placée sur une feuille,
cette textbox à des numeros de serie générés par une base de donnée (ado), je visionne ces numeros un par un avec le bouton "movenext"
J' ai un dossier nommé "Logs" avec des fichiers txt à l'interieur, les noms de fichiers sont identiques.
Je souhaite ouvrir le fichier correspondant à ma textbox.
Code du Bouton
Private Sub Cmdlog_Click()
Frmlog.List1.Clear
Dim tmp As String
Dim monnumero As String
monnumero$ = App.Path & "\Logs" & Textserie.Text' le pointeur s 'arrete ligne suivante... et lorsque je remplace par 12345678.txt sa marche
Open monnumero For Input As 1
Do Until EOF(1)
Line Input #1, tmp
Frmlog.List1.AddItem tmp
Loop
Close #1
Frmlog.Show
End Sub
Il me semblait avoir un code correct mais cette "erreur 53, fichier introuvable" est franchement pénible.