Discussion :

[bidou]

attention la notation

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
Range("A1:N3").Select 
    With Selection 
        .VerticalAlignment = xlCenter 
        .HorizontalAlignment = xlCenter 
        .Orientation = 0 
        .AddIndent = False 
        .ShrinkToFit = False 
        .MergeCells = True 
        With .Font 
            .Bold = True 
            .Size = 15 
        End With 
    End With 
    Range("A1:N3").Select 
    With Selection.Interior 
        .ColorIndex = 23 
    End With 
Range("A1:N3").Value = "Listing"

utilises une référence implicite.
Pour ne pas avoir de problème il faut écrire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
XlApp.ActiveWorkbook.ActiveSheet.Range("A1:N3").Select 
    With XlApp.Selection 
        .VerticalAlignment = xlCenter 
        .HorizontalAlignment = xlCenter 
        .Orientation = 0 
        .AddIndent = False 
        .ShrinkToFit = False 
        .MergeCells = True 
        With .Font 
            .Bold = True 
            .Size = 15 
        End With 
    End With

etc....

De manière générale il vaut mieux référencer la feuille dans une variable afin de créer un code plus lisible.

[argyronet]

J'avais pas bien lu ton code !!!

Voilà la boulette, tu as écris:

Code :

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

Range("A1:N3").Select

et il faut écrire

Code :

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

xlApp.Workbooks(TonClasseur).Sheets(TaFeuille).Range("A1:N3").Select

Essaye pour voir... je pense que ça vient de là

Argy

[HiT]

j ai fait ce que tu m as dit mais c pareil, à la deuxieme application ca ne marche pas... ca ne fait rien.

[argyronet]

Met donc une gestion d'erreur en place avec un Goto et essaye de voir si tu n'as pas des On Error Resume Next auquel cas, enlève-les.
Trappe ensuite l'éventuelle erreur si erreur il y a.
Dans tout les cas, fais du Pas à pas en mode debug.

Qu'est-ce que ça donne ?

[HiT]

pas a pas il me dit

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
'déclaration objet excel
    Dim xlApp As Object
    Dim mySheet As Object
    Set xlApp = CreateObject("Excel.Application")   ' Définit le fichier EXCEL à ouvrir
    'Set mySheet = xlApp.Workbooks.Add
   xlApp.Application.Workbooks.Add
    ' code de pilotage
 
 
    'TITRES
    xlApp.Visible = True
    xlApp.ActiveWorkbook.ActiveSheet.Range("A1:N3").Select
    With xlApp.Selection
         With xlAppSelection
        .VerticalAlignment = xlCenter
        .HorizontalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = True
        With .Font
            .Bold = True
            .Size = 15
        End With
    End With
    End With

erreur sur la ligne

Code :

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

.VerticalAlignment = xlCenter

en gros il me met une erreur sur la premiere ligne qui agit sur une selection de cellules...

[HiT]

je te colle un debut de code et ca ne marche pas

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Dim xlApp As Object
    Dim mySheet As Object
    Set xlApp = CreateObject("Excel.Application")  
 ' Définit le fichier EXCEL à ouvrir
 
   xlApp.Application.Workbooks.Add
    ' code de pilotage
 
 
    'TITRES
    xlApp.Visible = True
    xlApp.ActiveWorkbook.ActiveSheet.Range("A1:N3").Select
    With xlApp.Selection
         With xlAppSelection
        .VerticalAlignment = xlCenter
        .HorizontalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = True
        With Selection.Font
            .Bold = True
            .Size = 15
        End With
    End With
    End With
 
 
     xlApp.ActiveWorkbook.ActiveSheet.Range("A1:N3").Select
    With Selection.Interior
        .ColorIndex = 23
    End With
 xlApp.ActiveWorkbook.ActiveSheet.Range("A1:N3").Value = "Listing"
 
 
 xlApp.ActiveWorkbook.ActiveSheet.Range("A4:N6").Select
    With xlApp.Selection
        .VerticalAlignment = xlCenter
        .HorizontalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = True
        With .Font
            .Bold = True
            .Size = 15
        End With
    End With
 
     xlApp.ActiveWorkbook.ActiveSheet.Range("A4:N6").Select
    With xlApp.Selection.Interior
        .ColorIndex = 20
    End With
 xlApp.ActiveWorkbook.ActiveSheet.Range("A4:N6").Value = "Recurrent year: " & Me.Annéerec
 
 
  xlApp.ActiveWorkbook.ActiveSheet.Range("A7:N9").Select
    With xlApp.Selection
        .VerticalAlignment = xlCenter
        .HorizontalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = True
        With .Font
            .Bold = True
            .Size = 15
        End With
    End With
 
     xlApp.ActiveWorkbook.ActiveSheet.Range("A7:N9").Select
    With xlApp.Selection.Interior
        .ColorIndex = 15
    End With
 xlApp.ActiveWorkbook.ActiveSheet.Range("A7:N9").Value = jour

[argyronet]

Pourquoi as-tu écris ça ?

Code :

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

1
2
3
   With xlApp.Selection
         With xlAppSelection
        .VerticalAlignment = xlCenter

au lieu de

Code :

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

1
2
   With xlApp.Selection
        .VerticalAlignment = xlCenter

Argy

[HiT]

oui la j avais crrigé mais ca marchait pas kan meme.... en fait en enlevant les instructions de colorations, ca marche maintenant... je vais le laisser en noir et blance alors
merci à tous et encore une fois à toi argy