Discussion :

[Jeyjey1]

Bonjour,

Je n'ai pas réussi à trouver un code(ni de topic)pour savoir comment afficher un nom de répertoire dans une cellule

Merci

Jeyjey

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(NoLig, NoCol) = NomRep

NB - Pas de majuscule dans le sujet de discussion (lis les règles du forum, elles t'aideront dans tes recherches)

[Jeyjey1]

Merci pour ta réponse et désolé pour les majuscules, mais le nom de mon répertoire changera souvent

[Pierre Fauconnier]

Bonjour

Ta question n'est pas claire... Quel répertoire? Celui du classeur actif?

Si oui

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

thisworkbook.Path

renvoie le chemin du dossier contenant le classeur qui contient le code...

Donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("a1")=thisworkbook.Path

renvoie le chemin dans la cellule A1.

Note qu'il est possible de réaliser cela directement en Excel, sans passer par VBA...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=GAUCHE(CELLULE("nomfichier");CHERCHE("[";CELLULE("nomfichier"))-2)

Ok?

[Jeyjey1]

pour résumé j'ai un repertoire A, dedans un fichier xls (contenant mon code) et un sous rep B, moi je voudrais avoir le nom du repertoire dans une des cellule de mon fichier excel
Et bien sur j'utilise Vba
Merci

[Pierre Fauconnier]

Tu as un seul sous-répertoire?