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 : 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
 
'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,