Discussion :

[PUARAI]

Bonjour a tous,

mon dossier se trouve dans c:\Mes Documents\Incendie.xls
Donc je click sur ce dossier le fichier s'ouvre,
Et ce que je voudrais c'est me lancer une macros avec un bouton et qui m'inscrive dans la cellule A1 les coordonnées ou se trouve mon fichier
Donc dans ce cas précis il me marquerais ,c:\Mes Documents\Incendie.xls

S'il existe deja une discution pour le meme probléme que j'ai,
pouvez vous me dire alors qu'elle mot ou phrase faudrais t'il que je tape dans ma recherche.

Je vous remerci d'avance
PUARAI

[Minick]

Salut,

Et pourquoi ne pas essayer simplement avec une formule??

comme celle ci en A1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=SUBSTITUE(GAUCHE(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))-1);"[";"")

++
Minick

[casefayere]

Bonsoir,

code pour ton bouton,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ActiveWorkbook.Path

a +

[ucfoutu]

Bonjour a tous,

mon dossier se trouve dans c:\Mes Documents\Incendie.xls
Donc je click sur ce dossier le fichier s'ouvre,
Et ce que je voudrais c'est me lancer une macros avec un bouton et qui m'inscrive dans la cellule A1 les coordonnées ou se trouve mon fichier
Donc dans ce cas précis il me marquerais ,c:\Mes Documents\Incendie.xls

En cliquant où ?
Sur l'explorateur ? ===<< Non
Sur une listbox (par exemple) remplie (avec dir par exemple) ? ===>> oui

Alors : en cliquant sur quoi ?

[Fouinette85]

Je me suis servi d'un peu la même chose dans mon programme mais j'utilise une combox pour aller chercher le fichier que je souhaite ouvrir. Je ne sais pas si t'a besoin de tout sa mais essaie les fonctions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Sub Bouton1_Clic()
 
Dim NomFichier As String
Dim EmplacementFichier As String
 
NomFichier = ThisWorkbook.Name
EmplacementFichier = Dir(NomFichier)
Sheets("Feuil1").Range("A1") = EmplacementFichier
 
End Sub

[PUARAI]

Je vous remerci tous d'avoir répondu aussi vite.
Pour ucfoutu c'était avec un bouton de commande qui se trouvais directement sur la feuille1
Je te remerci quand même parce que grace à toi je vais m'améliorer encore plus sur ma façon d'éxpliquer les choses.

Et merci aux autres aussi

la solution de casefayere me va trés trés bien, encore mieux même que en cellule A1

comme toujours