Ouvrir un fichier texte a partir d'un bouton Command

Messages postés
12
Date d'inscription
mardi 10 janvier 2006
Statut
Membre
Dernière intervention
21 mars 2006
-
Messages postés
571
Date d'inscription
vendredi 30 décembre 2005
Statut
Membre
Dernière intervention
12 juillet 2012
-
bonjour,
J'enregistre les données voulue dans un fichier texte mais pour consulter ce fichier je doit aller à son emplacement c'est à dire le bureau.
Je voudrai à l'aide d'un bouton Command pouvoir ouvrir ce fichier sans aller le chercher à son emplaçement.
Merci

6 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
Bonjour,

Tu places sur ta Form un CommandButton et un TextBox (propriété Multiligne à True).



Private Sub Command1_Click()

Dim fs, f

Dim Content

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.OpenTextFile("C:\Mes documents\MonFichier.txt", 1, False, 0)

Content = f.Readall



f.Close

Text1.Text = Content

End Sub

'Tu remplaces C:\Mes documents\MonFichier.txt, par le chemin de ton fichier et son nom .txt



jpleroisse



Si une réponse vous convient, cliquez Réponse Acceptée.
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
24
Hum... en effet JP mais là tu ne répond pas à sa question qui est, je le rappel :
"Je voudrai à l'aide d'un bouton Command pouvoir ouvrir ce fichier sans aller le chercher à son emplaçement."

Héhé, si on prends ça à la lettre, y'a aucun moyens si ce n'est la téléportation involontaire! Ca me fait d'ailleurs penser que Crosoft devrait quand même nous l'inventer ce fameux contrôle qui permet "de faire des choses sans les faire" comme beaucoup de gens demandent

Enjoy

<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
73
je crois pas que l'on parle de téléportation...
on parle simplement de lancer un fichier texte, sans avoir a aller manuellement sur le bureau, et double cliquer sur le fichier

utiliser pour cela l'API ShellExecute
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
24
Holala, je vois qu'aujourd'hui tout le monde est terre à terre!!! Quelle tristesse
C'était un petit , rien de plus...
Bon... vous z'avez gagné... j'men vais retrouver la froidure de mon bien trop sérieux Windows !
Messages postés
571
Date d'inscription
vendredi 30 décembre 2005
Statut
Membre
Dernière intervention
12 juillet 2012
3
Tu mets l' exe sur le bureau.

dans ce cas un open "fichier.txt" for input as #1
fonctionne, lol.
Messages postés
571
Date d'inscription
vendredi 30 décembre 2005
Statut
Membre
Dernière intervention
12 juillet 2012
3
Trève de plaisanterie, windows dispose de variables d'environnement.

%USERPROFILE% ne devrait pas être loin du bureau.