Creation dossier avec un fichier csv [Résolu]

Messages postés
2
Date d'inscription
dimanche 14 décembre 2003
Dernière intervention
3 juin 2005
- - Dernière réponse : jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Dernière intervention
11 mars 2006
- 3 juin 2005 à 14:25
Bonjour alors voila je vous explique, a partir d'un fichier .csv j'aurais besion de creer des dossiers mais le probleme c'est que ji connait rien
J'ai donc creer ma liste de nom ds un fhicer excel que j'ai ensuite sauvegarder en .CSV
Je voudrait savoir avec qu'elle language (facil) je pourais creer c'est different dossier avec le nom des utilisateurs de mon fichier excel.
Merci
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Dernière intervention
11 mars 2006
25
3
Merci
Bonjour,

Pour créer un dossier et y copier un fichier.

Placer une référence à Microsoft Scripting RunTime



Private Sub Command1_Click()

Dim fso As FileSystemObject

Set fso = New FileSystemObject

'Vérifie si le dossier existe déjà, si oui copie le fichier

If fso.FolderExists("C:\MonDossier") Then

MsgBox "Ce dossier existe déjà"

fso.CopyFile "C:\MonFichier.csv", "C:\MonDossier"

Exit Sub

Else

'Crée le dossier et copie le fichier

fso.CreateFolder "C:\MonDossier"

fso.CopyFile "C:\MonFichier.csv", "C:\MonDossier"

End If

Set fso = Nothing

End Sub

jpleroisse

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 87 internautes nous ont dit merci ce mois-ci

Messages postés
2
Date d'inscription
dimanche 14 décembre 2003
Dernière intervention
3 juin 2005
0
Merci
merci, mais je n'ai rien compris
est ce que tu pourais m'expliquer un peu plus silteplait ?
est j'utilise qu'elle logiciel pour faire fonctionner se petit prog ?
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Dernière intervention
11 mars 2006
25
0
Merci
Re,

je suppose que tu travailles avec VB 6.0, donc dans

Projet / Références, il faut cocher la case devant Microsoft Sripting
RunTime. Cette référence permet d'utiliser l'object
FileSystemObject.



Dans le code ci dessus, le programme recherche si le nom donné au
dossier existe déjà. Si oui, prévient l'utilisateur et copie le fichier
.

Si non, crée le Répertoire Dossier et copie le fichier.



ce code fonctionne aussi sous VBA Excel



jpleroisse

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.