Permission refusée....

Permission refusée.... - VB/VBA/VBS - Programmation

Marsh Posté le 16-01-2007 à 08:47:11    

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
Reply

Marsh Posté le 16-01-2007 à 08:47:11   

Reply

Marsh Posté le 16-01-2007 à 15:32:36    

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

Message cité 1 fois
Reply

Marsh Posté le 16-01-2007 à 16:01:10    

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:  

Reply

Marsh Posté le 16-01-2007 à 21:39:27    

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
Reply

Marsh Posté le 17-01-2007 à 09:30:06    

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  ;)

Reply

Marsh Posté le 17-01-2007 à 09:30:35    

Une autre suggestion????

Reply

Marsh Posté le 17-01-2007 à 11:29:33    

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

Reply

Marsh Posté le 18-01-2007 à 13:55:13    

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


Message édité par slr56 le 19-01-2007 à 08:22:38
Reply

Marsh Posté le 19-01-2007 à 08:36:02    

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
Reply

Marsh Posté le 12-02-2007 à 11:24:28    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed