Utilisation d'un nom de classeur en variable

Bonsoir à tous, je cherche le moyen d'utiliser une variable pour le nom d'un de mes classeurs. L'objectif est simple :

- L'utilisateur enregistre son fichier
- Je récupère le nom
- Je copie une feuille d'un autre classeur dans le premier

Voici le code que je pensais pouvoir marcher mais il m'indique une erreur au moment de la copie. En gros, il ne trouve pas le classeur sur lequel copier.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'Enregistrer-sous FICHIER 1 Application.Dialogs(xlDialogSaveAs).Show   'Recherche du nom enregistré de FICHIER 1 Dim nom As String nom = ActiveWorkbook.FullName   'Copier coller de la Page 1 du FICHIER 2 dans FICHIER 1 Dim wrk As Workbook For Each wrk In Application.Workbooks If Left(wrk.name, 9) = "DIANE-NEO" Then wrk.Sheets("Page 1").Activate wrk.Sheets("Page 1").Copy Before:=Workbooks(nom).Sheets(3) End If Next

---

Je ne sais pas comment faire appel à ma variable.
J'ai essayé de la mettre entre guillemets, avec un & devant, bref, j'en suis résolu à demander votre aide... Merci d'avance,

BOnsoir Willy

utilise peut être la propriété "name" au lieu de la propriété "fullname", cette dernière renvoie le nom du classeur ainsi que le chemin d'accès. La propriété "Workbooks" attend le nom ou un numéro d'index...

Code:

---

Before:=Workbooks(nom).Sheets(3)

---

bonne soirée
@+

Bonjour,

si je comprend bien tu as déjà essayé ceci:

Code:

---

1 2 3

Before:=Workbooks("" & nom & "").Sheets(3)

---

et utilise .Name au lieu de fullname

Cdt

Trops forts... Je n'ai pas d'autres mots. Il me manquait, une paire de guillemts après le second &. Quel est son intérêt ?
Vraiment merci