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 : 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
Windows(NewXLFile).Activate
Si quelqu'un pouvait éclairer un peu ma lanterne
Merci