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