Bonjour
J'ai crée un userform composé d'une listebox avec le nom des pays. (AT,BE,etc..). Par exemple, si je choisis AT (Autriche dans ma listebox), je veux que ce soit le fichier de l'Autriche qui se charge. Voici ce que j'ai essayé d'écrire :
Private Sub CommandButton1_Click()
NomDufichier As String
ListBox.Value = strCountry
'NomDufichier = Workbook(Table1&strCountry)&Worksheets("Table1")."*.xls*"
'Workbooks.Open FileName = NomDufichier
Workbooks.Open FileName:="H:\Stage\Programme\TM.xlsx" 'Mettre NomDufichier à la place de TM. xlsx
Workbooks("TM.xlsx").Worksheets("Type_mine").Cells.Copy _
Workbooks("Programme.xlsm").Worksheets("CC").Range("A1") 'Copie-colle le fichier
Workbooks.Close FileName:="H:\Stage\Programme\TM.xlsx" False 'Referme le fichier source
Unload Me
End Sub
Est-ce que quelqu'un pourrait m'aider ?
Cordialement,
Marion.