A voir également:
- VBA ACCESS inserer phrase dans fichier texte
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Insérer signature word - Guide
- Insérer une vidéo dans powerpoint - Guide
2 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
5 juin 2008 à 14:01
5 juin 2008 à 14:01
bonjour,
peux-tu mettre ton code ici ? ça sera plus facile ...
peux-tu mettre ton code ici ? ça sera plus facile ...
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
5 juin 2008 à 14:16
5 juin 2008 à 14:16
as- tu essayé comme ça ?
;o)
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)
5 juin 2008 à 14:13
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
5 juin 2008 à 14:18
à partir du moment où ta procédure addlinetofile ouvre le fichier en append, toutes les données sont nécessairement ajoutées à la fin...