Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anor
Bonjour, lou wrote: | bonjour | | j'ai un fichier txt que je veux afficher en lecture seule | | j'ai besoin d'un petit bout de code qui me ferait cela depuis access | merci d'avance
il est grand ton fichier ? Tu peux le stocker dans une variable :
Function Monfichier(LeFichier as String) as string Dim txtLine As String Dim F As Integer Dim strVariable as String
F = FreeFile Open LeFichier For Input As #F Line Input #F, txtLine Do While Not EOF(F) Line Input #F, txtLine strVariable = strVariable & vbcrLf & txtLine Loop Close #F Msgbox strVariable end function
puis tu appelles la fonction depuis où tu as envie d'afficher le fichier.
sub test msgbox monfichier("c:cheminfichier.txt") end sub
tu peux même le faire afficher dans une zone de liste en ajoutant chaque ligne lue comme nouvelle valeur de la liste. (méthode add je sais plus quoi depuis access je sais plus combien) ou tout simplement en formatant la liste de valeurs séparée par des points virgules.
à+ -- Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Bonjour,
lou wrote:
| bonjour
|
| j'ai un fichier txt que je veux afficher en lecture seule
|
| j'ai besoin d'un petit bout de code qui me ferait cela depuis access
| merci d'avance
il est grand ton fichier ?
Tu peux le stocker dans une variable :
Function Monfichier(LeFichier as String) as string
Dim txtLine As String
Dim F As Integer
Dim strVariable as String
F = FreeFile
Open LeFichier For Input As #F
Line Input #F, txtLine
Do While Not EOF(F)
Line Input #F, txtLine
strVariable = strVariable & vbcrLf & txtLine
Loop
Close #F
Msgbox strVariable
end function
puis tu appelles la fonction depuis où tu as envie d'afficher le fichier.
sub test
msgbox monfichier("c:cheminfichier.txt")
end sub
tu peux même le faire afficher dans une zone de liste
en ajoutant chaque ligne lue comme nouvelle valeur de la liste.
(méthode add je sais plus quoi depuis access je sais plus combien)
ou tout simplement en formatant la liste de valeurs séparée par des points virgules.
à+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Bonjour, lou wrote: | bonjour | | j'ai un fichier txt que je veux afficher en lecture seule | | j'ai besoin d'un petit bout de code qui me ferait cela depuis access | merci d'avance
il est grand ton fichier ? Tu peux le stocker dans une variable :
Function Monfichier(LeFichier as String) as string Dim txtLine As String Dim F As Integer Dim strVariable as String
F = FreeFile Open LeFichier For Input As #F Line Input #F, txtLine Do While Not EOF(F) Line Input #F, txtLine strVariable = strVariable & vbcrLf & txtLine Loop Close #F Msgbox strVariable end function
puis tu appelles la fonction depuis où tu as envie d'afficher le fichier.
sub test msgbox monfichier("c:cheminfichier.txt") end sub
tu peux même le faire afficher dans une zone de liste en ajoutant chaque ligne lue comme nouvelle valeur de la liste. (méthode add je sais plus quoi depuis access je sais plus combien) ou tout simplement en formatant la liste de valeurs séparée par des points virgules.
à+ -- Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
