cs_Choucroute62
Messages postés34Date d'inscriptionlundi 2 avril 2007StatutMembreDernière intervention17 janvier 2008
-
24 mai 2007 à 09:01
mortalino -
25 mai 2007 à 01:31
Salut à tous, encore une fois j'ai des soucis avec mon appli
Voila avant que je mette l'app.path, cela marchait bien, mais la je viens d'essayer app.path (car cette appli est destinée à un autre utilisateur) mais cela ne fonctionne pas, pourtant la syntaxe est correcte (enfin je crois)....
Private Sub Btnval_Click()
adrca = App.Path & "\Gestion stock\Catégories\Réserve Cadeaux" & Textnmpdt & ".text"
adrbo = App.Path & "\Gestion stock\Catégories\Réserve Boissons" & Textnmpdt & ".text"
adrhr = App.Path & "\Gestion stock\Catégories\Hors Réserve" & Textnmpdt & ".text"
If Textnmpdt.Text = "" Then
MsgBox "Veuillez donner un nom au produit"
Else
If Textpxpdt.Text = "" Then
MsgBox "Veuillez donner un prix au produit"
Else
Select Case Listcat.Text
Case "Réserve Cadeaux"
Open adrca For Output As #1
Print #1, Textnmpdt.Text & "|" & Textpxpdt.Text
Close #1
MsgBox ("Produit ajouté")
Textnmpdt = ""
Textpxpdt = ""
Listcat = ""
Case "Réserve Boissons"
Open adrbo For Output As #1
Print #1, Textnmpdt.Text & "|" & Textpxpdt.Text
Close #1
MsgBox ("Produit ajouté")
Textnmpdt = ""
Textpxpdt = ""
Listcat = ""
Case "Hors Réserve"
Open adrhr For Output As #1
Print #1, Textnmpdt.Text & "|" & Textpxpdt.Text
Close #1
MsgBox ("Produit ajouté")
Textnmpdt = ""
Textpxpdt = ""
Listcat = ""
Case Else: MsgBox "Veuillez sélectionner une catégorie"
End Select
End If
End If
End Sub
les "drca, adrbo et adrhr" sont déclarées dans option explicit, lorsque je lance donc l'appli et lorsque cela doit enregistrer le fichier, cela me marque "path not found"
S'il vous plaît aidez moi!
Merci
cs_Nicko11
Messages postés1141Date d'inscriptionmercredi 7 mars 2007StatutMembreDernière intervention19 septembre 20073 24 mai 2007 à 09:08
Le mieux est de mettre le chemin dans un textbox et de copier ensuite le contenu dans l'explorateur Windows et de voir si ca correspond bien a ce que tu cherches.
Vous n’avez pas trouvé la réponse que vous recherchez ?
hublet
Messages postés46Date d'inscriptionjeudi 17 avril 2003StatutMembreDernière intervention26 novembre 2013 24 mai 2007 à 09:12
Bonjour,
J'attire ton attention que si tu es dans l'interface vb tout dépend de comment tu as ouvert ton code
si tu a lancer vb puis ouvert ton projet le app.path est celui du programme vb, soit c:\program ...
si tu as double_clické sur ton vbp, alors c'est le dossier du projet,
maintenant en mode compilé, c'est le "Démarrer dans" des propriétés du raccourci.
cs_Choucroute62
Messages postés34Date d'inscriptionlundi 2 avril 2007StatutMembreDernière intervention17 janvier 2008 24 mai 2007 à 09:31
Ba je fait le test en lanceant vb sur le pc sur lequel je développe le chemin d'origine est
C:\Documents and Settings\stage\Bureau\Moi\Projet VB Mairie\Gestion stock\Catégories\Réserve Cadeaux
Et ce que je ne comprends pas c'est que le dossier existe, il devrait pas y avoir de problème, c'est l'écriture du fichier qui est embetante et qui me marque l'erreur de path not found
cs_Choucroute62
Messages postés34Date d'inscriptionlundi 2 avril 2007StatutMembreDernière intervention17 janvier 2008 24 mai 2007 à 09:50
J'ai essayé la msgbox avant l'instruction open, cela m'indique un chemin qui est incomplet et ensuite j'ai l'erreur path not found
Le chemin que m'indique la msgbox est C:\Projet VB Mairie\Gestion stock au lieu de C:\Projet VB Mairie\Gestion stock\Réserve Cadeaux (j'ai changé d'emplacement du dossier)