Création de dossier selon liste excel

[vilajea1]

Bonjour,

Ne connaissant pas beaucoup vba et la programmation🙁, je vous pose la question suivante :

Est'il possible de créer automatiquement un certain nombre de dossiers (800) dans un répertoire sur le serveur, qui aurait comme nom "le nom, prénom et numéro" selon une liste excel.

Ceci afin de faire des dossiers pour les RH et qui nous faciliterais la tache😉

Merci

 

[RENAUDER]

Re : Création de dossier selon liste excel

Bonjour,
En admettant que ta liste soit en colonne A

Sub SaveInMyFolder()
    Dim x As String, strPath As String
    Range([A1], [A65536].End(xlUp)).Select
    For Each cell In Selection
        Rep = cell.Value
        On Error Resume Next
        strPath = "C:\Excel\" & Rep
        x = GetAttr(strPath) And 0
        If Err <> 0 Then
            MkDir strPath
        End If
    Next cell
   On Error goto 0
End Sub