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