Activer un classeur qui a un nom qui change

Bonjour,

Je suis bloquée sur une commande. Pouvez-vous me dire comment appeler mon fichier dans ma macro, sachant que le fichier a un nom qui va changer à chaque lancement de macro ?

En fait, mon fichier s’appelle « Tb_suivi_contacts_2019_Q10 » sachant que Q10 n’est pas figé, c’est la partie du fichier qui va changer.

Mon code est :

Sub Sollicitations ()

Dim Quinz As String

Quinz = InputBox("Saisir la quinzaine ciblé (Exemple: Q3)") 'Enregistre dans la variable Quinz le contenu de la boîte de saisie

' copier le fichier LST dans le fichier XLS

Workbooks.OpenText Filename:= _

"\\S115904u00330\c$\Miam\REQUETE\result_histosol.LST", Origin:=xlWindows, _

StartRow:=5, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _

ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _

, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _

Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True

Range("A2").Select

Range(Selection, Selection.End(xlToRight)).Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Windows("Tb_suivi_contacts_2019_??.xlsm").Activate

Sheets("Base_Sol").Select

Range("B10588").Select

ActiveSheet.Paste

C’est la commande en gras que je ne sais pas quoi mettre exactement, c’est appelé la variable que j’ai saisi avec l’inputbox pour pouvoir après faire mon « collage » correctement.

Je parle un peu chinoix, m'avez-vous compris ? puis-je avoir votre aide?

Merci,

Bonjour,

Tu peux essayer de remplacer par :

Windows("Tb_suivi_contacts_2019_" & Quinz & ".xlsm").Activate

Super, un grand merci pour ton aide !