trouver le nom du repertoire actif Résolu

Question

bonjour à tous,
sous excel
j'aimerais trouver le nom du repertoire qui contient mon fichier excel actif.
Je ne souhaite pas le chemin complet, mais seulement le repertoire
et j'aimerais le cietre dans une ligne de code
ex:
if active directory is TOTO then...blabla
ce qui me manque, c'est:
- la syntaxe qui désigne ce repertoire
- le code pour l'afficher dans une cellule
Merci à tous
Gilles

dct33 · Accepted Answer

Re  
S'il ne s'agit que récupérer le nom du répertoire 

Dim MonTableau() As String 
Cells(1, 1) = CurDir 

    MonTableau = Split(Cells(1, 1), "\") 
    Cells(2, 1) = MonTableau(UBound(MonTableau)) 

Bonne programmation

pijaku · Answer

Bonjour,
Une méthode, qui vaut ce qu'elle vaut...
Dim rep As String
rep = StrReverse(Left(StrReverse(ActiveWorkbook.Path), InStr(StrReverse(ActiveWorkbook.Path), "\") - 1))
[A1] = rep 'affiche le répertoire en A1

pilas31 · Answer

Bonjour,

en VBA la syntaxe est CurDir

Pour l'affecter par exemple à la cellule A1 voici deux  possibilités :

Cells(1, 1) = CurDir

Range("A1") = CurDir

A+

gilles72 · Answer

Salut à vous PIJAKU et PILAS 31
Les 2 codes me vont bien, (en les utilisant à des fins différentes)
Merci de votre aide
Gilles

dct33 · Answer

Bonjour,

Curdir donne le path il manque le nom du classeur et l'extension

ceci récupère le nom du classeur actif
----------------------------------------------

ActiveWorkbook.Name

il faut concaténer CurDir  &  nom du fichier & son extension

Cells(1, 1) = CurDir & "\" & ActiveWorkbook.Name & ".xls"

gilles72 · Answer

bonjour
et merci à vous 3
les réponses me conviennet parfaitement
nickel
merci encore

Trouver le nom du repertoire actif

6 réponses

Discussions similaires

Newsletters