Bonjour,
J'aimerais créer de nouvelles feuilles dans lesquelles j'insererais "ResultN" et "ResultN_1"
Problème : lorsque je fais
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Sheets.Add       
 ActiveSheet.Name = "ResultN"
je n'ai aucune nouvelle feuille :s
Voila mon code si vous voyez l'erreur vous me serais d'un grand aide
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
Sub Automat()       
 Dim i As Integer            
Workbooks.Open "c:\librairie\GL_0814.xlsx"                
Worksheets("Feuil1").Select        
Columns("A:A").Select        
Selection.Insert Shift:=xlToRight        
i = 2        
While Cells(i, 2) <> ""            
Cells(i, 1) = Cells(i, 2) & Cells(i, 3) & Cells(i, 4)            
i = i + 1        
Wend        
ResultN = ActiveSheet.Name            
Workbooks.Open "c:\librairie\GL_0813.xlsx"        
Worksheets("Feuil1").Select        
Columns("A:A").Select        
Selection.Insert Shift:=xlToRight        
i = 2        While Cells(i, 2) <> ""            
Cells(i, 1) = Cells(i, 2) & Cells(i, 3) & Cells(i, 4)           
 i = i + 1        Wend        
ResultN_1 = ActiveSheet.Name       
 Workbooks.Open "c:\librairie\Resultat.xls"        
Sheets.Add        
ActiveSheet.Name = "ResultN"        
End Sub