Utiliser une variable dans un chemin fichier

Bonjour,

Je rencontre un problème pour utiliser une variable afin de créer un dossier avec un nom de projet existant.

Vous pouvez m'aider à comprendre ce qui bug ? :

Private Sub CommandButton1_Click()

Dim NouveauDossierAvecSousDossiers As String, NomProjet As String
    Worksheets("Feuil").Activate
    NomProjet = Worksheets("Feuil").Range("D3")
    NouveauDossierAvecSousDossiers = "..\Maquette_4\Repertoire global\" & NomProjet & "\ressource"
    CreerDossier (NouveauDossierAvecSousDossiers)

'copier fichier (nom différent, emplacement différent)
Dim FichierOriginal As String
Dim FichierCopie As String
FichierOriginal = "..\Tools\tableau.xlsm"
FichierCopie = "..\Maquette_4\Repertoire global\" & NomProjet & "\ressource\tableau.xlsm"
FileCopy FichierOriginal, FichierCopie

'Ouvrir fichier (nom différent, emplacement différent)
Workbooks.Open Filename:="..\Maquette_4\Repertoire global\" & NomProjet & "\ressource\tableau.xlsm"
UserForm1.Hide
End Sub

Bien à vous.

Alexandre.C

Salut, à premiere vu je ne voit pas d'erreurs flagrante.

• Sur quel ligne l'erreur apparait ?

• Quel est le message d'erreur ?

• Exécute le programme en mode pas à pas (F8) regarde si toutes les variables prennent les bonnes valeurs, parfois un simple espace en trop fait tout planter.. vérifie le contenue de la cellule D3

A+

Salut,

Effectivement, le code était bon. Je me suis réveillé ce matin, j'ai réouvert le fichier puis l'userform qui s'est mit a fonctionné.

Bien à toi.

AC

Ahah toujours un plaisir d'aider

Merci, Gabin37.