Open fichier

Résolu
papounez
Messages postés
119
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008
- 11 sept. 2005 à 17:48
papounez
Messages postés
119
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008
- 11 sept. 2005 à 18:27
Bonjour!
je charge une ComboBox (la pas de Probleme) et suivant la selection
je voudrais ouvrir un fichier par une variable
dans une ListBox
mai la je coince
Merci

Voici mon code:
Private Sub ComboChoix_Click()


Dim i, FF, Ind As Integer
Dim Fich , Ligne As String


Ind = ComboChoix.ListIndex
Varible = ComboChoix.List(Ind)


ListTitre.Clear
FF = FreeFile


Open "E:\Mes Documents\Variable.txt" For Input As #FF
Do While Not EOF(FF)


' Récupère la ligne pointer dans le fichier
Line Input #FF, Ligne
' L'envoie dans la ListBox
ListTitre.AddItem Ligne

Loop
Close #FF
End Sub

4 réponses

Charles Racaud
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
35
11 sept. 2005 à 18:06
Bonjour



Utilise des & pour séparer la variable du chemin



[...]

Open "E:\Mes Documents" & Variable & ".txt" For Input As #FF

[...]



ChRB
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
3
papounez
Messages postés
119
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008

11 sept. 2005 à 17:52
Re
C"est avec la Variable que je n"arrive
pas a ouvrir le fichier
Merci
0
papounez
Messages postés
119
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008

11 sept. 2005 à 18:23
Ok
Merci super
je voudrais ajouter un F a ma Varible
j' essai plusieur solution mais je n"arrive pas
en voici une
[...]
Open "E:\Mes Documents" & F & Variable &
".txt" For Input As #FF

[...]
Merci
0
papounez
Messages postés
119
Date d'inscription
samedi 16 juillet 2005
Statut
Membre
Dernière intervention
18 novembre 2008

11 sept. 2005 à 18:27
re
Excuse j'ai trove "F"
Merci
0