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
Configuration: Windows XP
Internet Explorer 6.0

2 réponses

  1.
    Polux31 Messages postés 7219 Statut Membre 1 204
     
    bonjour,

    peux-tu mettre ton code ici ? ça sera plus facile ...
    0
    1. 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
      1. blux Messages postés 2060 Date d'inscription   Statut Modérateur Dernière intervention   3 455 > 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
  2. Polux31 Messages postés 7219 Statut Membre 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
    1. franck
       
      Oui et ca écrase la phrase, cad qu'il réecrit sur le fichier à partir du début...
      0
    2. franck
       
      Tu n'aurais pas une idée par hasard?
      0