Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1974 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Permission refusée....

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Permission refusée....

n°1503455
slr56
Tout problème a sa solution.
Posté le 16-01-2007 à 08:47:11  profilanswer
 

Bonjour à tous,  
 
dans le code suivant, je veux rajouter des informations dans "fichier_texte" mais malheuresement à la ligne 7, j'obtiens "permission refusée"  :??: Ce qui m'étonne c'est que j'ai un code identique (à l'exception du nom des constantes) dans une autre portion de ma feuille de code et elle fonctionne!!!  :pt1cable:  :pt1cable: J'ai vérifié les constantes, elles sont bien écrites et déclarées.
 

Code :
  1. Set fichier_texte=FSO.OpenTextFile(dossier_ping & "\" & rs1("ip_routeur" ) & extension_txt,ForReading)
  3.           IF fichier_texte.ReadLine <> code_verif_ping THEN
  4.            st_lecture=fichier_texte.ReadAll
  5.                 Set fic_erreur2=FSO.OpenTextFile(creation_rep & "\" & ping_rep & "\" & ct_ping,ForAppending)
  6.            fic_erreur2.WriteLine "Le routeur " & rs1("nom_materiel" ) & " ( " & rs1("ip_routeur" ) & " ) " & "ne répond pas!"
  7.            fic_erreur2.CLOSE
  8.            fichier_texte.CLOSE
  10.                                             END IF


 
 
j'ai fait ce qu'il y a sur la page suivante mais ça n'a pas résolu mon problème.
http://support.microsoft.com/kb/469834/fr
 
J'ai vu que pas mal de personnes sont confrontées à ce problème de permissions et que malheuresement il n'y a pas de solution apportées pour le moment. :ange:  :ange:  Mes fichiers sont en contrôle total mais rien n'y fait... PERMISSION REFUSEE!  :sweat:  
 
Est ce que quelqu'un à une solution???
 
Merci de vos futures réponses!


Message édité par slr56 le 19-01-2007 à 08:21:11
mood
Publicité
Posté le 16-01-2007 à 08:47:11  profilanswer
 

n°1503694
evilduky
Fight for freedom
Posté le 16-01-2007 à 15:32:36  profilanswer
 

essaie de faire un set fic_erreur2 = Nothing juste avant la ligne 7

Message cité 1 fois
n°1503728
slr56
Tout problème a sa solution.
Posté le 16-01-2007 à 16:01:10  profilanswer
 

evilduky a écrit :

essaie de faire un set fic_erreur2 = Nothing juste avant la ligne 7


 
Malheuresement ça n'a rien fait.. :(  Merci quand même Evilduky :ange:  

n°1503904
sub-zero0
Posté le 16-01-2007 à 21:39:27  profilanswer
 

salut ,
 
ton code est incompréhensible, je comprend pas pk tu ouvre puis tu referme les fichiers ????
 
voici ce que j'aurais fait pour écrire dans un fichier...
 
Dim numF As Integer
 
numF = FreeFile
Open "C:\a.txt" For Output As #numF
    Print #numF, "salut"
Close #numF

Message cité 1 fois
n°1504013
slr56
Tout problème a sa solution.
Posté le 17-01-2007 à 09:30:06  profilanswer
 

sub-zero0 a écrit :

salut ,
 
ton code est incompréhensible, je comprend pas pk tu ouvre puis tu referme les fichiers ????
 
voici ce que j'aurais fait pour écrire dans un fichier...
 
Dim numF As Integer
 
numF = FreeFile
Open "C:\a.txt" For Output As #numF
    Print #numF, "salut"
Close #numF


 
j'ai supprime les 2 lignes d'ouverture et de fermeture inutiles. :ange:  
Ensuite, c'est du VBS que je fais et non pas du VB.
Merci quand même sub-zero0  ;)

n°1504014
slr56
Tout problème a sa solution.
Posté le 17-01-2007 à 09:30:35  profilanswer
 

Une autre suggestion????

n°1504081
sub-zero0
Posté le 17-01-2007 à 11:29:33  profilanswer
 

dsl mais je ne connais pas le vbs
 
va jetter un coup d'oeil ici www.vbfrance.com

n°1504603
slr56
Tout problème a sa solution.
Posté le 18-01-2007 à 13:55:13  profilanswer
 

up... ce problème me bloque vraiment trop :(


Message édité par slr56 le 19-01-2007 à 08:22:38
n°1504886
slr56
Tout problème a sa solution.
Posté le 19-01-2007 à 08:36:02  profilanswer
 

Décidément... je suis vraiment maudit!!!  :fou:  :fou:  :fou: je poursuis en ce moment mon application dans ACCESS car suite à mon fichier vbs, j'ai une base de données ACCESS qui récupère des informations....
 
Avant le code qui suit, j'ai déclaré constantes, variables et ma connection à ma base de données (la connection fonctionne!)

Code :
  1. For Each fichier In collection_fichiers
  2.    
  3.         'Définition du nom du fichier
  4.         nom_fichier_texte = fichier.Name
  5.        
  6.         'Le nom de la table correspond au nom du routeur
  7.         nom_table_cible = rst.Fields(3)
  8.    
  9.         'Création du fichier "schema.ini"
  10.         Set fichier_ini = fso.CreateTextFile(chemin & "\schema.ini" )
  11.        
  12.         a = "[" & nom_fichier_texte & "]"
  14.        
  15.         Open fichier_ini For Output As #fic
  16.              
  17.         Print #fic, "[" & nom_fichier_texte & "]"
  18.         Print #fic, ligne_1
  19.         Print #fic, ligne_2
  20.         Print #fic, ligne_3
  21.         Print #fic, ligne_4
  22.         Print #fic, ligne_5
  23.         Print #fic, a
  24.         Print #fic, b
  25.         Print #fic, c
  26.         Print #fic, d
  27.         Print #fic, e
  28.         Print #fic, f
  29.         Print #fic, g
  30.         Print #fic, h
  31.                  
  32.         txt.Close
  33.        
  35.        
  36.         'Importation des données du fichier en lecture
  37.         DoCmd.TransferText acImportFixed, fichier_ini, nom_table_cible, nom_fichier_texte
  38.         fso.DeleteFile txt, True
  39.         'passer au jeu d'enregistrements suivant
  40.         rst.MoveNext
  41.     Next


 
malheureusement... jai encore une erreur de PERMISSION:  
 
Erreur d'exécution '438'
L'erreur se produit à la ligne 17
 
 :heink:  :heink:  
 
Aidez-moi svp!!!


Message édité par slr56 le 19-01-2007 à 11:40:26
n°1513505
fruity
Posté le 12-02-2007 à 11:24:28  profilanswer
 

les erreurs de permissions :
 
soit il faut ecrire les chemins complet
 
soit il faut enlever l'attribut lecture seul du fichier
 
soit il faut le fermer avant de le supp..
 
pour toi je sais pas, la manière que t'as d'ouvrir tes fichier est bizarre, on est en VBS ici oublie tes habitude VB :
 
à la place de :
 

Code :
  1. Set fichier_ini = fso.CreateTextFile(chemin & "\schema.ini" )
  2.        a = "[" & nom_fichier_texte & "]"
  4. Open fichier_ini For Output As #fic
  5.        Print #fic, "[" & nom_fichier_texte & "]"
  6.        Print #fic, ligne_1
  7.        Print #fic, ligne_2
  8.        Print #fic, ligne_3
  9.        Print #fic, ligne_4
  10.        Print #fic, ligne_5
  11.        Print #fic, a
  12.        Print #fic, b
  13.        Print #fic, c
  14.        Print #fic, d
  15.        Print #fic, e
  16.        Print #fic, f
  17.        Print #fic, g
  18.        Print #fic, h
  19.                
  20.        txt.Close


 
je mettrais !
 

Code :
  1. Set fichier_ini = fso.OpenTextFile(chemin & "\schema.ini", 8, -2)
  3. fichier_ini.WriteLine  "[" & nom_fichier_texte & "]"
  4. fichier_ini.WriteLine ligne_1
  5. fichier_ini.WriteLine ligne_2
  6. fichier_ini.WriteLine ligne_3
  7. fichier_ini.WriteLine ligne_4
  8. fichier_ini.WriteLine ligne_5
  9. fichier_ini.WriteLine "[" & nom_fichier_texte & "]"
  10. fichier_ini.WriteLine b
  11. fichier_ini.WriteLine c
  12. fichier_ini.WriteLine d
  13. fichier_ini.WriteLine e
  14. fichier_ini.WriteLine f
  15. fichier_ini.WriteLine g
  16. fichier_ini.WriteLine h
  18. set fichier_ini = nothing


Message édité par fruity le 12-02-2007 à 11:25:53

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Permission refusée....

 

Sujets relatifs
Probleme de Permission lors de COPYFILE[SCRIPT WMI] Problème de permission avec Windows 98
Script vbs Erreur 800A0046 Permission deniedPermission refusée
[PHP] Warning: copy() failed to open stream: Permission denied[script WMI] pb : Permission refusé
Permission d'un user FTP[VBS] permission refusée ?
redirection en js impossible : permission refusée???permission refusée quand je fais un window.location
Plus de sujets relatifs à : Permission refusée....

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.085 secondes

Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)