Bouton "Explorer dossier", mais...

[ted69000]

Bonjour

Mais, il y a un mais...
Plutôt que de devoir entrer dans la macro un chemin en dur, je voudrais qu'il soit relatif, par exemple montrer les fichiers qui sont au même niveau que le xls en cours...

Merci à vous
ted

 

[ted69000]

Re : Bouton "Explorer dossier", mais...

bonsoir

Effectivement, lorsqu'on cherche, on trouve...

Private Sub CommandButton1_Click()
Shell "c:\windows\explorer.exe n:\thierry", 1
End Sub

ceci fonctionne parfaitement...Chez moi.
Ce qui me gêne, c'est le chemin absolu.
Quelqu'un pourrait il me l'adapter pour avoir un chemin relatif ?
Je souhaite ouvrir la même fenêtre, mais me montrant le dossier où se trouve la feuille excell depuis laquelle j'ai lancé la macro.

merci à vous
NB : Et là, j'ai pas trouvé !
Thierry

 

[ted69000]

Re : Bouton "Explorer dossier", mais...

Un petit complément...
Pourquoi relatif ?
Car le fichier est destiné a être utilisé sur un disque réseau.
Merci encore
Thierry

 

[ted69000]

Re : Bouton "Explorer dossier", mais...

Bonjour à tous

un p'tit up pour les développeurs du dimanche...
Reste plus qu'à résoudre le problème du chemin relatif....
Help, please...
Mecri
Thierry

 

[tototiti2008]

Re : Bouton "Explorer dossier", mais...

Bonjour à tous,

Sans doute avec quelque chose comme :

Private Sub CommandButton1_Click()
Shell "c:\windows\explorer.exe " & Thisworkbook.path, 1
End Sub

 

[ted69000]

Re : Bouton "Explorer dossier", mais...

Bonjour à tous

Merci tototiti
ton dernier post est fonctionne parfaitement, y compris sur un disque réseau...

Thierry