Déclarer nom du fichier comme une variable

Version imprimable

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:

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?

Bonjour,
Pour utiliser l'objet classeur à l'aide d'une variable, il faut utiliser une variable objet.
Exemple
Code:

1 2 3 4 5 6 Dim wkb As Workbook ' Déclaration de la variable With Workbooks .Open "Z:\Tests\Fichier A.xls" Set wkb = Workbooks(.Count) ' Affectation de la valeur à la variable objet. End With MsgBox wkb.Name
Une fois affectée, la variable objet hérite des méthodes et propriétés de l'objet.
[EDIT]
Lorsque j'ai répondu à ta question aucune ligne de code n'était présente dans ton message.

Bonjour Philippe Tulliez

Merci pour la réponse mais je suis un peu à la rue car je débute. Je cherche quelque chose de simple, juste mettre en variable le nom de mon fichier pour pouvoir revenir par la suite dessus pour coller des données. C'est quelque chose de simple.

J'ai testé avec la fonction

Code:

Nom = ActiveWorkbook.FullName

mais ca me met un message d'erreur d'exécution 9
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 ub Macro2_Mise_A_jour_LOR() ' ' Macro2_Mise_A_jour_LOR Macro ' Nom = ActiveWorkbook.FullName 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 Worksheets("Nom.xlsm").Activate Sheets("Lor").Select Cells.Select ActiveSheet.Paste Sheets("Requête").Select Application.CutcopyMode = False End Sub

Essaies comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro2_Mise_A_jour_LOR()
Dim Fichier As Variant
Dim Wbk As Workbook
 
Fichier = Application.GetOpenFilename("Excel Files (*.xls),*.xls")
If Fichier <> False Then
    Set Wbk = Workbooks.Open(Filename:=Fichier, UpdateLinks:=False, ReadOnly:=True)
    Wbk.Worksheets("SEMAINE").UsedRange.Copy ThisWorkbook.Worksheets("Lor").Range("A1")
    Wbk.Close False
    Set Wbk = Nothing
End If
End Sub