Lien à partir de la valeur d'une cellule

bonjour à tous, voici mon problème :

j'ai dans la cellule B11 de ma feuille un texte représentant un URL (chemin vers un dossier)

C:\Users\sousou\Desktop\essai

je voudrais dans la macro qui suit, changer le chemin par le contenu de la cellule B11

ce qui me permettrais d'avoir la possibilité de changer mon chemin en changeant l'URL de ma cellule B11 tout en ayant la macro évolutive.

Merci d'avance.

Sub nouveau_dossier()

Dim cell As Range

Dim chemin As String, NomRep

On Error Resume Next

chemin = "C:\Users\sousou\Desktop\essai\"

For Each cell In Range("B15:B200")

If cell <> "" Then

NomRep = cell

MkDir chemin & cell.Value

MkDir chemin & cell.Value & "\fiche signalétique"

MkDir chemin & cell.Value & "\contact"

MkDir chemin & cell.Value & "\analyse fonctionnelle"

MkDir chemin & cell.Value & "\projet actuel"

MkDir chemin & cell.Value & "\projet archives"

MkDir chemin & cell.Value & "\plan autocad"

MkDir chemin & cell.Value & "\programme futur"

MkDir chemin & cell.Value & "\photos"

End If

Next

End Sub

Salut,

Tu n'as qu'à remplacer

chemin = "C:\Users\sousou\Desktop\essai\"

Par

chemin = Sheets("NOM_DE_LA_FEUILLE").Range("B11").Value

Non ?

Merci pour la réponse, ça fonctionne.