Discussion :

[AFcrv]

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

[Theze]

Bonsoir,

Teste ceci pour voir (je n'ai pas testé de mon coté !) :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Sub Automat()
 
    Dim ClsGL_0814 As Workbook
    Dim ClsGL_0813 As Workbook
    Dim ClsResultat As Workbook
    Dim Fe As Worksheet
    Dim ResultN As String
    Dim ResultN_1 As String
 
    Dim i As Integer
 
    Set ClsGL_0814 = Workbooks.Open("c:\librairie\GL_0814.xlsx")
 
    i = 2
 
    With ClsGL_0814.Worksheets("Feuil1")
 
        .Columns("A:A").Insert Shift:=xlToRight
 
        While .Cells(i, 2) <> ""
 
            .Cells(i, 1) = .Cells(i, 2) & .Cells(i, 3) & .Cells(i, 4)
            i = i + 1
 
        Wend
 
    End With
 
    ResultN = ClsGL_0814.Worksheets("Feuil1").Name
 
 
    Set ClsGL_0813 = Workbooks.Open("c:\librairie\GL_0813.xlsx")
 
    i = 2
 
    With ClsGL_0813.Worksheets("Feuil1")
 
        .Columns("A:A").Insert Shift:=xlToRight
 
        While .Cells(i, 2) <> ""
 
            .Cells(i, 1) = .Cells(i, 2) & .Cells(i, 3) & .Cells(i, 4)
            i = i + 1
 
        Wend
 
    End With
 
    ResultN_1 = ClsGL_0813.Worksheets("Feuil1").Name
 
    Set ClsResultat = Workbooks.Open("c:\librairie\Resultat.xls")
 
    Set Fe = ClsResultat.Worksheets.Add
 
    Fe.Name = ResultN
 
End Sub

Hervé.

[AFcrv]

Erreur d’exécution 1004
Il me dis qu’apparemment mon chemin d'accès n'est pas bon pourtant j'ai bien vérifié et je vois pas ce qui cloche :s

[Theze]

Bonjour,

Quelle ligne de code est surlignée ?

Hervé.

[AFcrv]

Bonjour,

Alors chez moi c'était cette ligne qui était surligné :

Code :

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

 Set ClsGL_0814 = Workbooks.Open("c:\librairie\GL_0814.xlsx")

Et maintenant que je le fais au boulot tout s'éxécute sans message d'erreur mais rien ne se passe dans le classeur Résultat

[bboy-eazy]

Bonjour,

N'étant pas un pro, je ne sais pas si je vais dire une connerie mais peut être que l'erreur vient du fait que le classeur est en .xlsx ? Il n'accepte donc pas les macros

essayez avec un classeur en .xslm

Après je ne suis pas sur du tout que le problème soit celui-ci

[Marc-L]

Bonjour, Bonjour !

tout s'éxécute sans message d'erreur mais rien ne se passe dans le classeur Résultat

Suivre donc la progression du code en mode pas à pas via la touche F8 …

[AFcrv]

J'ai éxécuté en mode pas à pas et enfaite à partir de la ligne

Code :

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

Set ClsResultat = Workbooks.Open("c:\librairie\Resultat.xls")

le programme se ferme et j'ai l'impression qu'il n'effectue donc pas les dernières lignes restantes :s.
Pour changer mon classeur en xslm comment faut-il que je fasse ?

[AFcrv]

Du coup j'ai changé de fusil d'épaule et je ne vais pas passer par une programmation VBA.
Merci quand même