Retrouver un dossier sous l'explorateur window

Bonsoir à tous,

Voilà je cherche à partir d'Excel retrouver un dossier sous l'explorateur.

Je m'explique, je souhaiterai taper le nom du dossier dans une cellule d'excel et à partir de là, l'explorateur s'ouvrirai et irai directement dans le dossier que j'ai tapé. Dans mon exemple ci joint, je taperai 1c dans la cellule excel et l'explorateur s'ouvrirai directement dans le dossier à l'adresse C:\Documents and Settings\Administrator\My Documents\test\1\1c

merci pour votre aide

Bonjour

Et pour quoi faire ?

Bonjour

pour ouvrir la fiche produit (j'en ai plus de 1000) avec son numéro d'identification.

Christian

Re,

Pourquoi ne pas ouvrir la fiche produit directement ?

Exact, mais après j 'adapterai le programme, car il y a des sous dossier (origine, description,…)

Il faudrait que je puisse d'excel saisir le produit (+ de 1000), l'origine et arriver directement sur le dossier, cela me faciliterai le travail.

merci pour votre aide

Re,

Tu sais qu'il existe des moulinettes pour aller chercher dans les répertoires et sous répertoires et récupérer le chemin d'accès d'un fichier souhaité

Sinon pour accéder directement à un dossier, voici un code que j'utilise parfois

Option Explicit

Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
         "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

Private Type OPENFILENAME
  lStructSize As Long
  hwndOwner As Long
  hInstance As Long
  lpstrFilter As String
  lpstrCustomFilter As String
  nMaxCustFilter As Long
  nFilterIndex As Long
  lpstrFile As String
  nMaxFile As Long
  lpstrFileTitle As String
  nMaxFileTitle As Long
  lpstrInitialDir As String
  lpstrTitle As String
  flags As Long
  nFileOffset As Integer
  nFileExtension As Integer
  lpstrDefExt As String
  lCustData As Long
  lpfnHook As Long
  lpTemplateName As String
End Type

Sub test()
Dim sFilter$
  sFilter = "Classeurs Excel (*.xls)" & Chr(0) & "*.xls" & Chr(0)
  MsgBox GetFileName(sFilter, "D:\", "Essai")
End Sub

Function GetFileName(sFilter As String, sInitialDir As String, sTitle As String) As String

  Dim OpenFile As OPENFILENAME
  Dim lReturn As Long

  With OpenFile
    .lStructSize = Len(OpenFile)
    .lpstrFilter = sFilter
    .nFilterIndex = 1
    .lpstrFile = String(257, 0)
    .nMaxFile = Len(OpenFile.lpstrFile) - 1
    .lpstrFileTitle = OpenFile.lpstrFile
    .nMaxFileTitle = OpenFile.nMaxFile
    .lpstrInitialDir = sInitialDir
    .lpstrTitle = sTitle
    .flags = 0
  End With
  lReturn = GetOpenFileName(OpenFile)

  If lReturn = 0 Then
    GetFileName = ""
  Else
     GetFileName = Trim(OpenFile.lpstrFile)
  End If

End Function

A+

bonjour,

Merci pour la macro, mais si tu sais où je peux trouver les moulinettes, je suis preneur.

Christian