CRÉER UN FICHIER AVEC LE CONTENU D'UN DOSSIER

cs_locust Messages postés 32 Date d'inscription jeudi 16 janvier 2003 Statut Membre Dernière intervention 29 octobre 2012 - 9 juin 2003 à 13:29
cs_fanny2 Messages postés 19 Date d'inscription dimanche 26 janvier 2003 Statut Membre Dernière intervention 18 octobre 2003 - 18 oct. 2003 à 15:49
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/7401-creer-un-fichier-avec-le-contenu-d-un-dossier

cs_fanny2 Messages postés 19 Date d'inscription dimanche 26 janvier 2003 Statut Membre Dernière intervention 18 octobre 2003
18 oct. 2003 à 15:49
Bonjiour, c'est pas mal mais dommage les sous doissiers sont pas inclus lol
cs_locust Messages postés 32 Date d'inscription jeudi 16 janvier 2003 Statut Membre Dernière intervention 29 octobre 2012
10 juin 2003 à 13:19
Merci à vjeux et atomikroger, c'est le code que je cherchais pour finir proprement ce prog.
pour frawid change peut les références dans le projet moi excel et word 10.0
atomikroger Messages postés 2 Date d'inscription lundi 9 juin 2003 Statut Membre Dernière intervention 1 octobre 2003
10 juin 2003 à 00:36
petit rectifications apres les dires de vjeux, faut mettre :
SendKeys "%F{DOWN}{ENTER}" & Rep & "" & "liste.txt" & "{ENTER}"
test = Shell("c:windows
otepad.exe", vbNormalFocus)
pour que ca marche bien ! ^^
frawid Messages postés 47 Date d'inscription samedi 2 novembre 2002 Statut Membre Dernière intervention 16 mars 2008
9 juin 2003 à 18:05
Pour information a Locust
Erreures pour Excel 2000 et Word 2002 !!! sous XP
pour Excel dans Private Sub Command3_Click()
Dim x As New Excel.Application
pour Word dans Private Sub Command2_Click()
Dim w As New Document
autrement la Liste.txt est en ordre.
Merci quand même et bonne prog.
vjeux Messages postés 92 Date d'inscription lundi 14 avril 2003 Statut Membre Dernière intervention 5 décembre 2003
9 juin 2003 à 16:01
Si tu mets ca
SendKeys "%F{DOWN}{ENTER}" & Rep & "liste.txt" & "{ENTER}"
Apres
Shell "c:windows
otepad.exe", vbNormalFocus

Ca ouvrira directement le fichier texte ;)
cs_locust Messages postés 32 Date d'inscription jeudi 16 janvier 2003 Statut Membre Dernière intervention 29 octobre 2012
9 juin 2003 à 13:29
bug dans le prog
modif pour word (manquait le premier fichier du dossier), et pas de création du .txt
Désolé
Rejoignez-nous