XL 2013 Macro qui sélectionne un fichier dont la fin de l'intitulé est une date qui change régulièrement

[onyirimba]

Bonjour,

Je souhaiterai un procédé pour sélectionner un fichier "ABCD 21 07 2021" avec une Macro mais vu que la date du fichier change tout les jours.
Je souhaite un procédé pour sélectionner le fichier malgré que la date va changer à l'avenir ("ABCD 22 07 2021"; "ABCD 23 07 2021"...)

Est-ce qu'il faut le nommer "ABCD *.xlsm" pour que la macro sélectionne ce fichier?

Windows("BDD VIA VBA POUR SPC.xlsx").Activate
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Windows("ABCD *.xlsm").Activate
ActiveWindow.SmallScroll Down:=-45
ActiveWindow.ScrollRow = 103601
ActiveWindow.ScrollRow = 95045

Merci pour cotre aide.

Cordialement.

 

[mapomme]

Bonsoir @onyirimba 🙂,

Essayer:

Sub test()
Dim x
   For Each x In Workbooks
      If x.Name Like "ABCD ## ## ####.*" Then
         Application.Windows(x.Name).Activate: Exit For
      End If
   Next x
End Sub

 

[onyirimba]

Bonsoir @onyirimba 🙂,

Essayer:

Sub test()
Dim x
   For Each x In Workbooks
      If x.Name Like "ABCD ## ## ####.*" Then
         Application.Windows(x.Name).Activate: Exit For
      End If
   Next x
End Sub

merci

 

[onyirimba]

Merci beaucoup cela fonctionne