Trouver le nom du repertoire actif
Résolu
gilles72
-
gilles72 -
gilles72 -
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
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
6 réponses
-
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 -
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
-
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+ -
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" -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Salut à vous PIJAKU et PILAS 31
Les 2 codes me vont bien, (en les utilisant à des fins différentes)
Merci de votre aide
Gilles -
