Microsoft 365 Création dossier explorer avec une macro

[laetigrou]

Bonjour à tous,

J'aimerai créer un macro permettant la création d'un dossier dans explorer à partir d'un chemin défini en A1 et le nom du dossier défini en B1
j'ai tenté avec mkDir mais je ne m'en sors pas...

Merci par avance pour votre aide
Laetitia

 

[laurent950]

Bonsoir,

Comme cela peut être :

Function Exist_Rep(Rep As String) As Boolean
    On Error Resume Next
    Exist_Rep = GetAttr(Rep) And vbDirectory
End Function
Sub Dossier()
Dim Chemin, Nom, Dossier As String
    Chemin = Range("A1")
    Nom = Range("B1")
    Dossier = Chemin & Nom
    If Not Exist_Rep(Dossier) Then MkDir Dossier
End Sub

 

[laetigrou]

Génial, merci beaucoup !!!