Discussion :

[PIERRE-DEVIN]

Bonjour,
Voici mon problème, j'ai un fichier avec comme nom "2018-4-2_20-58-28_Titi_Rapport.xlsm" le début du nom change 2018-4-2_20-58-28 puisque c'est une date qui est générée automatiquement, je souhaiterai utiliser la partie

_Titi_Rapport.xlsm

pour ouvrir le fichier, ci dessous le code qui fonctionne avec le nom du fichier complet. J'ai essayé de mettre

*_Titi_Rapport.xlsm

mais j'ai erreur d'exécution, pouvez-vous m'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
 
Sub mrv()
 
 
Dim Path_name As String
    Dim Complete_File_name As String
    Path_name = ThisWorkbook.Path & "\"
        Complete_File_name = Path_name
        Application.DisplayAlerts = False
 
 
ChDir Complete_File_name
        Workbooks.Open Filename:= _
        Complete_File_name & "2018-4-2_20-58-28_Titi_Rapport.xlsm"
 
End Sub

[Thautheme]

Bonjour Pierre, bonjour le forum,

Pas sûr d'avoir bien compris... Peut-être comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub mrv()
Dim CH As String
Dim F As String
 
CH = ThisWorkbook.Path & "\"
F = Dir(CH)
Do While F <> ""
    If InStr(1, F, "Titi_Rapport.xlsm", vbTextCompare) <> 0 Then
        Workbooks.Open (CH & F)
        Exit Sub
    End If
    F = Dir
Loop
End Sub