Ouvrir boite de dialogue sur dossier précis

[Esox]

>Bonjour le Forum,

Voilà, je souhaiterai, en exécutant une macro, ouvrir une boite de dialogue pointant sur un dossier précis à un endroit précis.

Avec cette ligne : Application.Dialogs(xlDialogOpen).Show , cela m'ouvre sur un dossier par défaut, j'aimerai stipuler un autre endroit précis sur un réseau mais je tourne en rond pour trouver la bonne ligne de commande.

Pourriez vous m'y aider ?

Merci d'avance.

Stef

 

[suistrop]

Re : Ouvrir boite de dialogue sur dossier précis

Salut,

Essai avec ceci :

Shell "C:\WINDOWS\EXPLORER.EXE /n,/e,C:\", vbNormalFocus

Suistrop

 

[MJ13]

Bonjour Essox, Suistrop

Teste ce code:

Sub test_Chemin()
ChDir (ThisWorkbook.Path)
Application.Dialogs(xlDialogOpen).Show
End Sub

 

[Pierrot93]

Re : Ouvrir boite de dialogue sur dossier précis

Bonjour,

essaye ceci:

With Application.FileDialog(msoFileDialogOpen)
    .InitialFileName = "C:\MESDOCS\"
    .Show
    If .SelectedItems.Count > 0 Then Workbooks.Open .SelectedItems(1)
End With

bonne journée
@+

 

[Esox]

Re : Re: Ouvrir boite de dialogue sur dossier précis

Bonjour MJ13 et Suistrop,

Première proposition, ne correspond pas exactement à ce que je recherche mais s'en approche.
La deuxième proposition continue à m'ouvrir boite de dialogue sur le chemin par défaut. Ne peut on pas remplacer : ChDir (ThisWorkbook.Path) par le chemin dont je souhaite ouvrir le dossier ?

 

[MJ13]

Re , bonjour Pierrot

Si tu changes de lecteur, il faut penser à changer le Chdrive:

ex:

Sub test_Chemin2()
ChDrive ("C:\")
ChDir ("C:\")
Application.Dialogs(xlDialogOpen).Show
End Sub

 

[Esox]

Re : Ouvrir boite de dialogue sur dossier précis

Re, Bonjour, Pierrot,

Merci à tous.
La solution de Pierrot fonctionne à merveille et me va parfaitement.

Merci pour votre aide et votre rapidité.

Bonne journée.