Discussion :

[willyol3]

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,

[Pierrot93]

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 :

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

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

bonne soirée
@+

[youn1096]

Bonjour,

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

Code :

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

1
2
3

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

et utilise .Name au lieu de fullname

Cdt

[willyol3]

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