Pb sur un Open

Question

Voila donc en faire je vous met tout le code mais c est juste la fin la procedure Fax ki ne marche pas il plante sur le open me dis erreur 52... Pour teste creer un bouton ds votre form1 et coller ceci Private Sub Command1_Click() Dim ficprinc As String, Ligne As String, Temp As String Dim x As Integer, Ind As Integer, Cpteur As Integer, NbFic As Integer Dim Numfic As Long 'Declaration Ouverture du Fichier Principal ficprinc = "c:\mes documents\Nico est.txt" 'Test si le fichier de travail est présent If FichierExiste(ficprinc) Then MsgBox ("Le fichier existe") 'Ouverture du fichier pour traitement Open ficprinc For Input As #1 'Tant non End of File copier ligne par ligne Do Until EOF(1) Line Input #1, Ligne Temp = Temp + Ligne Temp = Temp + Chr$(10) + Chr$(13) Loop MsgBox (Temp) Call Separation(Temp, NbFic) MsgBox (NbFic) Close #1 Call Fax(NbFic) Else MsgBox ("Le fichier est absent tratement impossible") Close #1 End End If End Sub 'Fonction de teste d existance de fichier Public Function FichierExiste(Fichier As String) FichierExiste = (Dir(Fichier, vbHidden + vbNormal + vbSystem + vbArchive + vbReadOnly) <> "") End Function 'Fonction Qui separe le fichier principalle en plusieur sous fichier Public Sub Separation(ByVal Temp As String, ByRef NbFic As Integer) 'On initialise cpteur à -1 parce qu tu veux commencer à 0 Cpteur = -1 'On enlève le(s) slash(s) initial(aux) s'il y en a If Left$(Temp, 1) = "/" Then Do Temp = Mid$(Temp, 2) Loop Until Left$(Temp, 1) <> "/" End If 'Recherche du premier slash (il déterminera également la fin de la première série de caractères Ind = InStr(Temp, "/") Do While Ind <> 0 '----> boucle do loop (on ne sait pas de combien d'élément est constitué la chaîne) Cpteur = Cpteur + 1 '----> incrément de compteur, le premier fichier sera .000 Numfic = FreeFile '----> numéro de canal pour le fichier Open "c:\mes documents ico\FileFax." + Format(Cpteur, "000") For Output As Numfic '----> ouverture du fichier en écriture Print #Numfic, Left$(Temp, Ind - 1) '----> envoie de la chaîne lue dans le fichier Close Numfic '----> fermeture du fichier, on n'en a plus besoin Temp = Mid$(Temp, Ind + 2) '----> on enlève de la chaîne de caractère l'élément enregistré Ind = InStr(Temp, "/") '----> on détermine où se trouve le prochain slash Loop '----> on reprend la boucle si un slash a été trouvé NbFic = Cpteur + 1 End Sub 'Fonction de Fax Public Sub Fax(ByVal NbFic As Integer) For i = 0 To NbFic - 1 Open "c:\mes documents ico\FileFax." + Format(i, "000") For Input As Numfic Print #Numfic, Temp MsgBox (Temp) Next i End Sub *Puis creer un fichier txt dans c:\mes documents ico\ dans lekel vous ecrivez \gkgdkfgks\kdhkfhskdhf\jfsgdjf\ par exemple le programme va alors separer cette chaine en 3 La procedure que j essaye de creer doit ouvrir les fichier filefax.000 ... et juste m afficher une msgbox contenant le txt. Ce n est pas tres dur ps merci de tester ^_^

fredlynx · Answer

Voici :) Public Sub Fax(ByVal NbFic As Integer) Numfic = FreeFile For i = 0 To NbFic - 1 Open "c:\mes documents\FileFax." + Format(i, "000") For Input As #Numfic Print #Numfic, Temp MsgBox (Temp) Close #Numfic Next i End Sub http://www.lynx-asp.fr.st WebMaster

Rastacana · Answer

Sa plante plus sur le open mais sur le print #Numfic,Temp en theorie quand je fait sa je copie le contenue du fichier dans temp je capte pas me dis mode d acces au fichier incorrect^_^

Rastacana · Answer

en faite c est moi qui l ecris mal sa devrait etre print temp,#numfic car c est temp qui reçoit le contenu de nufic mais je sais que sa ne marche pas comme sa le pb c est de savoir komment je peut faire???^_^

Rastacana · Answer

Pb Resolu 
apres ouverture du fichier open.... as #1
je fait Do untill Eof (1)
              Line Input#1,Ligne
              Temp= Temp+Ligne
              Temp=Temp+Chr$(13)+chr$(10) 
          Loop
           Msgbox(temp)

Dsl de vous avoir embeter j avais deja eu le mem pb en plus merci a fredlynx (tu ma interpeller sur mon erreur)^_^

Pb sur un Open

4 réponses

Discussions similaires