ouvrir dossier windows

[Guy]

Existe-t'il une macro pour ouvrir un dossier windows depuis excel.

Merci GUY

 

[michel]

bonsoir Guy

je ne suis pas sur d'avoir bien compris ta demande , mais j'espere que ces deux liens pourront t'aider

Sub Test1()
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 Test2()
Shell "c:\windows\explorer.exe C:\Documents and Settings\excel", 1 ' adapter le chemin
End Sub


bonne soirée
MichelXld

 

[Guy]

Bonjour Michel, merci pour ton message, la 2ème solution était la bonne,
mais.....comment faire pour que nouveau dossier apparaissent au 1er plan?

Merci et bonne journée

Guy

 

[michel]

bonsoir Guy

j'espere que cette version te conviendra

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


bonne soiree
MichelXld

 

[Guy]

Bonjour

Merci de tes conseils avisés, tout baigne

Guy Schneider