Bonjour
Je cherche à déclarer le nom de mon fichier comme une variable. Nom du fichier peut contenir du texte et des numéros.
Je débute sur le codage de vba donc dans ma logique, cétait d'une part de récuperer le nom du fichier dans une cellule et après venir lire la cellule avec mon code pour avoir le nom du fichier.

voici le code mais ca ne marche pas

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
17
18
19
20
Sub Macro2_Mise_A_jour_LOR()
'
' Macro2_Mise_A_jour_LOR Macro
'
Dim variable As Variant
Set variable = Cells(9, 4)

Worksheets("Lor").Select
Workbooks.Open Filename:=Application.GetOpenFilename("Excel Files (*.xls),*.xls"), UpdateLinks:=False, ReadOnly:=True
    Sheets("SEMAINE").Select
    Worksheets("SEMAINE").Cells.Select
    Selection.Copy
    Workbooks("variable.xlsm").Activate
    Sheets("Lor").Select
    Cells.Select
    ActiveSheet.Paste
Sheets("Requête").Select
Application.CutcopyMode = False

End Sub
Quelqu'un a t-il une idée?