Laosurlamontagne
XLDnaute Occasionnel
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:
La macro fonctionne mais si je "complique" le nom du repertoire par:
A marche pu et je comprend pas pourquoi...
Une idée?
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:
Code:
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:
Code:
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?