Repertoire courant

[Ricky boy]

Bonjour,

J'essaie de mettre dans une cellule le répertoire dans lequel mon fichier excel ouvert se trouve. Malheureusement la valeur retournée n'est jamais bonne.

Je ne veux pas spécifier un lecteur en particulier puisque mon fichier peut se trouver sur n'importe lequel des 8 lecteurs de mon réseau.

Voici le code que j'utilise

Directory = CurDir
Sheets("Die Follow-up sheet").Range("av2").Value = Directory

Pourriez vous m'indiquer comment réussir?

Merci

Eric

 

[STéphane]

bonjour

tu es sûr qu'il se trouve dans le répertoire courant ?

essaye plutôt :
msgbox activeworkbook.path

'Renvoie le chemin d'accès complet de l'objet sans le séparateur final ni le nom de l'objet. Type de données String en lecture seule.

bye
steph

 

[Baroude]

sinon le code suivant :

Range("AV2") = "=LEFT(CELL(""filename""),FIND(""["",CELL(""filename""))-2)"

te donne le répertoire (nom complet) de ton classeur

Baroude

 

[Ricky boy]

!

Super!
Merci mille fois! Vous venez de me sauver d'un probleme tres désagréable.

Eric