XL 2016 Création de plusieurs dossiers suivant liste

sylvanu à dit:

Bonjour Dindin,
Que signifie :

VB:

Range("annee").Value

Ce n'est ni une variable, ni le nom d'une cellule.

Cliquez pour agrandir...

job75 à dit:

Bonjour dindin, sylvanu,

J'avoue ne pas avoir étudié votre code, à partir de ce que vous dites au post #1 :

VB:

Sub création()
Dim chemin$, r As Range
chemin = ThisWorkbook.Path & "\"
Set r = [A1:A7] 'plage à adapter
For Each r In r
    If r <> "" Then
        If Dir(chemin & r, vbDirectory) = "" Then MkDir chemin & r
    End If
Next
End Sub

A+

Cliquez pour agrandir...

job75 à dit:

J'ai modifié ma macro juste après que vous la copiez, elle est un peu plus simple.

Cliquez pour agrandir...

' Création des dossiers

Private Sub CommandButton26_Click()

Dim chemin$, r As Range
chemin = ThisWorkbook.Path & "\"
Set r = [Liste_dossier] 'plage à adapter
For Each r In r
    If r <> "" Then
        If Dir(chemin & r, vbDirectory) = "" Then MkDir chemin & r
    End If
Next

End Sub

job75 à dit:

Avec ma macro post #4 le End if a été enlevé car les tests sont sur une ligne.

Cliquez pour agrandir...