Récupérer le nom d'un fichier

[monte_cristo1971]

Bonjour à tous,

J'ai un petit souci.
Depuis Excel (of course) je lance un explorer afin de sélectionner dans un répertoire un des fichiers à ouvrir.

comment, une fois que j'ai sélectionné le fichier par simple clic, je peux récupérer le nom de ce fichier ?

Si qqn pouvait me dépanner ce serait super cool

Merci d'avance

 

[ziopizza]

Re : Récupérer le nom d'un fichier

Bonjour
Pas sur d'avoir compris,
dans le workbook Open
Range("a1").Value = ActiveWorkbook.Name
Salut Yves

 

[nat54]

Re : Récupérer le nom d'un fichier

Bonjour,

Donné ce matin par Monique

Chemin, nom du fichier et de la feuille
=CELLULE("nomfichier";A1)
=CELLULE("filename";A2)

Nom du classeur
=STXT(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1))+1;SOMME(TROUVE({"[";"]"};CELLULE("filename";A1))*{-1;1})-1)
=STXT(CELLULE("filename";A2);TROUVE("[";CELLULE("filename";A2))+1;SOMME(TROUVE({"[";"]"};CELLULE("filename";A2))*{-1;1})-5)

Nom de la feuille
=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;32)

Rq : il faut que le fichier soit enregistré.

 

[monte_cristo1971]

Re : Récupérer le nom d'un fichier

Sorry,

Je m'aperçois que je me suis mal exprimé.
Je souhairetais depuis excel lancer soit l'explorer de windows soit autre autre chose qui me permette de sélectionner un fichier word qui se trouve
sur mon disque C ou sur un autre disque (lecteur reseau).
L'objectif n'est pas d'ouvrir le document mais d'avoir son nom absolu (repertoire absolu + nom du fichier : C:\Mes documents\Fichiers\toto.doc)

Au départ je pensais lancer l'explorer et selectionner dans l'explorer le fichier
qui m'interesse mais je n'arrive à rien.
Je me dis que je peux faire autrement en ouvrant une boite de dialogue ou un truc de genre mais je n'en ai jamais codé et je ne sais pas par quel bout commencer

si l'un d'entre vous pouvait m'aider, ce serait super cool

 

[monte_cristo1971]

Re : Récupérer le nom d'un fichier

Et c'est toujours moi

En fait je m'embétais pour rien. J'ai opter pour une autre solution

nom = Application.GetOpenFilename("Nom fichier,*.doc")

Et là c'est que du bonheur