Discussion :

[fabrice44]

bonjour,

je voudrais récupérer une ligne dans un fichier txt qui me permet de tracer l'utilisateur du fichier.

création du fichier traceur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
Open "S:\Dossiers FC\flag1.txt" For Output As #1
 
Print #1, Environ("UserName")
 
Close #1
End Sub

maintenant je voudrais récupérer cette donnée pour la mettre dans une msgbox sous mon perso.xls pour dire " le fichier est actuellement utilisé par "

merci

[ucfoutu]

Bonjour,

ouvre ton aide en ligne sur l'instruction Input
Tu y trouveras même un exemple clair...

[fabrice44]

maintenant je réussis à lire le nom il ne me reste plus qu'a l'afficher dans une msgbox

qqu'un à une solution

merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub a()
 
 
Dim MyChar
Open "S:\Dossiers FC\flag1.txt" For Input As #1    ' Ouvre le fichier.
Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
    MyChar = Input(1, #1)    ' Lit un caractère.
    Debug.Print MyChar    ' Affiche dans la fenêtre Exécution.
Loop
MsgBox (MyChar)
Close #1    ' Ferme le fichier.
End Sub

[ucfoutu]

C'est pas vrai !!!!!

Remplace donc ton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print MyChar

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox MyChar

J'ai l'impression que tu veux regarder un film en commençant par la fin .....
Il est sans doute temps que tu fasses comme les autres :... par le début !!!

[ucfoutu]

Bon...
je suis inondé de MP de notre ami...

Ma dernière réponse était pour l'inviter à apprendre les bases les plus élémentaires ...

Je termine donc ce terrible sujet par ce code (et réitère mon invitation à Fabrice, en lui faisant remarquer qu'il n'a pas ouvert son aide en ligne, qui ne fournit pas un exemple de lecture caractère par caractère, mais toute autre chose ...)...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Command2_Click()
  Open "E:\essai.txt" For Output As #1
    Print #1, Environ("UserName")
  Close #1
  Open "E:\essai.txt" For Input As #1
  Input #1, toto
  MsgBox toto
  Close #1
End Sub