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
A voir également:
- Trouver le nom du repertoire actif
- Trouver adresse mac - Guide
- Comment trouver le mot de passe wifi sur son téléphone - Guide
- Comment trouver quelqu'un sur facebook sans son nom ✓ - Forum Facebook
- Trouver un film sans le titre - Télécharger - Divers TV & Vidéo
- Trouver un nom avec une adresse ✓ - Forum Réseaux sociaux
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
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...
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+
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"
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