Trouver le nom du repertoire actif
Résolu/Fermé
A voir également:
- Trouver le nom du repertoire actif
- Trouver adresse mac - Guide
- Téléchargez cette image pour trouver le nom du fichier. il correspond au nom de cette loutre. comment s'appelle-t-elle ? - Forum HTML
- Comment trouver le mot de passe wifi sur son téléphone - Guide
- Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
- Trouver un nom avec une adresse - Forum Réseaux sociaux
6 réponses
dct33
Messages postés
41
Date d'inscription
jeudi 8 avril 2010
Statut
Membre
Dernière intervention
20 avril 2010
39
Modifié par dct33 le 13/04/2010 à 19:41
Modifié par dct33 le 13/04/2010 à 19:41
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
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 753
13 avril 2010 à 15:33
13 avril 2010 à 15:33
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
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
644
13 avril 2010 à 15:52
13 avril 2010 à 15:52
Bonjour pijaku,
Tu as raison j'avais pas bien lu la consigne !
A+
Tu as raison j'avais pas bien lu la consigne !
A+
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 753
13 avril 2010 à 15:54
13 avril 2010 à 15:54
J'avais initialement fait la même erreur...
Bonne fin de journée à toi
@+
Bonne fin de journée à toi
@+
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
644
13 avril 2010 à 15:42
13 avril 2010 à 15:42
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+
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 753
13 avril 2010 à 15:45
13 avril 2010 à 15:45
Salut pilas31,
Effectivement Cells(1, 1) est plus approprié que [A1]. Cependant, CurDir nous donne le chemin d'accès complet. Idem que ActiveWorkBook.Path. Or le sujet est de ne donner que le nom du répertoire. D'où mon code "tarabiscoté"
Effectivement Cells(1, 1) est plus approprié que [A1]. Cependant, CurDir nous donne le chemin d'accès complet. Idem que ActiveWorkBook.Path. Or le sujet est de ne donner que le nom du répertoire. D'où mon code "tarabiscoté"
dct33
Messages postés
41
Date d'inscription
jeudi 8 avril 2010
Statut
Membre
Dernière intervention
20 avril 2010
39
13 avril 2010 à 19:28
13 avril 2010 à 19:28
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
Salut à vous PIJAKU et PILAS 31
Les 2 codes me vont bien, (en les utilisant à des fins différentes)
Merci de votre aide
Gilles
Les 2 codes me vont bien, (en les utilisant à des fins différentes)
Merci de votre aide
Gilles