Nommage d'un workbook par variable

Bonjour à tous,

Je souhaite faire des manipulations avec un fichier nommé avec le contenu d'une variable (contenu de la variable = nom du fichier). Le nom du fichier peut changer donc il faudrait une formule générique basée sur cette variable qui est saisie via un userform, le but est d'obtenir un code du type :

Code:

---

1 2	Set NOM = Workbooks("var") 'var étant le nom du fichier Workbooks("Fichier 1").Sheets("Tableau").Copy After:=NOM.Sheets(2)

---

bonsoir
à tester et à essayer avec

Code:

---

1 2 3

chemin = "Z:\TRAVAUX COMPTABLES BNA\Controle de Gestion\" fichier = combobox1.value & ".xlsx" Workbooks.Open chemin & fichier

---

Re,

Code:

---

1 2 3 4 5

Dim NOM As Workbook Dim var As String var = "Nom_du_fichier" Set NOM = Workbooks(var) Workbooks("Fichier 1").Sheets("Tableau").Copy After:=NOM.Sheets(2)

---

Bonsoir,

Merci pour vos réponses qui m'ont bien aidé.