Discussion :

[Phénix34]

Bonjour,

Je voudrais ouvrir un fichier excel dont je connais le nom mais celui-ci se trouve dans un sous dossier dont je ne connais pas complètement le nom.
Je connais le chemin pour accéder au dossier supérieur mais comme nous utilisons le nom du fichier dans le nom du dossier celui-ci évolue.

Dossier niv0 : "A"
      ->dossier niv-1: "A-(variable)-nom du fichier"
           --> fichier.xlsm

Je voudrais ouvrir fichier.xlsm.

Je n'arrive pas à utiliser la fameuse * pour dire contient.

j'ai essayé ça, mais myfile reste vide:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Chemin= " C\user\doc" 
Nomfichier=cells(2,1)&".xlsm"
 
   Myfile = Dir("C\user\doc\DOSSIER*" & nomFichier)
 
 
                    Workbooks.Open Filename:=Myfile, UpdateLinks:=0, ReadOnly:=True

Je débute en VBA peut-être que mon erreur est évidente pour vos yeux d'experts svp aidez moi...

[Zekraoui_Jakani]

Est-ce que ceci peut aider ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
Sub OuvrirFichier()
 
  Dim Fichier As String
  Dim fd As Office.FileDialog
 
  Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
  With fd
    .AllowMultiSelect = False
    .Title = "Sélection d'un fichier XL"
    .Filters.Clear
    .Filters.Add "Excel 2003", "*.xls?"
 
    If .Show = True Then
      Fichier = Dir(.SelectedItems(1))
    End If
  End With
 
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
 
  If Len(Fichier) > 0 Then
    Workbooks.Open (Fichier)
  Else
    MsgBox "Aucun fichier n'a été sélectionné !"
  End If
 
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
 
End Sub

[Phénix34]

Merci beaucoup! ça m'a aidé effectivement, on s'affranchit complètement du chemin, vraiment merci.