[Non résolu] Création de répertoire impossible (truc qui cloche)

[Laosurlamontagne]

Bonjour,

Ma question fait suite à une macro que j'essaye de construire et d'un précédent post (https://www.excel-downloads.com/thr...une-valeur-adjacente-sur-une-boucle.20003307/).

L'idée principale est de copier certaines données d'une table et de les exporter dans un nouveau fichier excel ET dans un repertoire bien particulier. Je bloque sur le nom du répertoire à creer. Ma macro est la suivante:

Sub Macro2()


racine = "C:\Users\moi\Desktop\Temp\Macro\"

'pour chaque produit de la base de données
For Each entree In Range("entree")


'on met le produit dans la cellule de la feuille résultat
    'ainsi, les data colonne B se mettent à jour avec la formule présente
    Sheets("feuil1").Range("C3") = entree
    Sheets("feuil1").Range("C4") = Range("entree").Offset(0, 1).Value
    Sheets("feuil1").Range("C5") = Range("entree").Offset(0, 9).Value

    'on donne le nom du nouveau répertoire: 
    NouveauRepertoire = racine & entree 
    
    'on créé le répertoire
    MkDir NouveauRepertoire
    
    'on se place dedans
    ChDir NouveauRepertoire

La macro fonctionne mais si je "complique" le nom du repertoire par:

NouveauRepertoire = racine & entree & Range("entree").Offset(0, 1).Value & Range("entree").Offset(0, 9).Value

A marche pu et je comprend pas pourquoi...

Une idée?

 

[Laosurlamontagne]

Re : [résolu] Création de répertoire impossible (truc qui cloche)

Trouvé comme un grand !!

rep = Sheets("feuil1").Range("C4") & "_" & Sheets("feuil1").Range("C5") & "_" & entree

NouveauRepertoire = racine & rep