Discussion :

[ced0802]

Bonjour a tous,

J'ai un fichier nomme "Semaine W35", avec 35 en tant que numero de la semaine. Mon fichier change donc de nom chaque semaine.
Ma macro utilise ce fichier.

Dans mon fichier base (qui contient ma macro), j ai indique en cellule (8,10) mon numero de semaine : 35.

Pourquoi ci dessous ne fonctionne pas.

Code :

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

1
2
3
4
5
6
Dim fichiername As String
Dim db As Workbook
 
fichiername = ThisWorkbook.Worksheets("Macro").Cells(8, 10)
numerosem = "W" & fichiername
   Set db = Workbooks("Semaine numerosem")

Merci a vous par avance

[Thautheme]

Bonjour Ced, bonjour le forum,

Ton code implique que le fichier soit ouvert, sinon il plantera...

Si tu utilises une variable il ne faut pas y mettre des guillemets, ensuite, je rajouterais l'extension à la fin :

Code :

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

Set db = Workbooks("Semaine " & numerosem & ".xlsx)

Mais on pourrait simplifier :

Code :

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

1
2
3
Dim db As Workbook
 
Set db = Workbooks("Semaine W" & Sheets("Macro").Cells(8, 10).Value & ".xlsx") 'extension à adapter

[ced0802]

C'est parfait

Merci pour cette réponse rapide et efficace !