Trouver le nom du repertoire actif
Résolu
gilles72
-
gilles72 -
gilles72 -
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
- Trouver un film sans le titre - Télécharger - Divers TV & Vidéo
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Trouver le nom d'une personne avec son 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