UN CARNET D'ADRESSE POUR COMMENCER EN VB

bouv
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
- 7 avril 2004 à 19:55
cs_simeu
Messages postés
4
Date d'inscription
jeudi 8 avril 2004
Statut
Membre
Dernière intervention
15 avril 2004
- 13 avril 2004 à 14:23
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/21750-un-carnet-d-adresse-pour-commencer-en-vb

cs_simeu
Messages postés
4
Date d'inscription
jeudi 8 avril 2004
Statut
Membre
Dernière intervention
15 avril 2004

13 avril 2004 à 14:23
j'ai un tableu construit sur excel mais comment pourrais je inserer des informations provenant d'un testbox vb?ou supprimer certains informations dans le tableau?
tankian18
Messages postés
122
Date d'inscription
lundi 21 juillet 2003
Statut
Membre
Dernière intervention
16 septembre 2014

8 avril 2004 à 16:55
Ah ok. En fait le common dialog est un control qui te permet da lancer une fenetre pour que l'utilisateur aille choisir manuellement le fichier. Donc sur ton formload, si jamais le fichier ne se trouve pas ds c:\toto.txt, tu fais commondialog.showopen (il faut que tu aies placé ce control sur ta form au préalable) (tu peux meme appliquer des filtres pour que n'apparaissent que les fichiers *.txt ou ce que tu veux). Ensuite, une fois que l'utilisateur aura trouvé cliquer sur le fichier( en fait tu mets ce code juste après le .showopen), tu recupéres le l'amplacement tu fichier séléctionné par l'user par le commondialog.filename (par ex : c:\machin\toto.txt).
Après tu n'as plus qu'a faire un: filecopy commondialog.filename tonrepdedestination.

Ensuite Pour les FSO (file system object) cela te permet de creer, parcourir, modifier des fichiers. Donc tu aurais pu également faire

tu fais
Dim fso As New FileSystemObject

If fso.existfile (c:\toto.txt)
'ta suite
else
fso.CreateTextFile("c:\toto.txt")
Set Fichier = fso.opentextfile("c:\toto.txt")
fichier.writeline 'tu ecris la structure de ton file...
fichier.close
end if

Grosso modo ca doit ressembler à un truc de sce style ;) Si t'as un pb contact moi.
monsurf
Messages postés
19
Date d'inscription
samedi 6 mars 2004
Statut
Membre
Dernière intervention
16 décembre 2004

8 avril 2004 à 12:21
Salut tankian18
Merci pour ton commentaire!
oui je crois qu'il vaut mieu priposer à l'utilisateur de coisir l'emplacement du fichier lui meme.. sauf que je sais pas comment ça marche les "common dialog :S... FSO je vois pas non plus ce que ça veut dire :( ...Si tu veux bien m'expliquer , Merci!!
tankian18
Messages postés
122
Date d'inscription
lundi 21 juillet 2003
Statut
Membre
Dernière intervention
16 septembre 2014

8 avril 2004 à 10:30
C'est pas mal même si il y a bcp d'imperfection (Par ex le fait que l'appli démarre sur c:\contact.txt) La tu aurais pu soit proposer via une common dialog d'aller cherche le fichier ou alors en créér un vide viaz les FSO)
SInon c'est un bon début ;)
monsurf
Messages postés
19
Date d'inscription
samedi 6 mars 2004
Statut
Membre
Dernière intervention
16 décembre 2004

7 avril 2004 à 22:07
Merci Harakor , je vais essayer ..
ici tu viens de me donner 3 fonctions que j'ai jamais utilisé (IsDate,clng,CDate) ...je te tiendrais au courrant ...
Merci!
Afficher les 10 commentaires