Discussion :

[Magicmax]

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

[SfJ5Rpw8]

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

Code :

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

classeur.activate

[Magicmax]

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...

[illight]

et

Code :

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

windows(Classeur).activate

?

[Magicmax]

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 :

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

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

Doit être remplacé par :

Code :

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

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

Du coup j'ai tout d'abord cru que

Code :

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

Classeur.Activate

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

Merci beaucoup à tous.
Je tag Résolu.