Ouvrir 2 dossiers dans l'ordre

[marmotte18]

Bonjour,

Je voudrais pouvoir ouvrir dans l'ordre et avec mise en icône, 2 dossiers (valises jaunes). Quelle commande faut-il passer ?

NB :

J'y arrive à peu près par Internet mais les dossiers ne s'ouvrent pas dans l'ordre choisi et de plus cela ne se met pas en icône. Je souhaiterais, si possible, ne pas passer par Internet.

Sub OuvreDossier()
 
Dim URL As String
 
'Ouvre le dossier Dupond
'-------------------------
URL = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE D:\Mes documents\Dupond", vbMinimizedNoFocus)
 
'Ouvre le dossier Durand
'-------------------------
URL = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE D:\Mes documents\Durand", vbMinimizedNoFocus)
End Sub

 

[tototiti2008]

Re : Ouvrir 2 dossiers dans l'ordre

Bonjour Marmotte,

un essai

Sub OuvreDossier()
 
Dim URL As String
 
'Ouvre le dossier Dupond
'-------------------------
URL = Shell("EXPLORER.EXE ""D:\Mes documents\Dupond""", vbMinimizedNoFocus)
 
'Ouvre le dossier Durand
'-------------------------
URL = Shell("EXPLORER.EXE ""D:\Mes documents\Durand""", vbMinimizedNoFocus)
End Sub

 

[marmotte18]

Re : Ouvrir 2 dossiers dans l'ordre

Bonjour tototiti2008,

Grâce à toi, j'ai trouvé la solution :

Private Sub Workbook_Open()
 
Dim URL As String
 
'Ouvre le dossier Dupond
'-------------------------
URL = Shell("C:\WINDOWS\explorer.exe D:\Mes documents\Dupond", vbMinimizedNoFocus)
 
End Sub

Merci infiniment