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