Discussion :

[dimitri70]

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?

[Philippe Tulliez]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[dimitri70]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Nom = ActiveWorkbook.FullName

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

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
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

[mercatog]

Essaies comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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