Discussion :

[MichaSarah]

Bonjour,

J'essaye de trouver un code me permettant d'ouvrir un fichier Excel en ne connaissant qu'une partie du nom.
J'utilise les données extraites d'un logiciel. Les données sont exportées vers un fichier Excel appelé : NomDuFichier_Date.xls
"NomDuFichier" ne change jamais, seule "Date" correspond à la date du jour de l'extraction.
Pour automatiser et faciliter la mise en forme je souhaite déclencher une macro qui irait ouvrir ce fichier.
J'ai essayer un début de code comme suit mais j'ai l'impression de partir sur une mauvaise piste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub fichiers()
 
    Dim FichierXls As Workbook
 
 For Each FichierXls In Workbooks
        If FichierXls.Name Like "*TOUS_SECTEURS*" Then
            Workbooks("*" & "TOUS_SECTEURS" & "*".xls").Activate
 
         End If
 Next
 End Sub

Pouvez-vous m'apporter votre aide ?
Merci
MichaSarah

[PPz78]

Bonsoir,

Tous les fichiers de nom NomDuFichier_Date.xls , sont-ils stockés dans le même répertoire ?

PPz

[mercatog]

Tu auras par exemple Toto_16092010 et Toto_17092010, lequel ouvrir?

[PPz78]

Re bonsoir,

si tes fichiers sont dans le même répertoire, tu peux t'inspirer le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
' Dialogue de choix du fichier à ouvrir
    Dim FD As FileDialog
    Set FD = Application.FileDialog(msoFileDialogOpen)
    FD.Title = "       Choisir le fichier à ouvrir"
    FD.InitialFileName = Chemin_nom        ' Le chemin vers le répertoire
    FD.InitialView = msoFileDialogViewDetails
    FD.Filters.Add "Diagramme de séquence", "Nom_du_Fichier*.xls", 1
 
    choix = FD.Show  ' Visualisation de la fenêtre de choix ... et choix
 
    FD.Filters.Clear

PPz

[MichaSarah]

Bonsoir PPz78, mercatog

Le fichier que je dois ouvrir est seul dans le répertoire. C'est la dernière version qui est sauvegardée.
PPz78, j'ai essayé ton code mais je n'arrive pas à le faire fonctionner.

Salutations
MichaSarah

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Chemin As String, Fich As String, Fichier As String
Dim wbk As Workbook
 
Chemin = "C:\Users\user\Desktop\"   'Adapter éventuellement par Chemin=ThisWorkbook.Path &"\"
Fich = "NomDuFichier_*.xls"
Fichier = Dir(Chemin & Fich)
If Fichier <> "" Then
    Set wbk = Workbooks.Open(Filename:=Chemin & Fichier)
    'suite du code
    '............
    Set wbk = Nothing
End If

[MichaSarah]

Bonsoir mercatog,
Encore merci, c'est ce dont j'avais besoin.

Bonne soirée

MichaSarah