[VBA-E] Problème de navigation entre fichiers

Bonjour,

Mon problème est le suivant : à partir d'un fichier brut contenant des données non triées je dois créer plusieurs autres fichiers temporaires avec des copy/paste sélectifs.

Voila le code que j'utilise :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Create_Temp(Nom_Compt, ID_Compt, ParentFile, NbLine)
    '-------------------------------------------------------------------
    '   Variables
    '-------------------------------------------------------------------
    Dim XL As Excel.Application
    Dim Classeur As Excel.Workbook
    Dim Address As String
    Dim File As String
    Dim NewXLFile As String
 
    '-------------------------------------------------------------------
    '   Initialisation
    '-------------------------------------------------------------------
    Address = Sheets("Constantes").Range("B1").Value
    File = Nom_Compt & ".xls"
    NewXLFile = Dir(Address & "Temp\" & File)
 
    'Création instance objet Excel
    Set XL = CreateObject("Excel.Application")
    XL.Application.Visible = True
    Set Classeur = XL.Workbooks.Add
 
    'Suppression de la troisième feuille
    Classeur.Sheets(3).Delete
 
    'Modif des noms de feuille
    Classeur.Sheets(1).Name = "Trafic"
    Classeur.Sheets(2).Name = "Second Max"
 
    Classeur.SaveAs Address & "Temp\" & File

Ensuite je fais plusieurs copy/paste dans ce genre la :

Code:

1
2
3
4
5
6
7
8
    Windows(ParentFile).Activate
    Sheets("Données").Column(2 + ID_Compt).Select
    Selection.Copy
 
    Windows(NewXLFile).Activate
    Classeur.Sheets("Trafic").Select
    Classeur.ActiveSheet.Range("C1").Select
    Classeur.ActiveSheet.Paste

C'est la que j'ai un problème puisque je n'arrive pas à rebasculer sur mon nouveau fichier avec la commande

Code:

Windows(NewXLFile).Activate

Si quelqu'un pouvait éclairer un peu ma lanterne ;)
Merci

ton nouveau classeur ...? est "pointé" par ta variable au doux nom de classeur ..? non ? alors..:

Code:

classeur.activate

Oui c'est bien ce que j'avais tenté au départ mais ca plantait dejà, j'ai parcouru le forum et je suis tombé sur cette façon de faire. Mais elle ne marche pas comme expliqué plus haut...

et

Code:

windows(Classeur).activate

?

Je dois avouer que j'ai très honte la...
Effectivement la méthode de bbil marche parfaitement.

Seulement il y avait une autre erreur dans mon code qui m'a induit en erreur :

Code:

Sheets("Données").Column(2 + ID_Compt).Select

Doit être remplacé par :

Code:

Sheets("Données").Columns(2 + ID_Compt).Select

Du coup j'ai tout d'abord cru que

Code:

Classeur.Activate

ne fonctionnait pas, mais c'est bien la bonne solution.

Merci beaucoup à tous.
Je tag Résolu.