creation dossier avec un fichier csvRésolu

Question

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

jpleroisse · Accepted Answer

Bonjour,

Pour cr&#233;er un dossier et y copier un fichier.

Placer une r&#233;f&#233;rence &#224; Microsoft Scripting RunTime



Private Sub Command1_Click()

Dim fso As FileSystemObject

Set fso = New FileSystemObject

'V&#233;rifie si le dossier existe d&#233;j&#224;, si oui copie le fichier

If fso.FolderExists("C:\MonDossier") Then

MsgBox "Ce dossier existe d&#233;j&#224;"

fso.CopyFile "C:\MonFichier.csv", "C:\MonDossier"

Exit Sub

Else

'Cr&#233;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

rbenj78 · Answer

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 ?

jpleroisse · Answer

Re,

je suppose que tu travailles avec VB 6.0, donc dans 

Projet / R&#233;f&#233;rences, il faut cocher la case devant Microsoft Sripting
RunTime.  Cette r&#233;f&#233;rence permet d'utiliser l'object
FileSystemObject.



Dans le code ci dessus, le programme recherche si le nom donn&#233; au
dossier existe d&#233;j&#224;. Si oui, pr&#233;vient l'utilisateur et copie le fichier
.

Si non, cr&#233;e le R&#233;pertoire Dossier et copie le fichier.



ce code fonctionne aussi sous VBA Excel



jpleroisse

Creation dossier avec un fichier csv

3 réponses

Discussions similaires