Pb sur un Open

Messages postés
55
Date d'inscription
vendredi 20 octobre 2000
Statut
Membre
Dernière intervention
19 juin 2002
-
Messages postés
55
Date d'inscription
vendredi 20 octobre 2000
Statut
Membre
Dernière intervention
19 juin 2002
-
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\test.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\nico\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\nico\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\nico\ 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
^_^

4 réponses

Messages postés
662
Date d'inscription
mercredi 16 janvier 2002
Statut
Modérateur
Dernière intervention
16 octobre 2010

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

<center>http://www.lynx-asp.fr.st
WebMaster </center>
Messages postés
55
Date d'inscription
vendredi 20 octobre 2000
Statut
Membre
Dernière intervention
19 juin 2002

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^_^
Messages postés
55
Date d'inscription
vendredi 20 octobre 2000
Statut
Membre
Dernière intervention
19 juin 2002

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???^_^
Messages postés
55
Date d'inscription
vendredi 20 octobre 2000
Statut
Membre
Dernière intervention
19 juin 2002

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)^_^