Créer un dossier à partir d'une cellule

Bonjour / Bonsoir

j'aurais besoin de votre aide.

j'aimerais créer un dossier à partir d'une cellule,

exemple :

je voudrais que dans toutes les cellules de la colonne A, quand je marque par exemple "Test" dans la cellule, cela me créer un dossier test sur mon bureau, j'ai déjà essayé plusieurs code Vba, mets sans aucun résultat, si je pourrais avoir votre aide ça serait super.

Merci

Salut TheTuto et

voir ce sujet https://forum.excel-pratique.com/viewtopic.php?f=2&t=69912

sinon, si on parle de Dossier (Folder) et non pas un fichier xls, voici un code qui fonctionne chez moi:

Sub CreerDossier()
     Dim nomDossier, sChemin, sDossier As String
     On Error Resume Next
     sChemin = "C:\Users\......\Desktop" 'ici le chemin du Desktop
     For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
         nomDossier = Cells(i, 1).Value
         sDossier = sChemin & "\" & nomDossier
         If nomDossier <> "" Then
         MkDir (sDossier)
         End If
     Next i
End Sub

@+++

m3ellem1 a écrit :

Salut TheTuto et

voir ce sujet https://forum.excel-pratique.com/viewtopic.php?f=2&t=69912

sinon, si on parle de Dossier (Folder) et non pas un fichier xls, voici un code qui fonctionne chez moi:

Sub CreerDossier()
     Dim nomDossier, sChemin, sDossier As String
     On Error Resume Next
     sChemin = "C:\Users\......\Desktop" 'ici le chemin du Desktop
     For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
         nomDossier = Cells(i, 1).Value
         sDossier = sChemin & "\" & nomDossier
         If nomDossier <> "" Then
         MkDir (sDossier)
         End If
     Next i
End Sub

@+++

Salut m3ellem1 , merci pour ton accueil

je pense qu'on s'est pas compris ^^

Comme sur l'image ici présent j'aimerais que toutes les cellules de la colonne "G".

Quand je rentre un texte je voudrais que cela me crée un dossier sur mon Bureau avec le texte donné en appuyant sur entrée , je ne sais pas si cela est possible, Excuse-moi encore de te déranger