Il s'agit de l'inverse de la fonction que proposait Jean_Marc_N2.
http://www.vbfrance.com/codes/IMPORTATION-FICHIER-TXT-SERVANT-MINI-BASE-DONNEES-SEPARATEURS_39150.aspx. Cette fois ce n'est pas l'import d'un tableau a partir d'un fichier texte mais l'export d'un tableau vers un fichier texte.
Source / Exemple :
Private Function ExportTxtFile(ByVal fileName As String, ByVal separator As String, ByRef tData() As String, ByRef errorString As String, Optional ByVal baseArray As Integer = 1) As Boolean
Dim f As Integer
Dim tLine As String
Dim tSplit As String
Dim buffer As String
Dim nbItem As Long
Dim k As Long, l As Long
On Error GoTo ExportTxtFile_ERR
f = FreeFile()
Open fileName For Output As #f
For k = LBound(tData(), 1) To UBound(tData(), 1)
tLine = tData(k, LBound(tData(), 2))
For l = LBound(tData(), 2) + 1 To UBound(tData(), 2)
tLine = tLine & separator & tData(k, l)
Next l
Print #f, tLine
Next k
Close #f
ExportTxtFile = True
ExportTxtFile_END:
Exit Function
ExportTxtFile_ERR:
errorString = Err.Description
Resume ExportTxtFile_END
End Function
Conclusion :
cette fonction s'appelle de cette manière:
Dim sResult as string()
Dim r As Boolean, szErr As String
r = ExportTxtFile("F:\gestion doc en prgramation\feuilles\resultat.txt", "<%;%>", sResult(), szErr, 1)
"<%;%>" est le séparateur que j'ai choisi
r est une valeur booléne. Vrai=>
le tableau a été exporté
Faux=< le tableau n'a pas été exporté
Merci Jean Marc, là je n'ai pas fait grand chose ;)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.