VBA ACCESS inserer phrase dans fichier texte

franck -  
 franck -
Bonjour,

Mon programme me permet d'exporter une table access dans un fichier texte. Dans ce fichier texte je voudrais insérer une phrase de présentation des données mais je n'arrive qu'a l'inserer a la fin du fichier.

Est ce que quelqu'un connait le moyen d'inserer une phrase au debut d'un fichier texte??

merci
A voir également:

2 réponses

Réponse 1 / 2
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
bonjour,

peux-tu mettre ton code ici ? ça sera plus facile ...
0
franck
 
Bonjour polux et merci d'avoir repondu,

Enfait j'exporter les données de la table temp dans le fichier texte (nom saisi par utilisateur) et ensuite je rajoute la phrase "Voici les données de 2000 à 2005" dans ce même fichier. Cependant il le place à la fin du fichier alor que je voudrais cette phrase à la première ligne du fichier texte.


Private Sub exp_txt_Click()
'transfert de la table temp dans un fichier texte nommé par l'utilisation
DoCmd.TransferText acExportDelim, "temp_export", "temp", "C:\Documents and Settings\adefosse\Bureau\" & rep & ".txt", False
'appel du programme AddLineToFile (ajoute la phrase à la fin du fichier)
Call AddLineToFile("C:\Documents and Settings\adefosse\Bureau\" & rep & ".txt", "Voici les données de 2000 à 2005")
End Sub


Private Sub AddLineToFile(ByVal FileName As String, ByVal NewLine As String)

Dim f As Integer

f = FreeFile
Open FileName For Append As #f
Print #f, NewLine
Close #f

End Sub
0
blux Messages postés 27113 Date d'inscription   Statut Modérateur Dernière intervention   3 359 > franck
 
Salut,

à partir du moment où ta procédure addlinetofile ouvre le fichier en append, toutes les données sont nécessairement ajoutées à la fin...
0
Réponse 2 / 2
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
as- tu essayé comme ça ? 

Private Sub exp_txt_Click() 
'appel du programme AddLineToFile (ajoute la phrase à la fin du fichier) 
Call AddLineToFile("C:\Documents and Settings\adefosse\Bureau\" & rep & ".txt", "Voici les données de 2000 à 2005") 
'transfert de la table temp dans un fichier texte nommé par l'utilisation 
DoCmd.TransferText acExportDelim, "temp_export", "temp", "C:\Documents and Settings\adefosse\Bureau\" & rep & ".txt", False 
End Sub


;o)
0
franck
 
Oui et ca écrase la phrase, cad qu'il réecrit sur le fichier à partir du début...
0
franck
 
Tu n'aurais pas une idée par hasard?
0