Mon besoin à cet époque était de créer des dossiers individuels aux noms d’étudiants (un grosse centaine) à partir d’une liste de noms.

Nous sommes en environnement Windows mais cette fois avec OpenOffice Calc (ça marche aussi avec LibreOffice), et le dossier sera généré sur un lecteur réseau ou une clé USB ou un disque interne. Cette macro Calc publiée dans ce forum en 2008 demeure d’actualité.

Comment procéder :

Créer un nouveau document Calc et dans Outil/Options, abaisser à Moyen la sécurité des macros.

Dans l’éditeur de macros :

Puis dans le nom correspond au dossier, puis Module1

La macro à copier-coller :

Option Explicit
Sub CreerDosssier ()
Dim monDocu As Object, lesFeuils As Object
Dim maFeuil As object
Dim maCell As Object
Dim x As long, z As String
Dim Chemin as String
monDocu = ThisComponent
lesFeuils = monDocu.Sheets
maFeuil = lesFeuils.getByName("Feuille1")
x = 1
maCell = maFeuil.getCellRangeByName("A"& x)
z = maCell.String
Do Until z = ""
Chemin = MkDir (ConvertToUrl ("E:\TEST\"&z))
x = x + 1
maCell = maFeuil.getCellRangeByName("A"& x)
z = maCell.String
Loop
End Sub

Paramètres à modifier :
– le nom de la feuille si vous avez renommé Feuille1
– le lecteur et le nom du dossier “E:\TEST\

Pour lancer  la macro :

Outil/Macros/Exécuter la macro puis sélectionner la macro dans la liste et Exécuter :

Pour automatiser l’exécution, on peut créer une nouvelle barre d’outil avec un bouton assigné à la macro :

Bouton avec une icône de circonstance :

Prochaine étape, vous proposer une version de la macro sous Linux, petits veinards…

Source

Etape 1 : récupérer l’outil Winscp à l’adresse https://winscp.net/eng/download.php

Cliquez sur le lien correspondant à la dernière portable version ici la 5.7.7
 

Décompactez l’archive dans votre clé USB ou votre ordinateur afin d’obtenir ces fichiers.
Pour récupérer l’outil en version française, surfez la page avec la traduction française correspondant à votre version. Pour la 5.7.7, il s’agit de ce fichier, une fois décompacté, copiez-le dans le  dossier de l’application :
Il suffit maintenant d’appliquer le changement de langue :

1. Bouton Tools en bas à gauche
2. Puis Preferences
3. Dans le menu cliquez sur Languages puis sur le fichier de langue.

Etape 3 : configurer Winscp

Dans le fenêtre de WinSCP, cliquez sur Nouveau site et renseignez la fenêtre comme suit :

Évidemment, vous avez pensé à remplacer nom.prenom par votre prénom et votre nom. Ne renseignez pas le mot de passe, de cette manière il vous sera réclamé à chaque connexion, ce qui est plus prudent en cas de perte de la clé USB.
Cliquez sur Sauver et nommez votre connexion :
Et validez.
Avant de vous connecter, il faut préciser les dossier par défaut, sélectionnez votre connexion dans la fenêtre de gauche puis bouton Éditer ensuite Avancé sur la droite :

Dans répertoires, corrigez le dossier distant, éventuellement le dossier local selon vos besoin.

Cliquez sur Ok puis sur Sauver puis Connexion. Saisissez votre mot de passe.
Un nouvel écran s’affiche avec d’un coté le dossier local, de l’autre le dossier distant Owncloud. Il suffit simplement de glisser les fichiers d’un coté vers l’autre et inversement.

Télécharger WinSCP déjà configuré

Si vous avez rencontré des difficultés avec ce tuto ou bien simplement la flemme de le suivre, je vous ai préparé une version toute prête, ne reste qu’à indiquer votre nom d’utilisateur et votre mot de passe à chaque connexion :
WinSCP Artois
Enjoy and share if you like it !

Par terrible en début d’année, cela fait brouillon et pas du tout sérieux, rien de tel pour mettre l’ambiance.

Pour résoudre ce problème, je me suis dit que le plus simple était certainement de créer un fichier batch sous DOS et de générer automatiquement les dossiers à partir d’une liste d’étudiants, approche classique et efficace.

Lors de mes recherches je suis tombé sur un article particulièrement intéressant que j’ai décidé de commenter et de partager ici pour la simple et unique raison qu’il s’agit d’un usage inattendu d’Excel et d’une toute petite macro très simple. Et justement la liste d’étudiants est déjà sous Excel !

Pour commencer, sous Excel 2007 ou plus récent, récupérez la liste de vos étudiants stockée en colonne A :

Ensuite appuyez sur ALT-F11 afin d’ouvrir l’éditeur de Macros puis cliquez sur une des feuilles de calcul afin de l’ouvrir  :

Puis collez le code suivant :

Sub créer_dossiers()
On Error Resume Next
Dim lig As Byte, cptr As Byte
lig = Range(“A65536”).End(xlUp).Row
For cptr = 1 To lig
MkDir “G:\LCE L1”
MkDir “G:\LCE L1\” & Cells(cptr, 1)
Next
End Sub

Il faudra personnaliser les lignes 6 et 7 en indiquant l’arborescence précise. La ligne 6 a pour fonction de créer le dossier qui contiendra les dossiers individuels, il est  possible de la supprimer si le dossier principal est déjà créé.

Dans le cas présent, le dossier LCE L1 sur le lecteur G: contiendra tous les sous-dossiers.

Fermez l’éditeur de macro, il ne reste plus qu’à l’exécuter, cliquez sur Affichage puis sur Macro tout à droite :

Puis dans la boîte de dialogue, sélectionnez la macro puis cliquez sur Exécuter :

Et… magie… les dossiers ont bien été créés :

Pour sauvegarder ce fichier, il faudra impérativement sélectionner le format correspondant :

Cette solution très pratique présente malgré tout le défaut de ne pas positionner des droits sur les dossiers, les techniciens réseaux comprendront…

Source : http://www.commentcamarche.net/forum/affich-9157334-creation-dossier-suivant-liste-excel