Ouverture/Fermeture de dossiers

[uriel]

Bonjour,

J'aimerais graçe à une macro excel Ouvrir et fermer un dossier.
De la même maniere que quand on le fait dans windows habituellement quand on double clic sur un dossier.

Cela semble simple dans le principe mais je n'ais trouver aucune info la dessus en cherchant.

Merci.

A bientôt

 

[Temjeh]

Re : Ouverture/Fermeture de dossiers

Bonsoir

Pas trop clair mais voici un code qui ouvre la boite:

Application.Dialogs(xlDialogOpen).Show

A+

Temjeh

 

[uriel]

Re : Ouverture/Fermeture de dossiers

Bonsoir,

Ce n'est pas exactement ce que je cherche, ceci permet de selectionner un fichier a ouvrir avec Excel.

En fait ce que je veux c'est ouvrir et fermer un Dossier défini (Ex: C:\machin) de la façon la plus classique qu'il soit. Que l'on obtienne le dossier vu de la même façon que si on avait ouvert un dossier sur le bureau par un double clic.

Merci

A bientôt

 

[dixit]

Re : Ouverture/Fermeture de dossiers

bonjour,
voici quelques éléments (sauf faute de frappe)
ouverture :
Workbooks.Open Filename := "C:\repertoire\nomfich.xls", Password:="secret"
l'argument Password est facultatif
fermeture :
Activeworkbook.Close
ferme le classeur actif

il faut voir aussi la question de la sauvegarde ...

 

[uriel]

Re : Ouverture/Fermeture de dossiers

Bonsoir,

Merci.🙂 Mais ce n'est pas ce que je cherche. Je cherche a ouvrir un dossier et non un fichier🙁 .

Merci

A bientôt🙂

 

[dixit]

Re : Ouverture/Fermeture de dossiers

bonsoir,
un dossier : qu'est-ce-que c'est ? une chemise dans un tiroir de bureau ?
je ne comprends pas la question.

 

[uriel]

Re : Ouverture/Fermeture de dossiers

Re-Bonsoir,🙂

Un dossier, c'est un dossier... On appelle aussi ça un repertoire.
Les icones jaunes comme là:

Un dossier windows tous ce qu'il y a de plus simple en fait...

merci

A bientôt...

 

[MichelXld]

Re : Ouverture/Fermeture de dossiers

bonsoir


quelques exemples pour ouvrir l'explorateur Windows

Sub repertoireExplorateur1()
Shell "c:\windows\explorer.exe C:\Documents and Settings\excel", vbMaximizedFocus ' adapter le chemin
End Sub

Sub repertoireExplorateur2() 
ThisWorkbook.FollowHyperlink "C:\Documents and Settings\michel\dossier" 
End Sub

Sub repertoireExplorateur3()
Dim IE As Object
Set IE = createObject("internetExplorer.Application")
IE.Navigate "C:\Documents and Settings\excel" ' adapter le chemin
IE.Visible = True
End Sub

Sub repertoireExplorateur4()
'necessite d'activer reference Microsoft Shell Controls and Automation
Dim objShell As Shell
Set objShell = New Shell
objShell.Explore ("C:\Documents and Settings\michel\dossier\general\excel")
End Sub

Bonne soirée
MichelXld

 

[dixit]

Re : Ouverture/Fermeture de dossiers

re
OK pour le dossier/répertoire.

 

[uriel]

Re : Ouverture/Fermeture de dossiers

Merci a vous deux, je devrais pouvoir m'en sortir avec ça.🙂