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