Discussion :

[r.sandrine]

Bonjour

J'essaie de mettre en forme un style sur une requête exportée sur Excel, .

Le module est le suivant :

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
Public Sub ModifyExportedExcelFileFormats(sFile As String)
On Error GoTo Err_ModifyExportedExcelFileFormats
 
    Application.SetOption "Show Status Bar", True
 
    vStatusBar = SysCmd(acSysCmdSetStatus, "Formatting export file... please wait.")
 
    Dim xlApp As Object
    Dim xlSheet As Object
 
    Set xlApp = CreateObject("Excel.Application")
    Set xlSheet = xlApp.Workbooks.Open(sFile).Sheets(1)
 
    With xlApp
            .Application.Sheets("rqt_formula").Select
            .Application.Sheets("rqt_formula").Name = "Formulas"
            .Application.Cells.Select
            .Application.Selection.ClearFormats
            .Application.Selection.Font.Name = "calibri"
            .Application.Rows("1:1").Select
            .Application.Selection.Font.Bold = True
            .Application.Selection.Interior.ColorIndex = 15
            .Application.Rows("2:2").Select
            .Application.ActiveWindow.FreezePanes = True
            .Application.Columns("A:S").Autofilter
            .Application.Columns("A:S").EntireColumn.AutoFit
            .Application.Columns("A:S").Select
            .Application.Range("A1").Select
            .Application.ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$S$474"), , xlNo).Name = _
           "Table1"
            .Application.ActiveWorkbook.Save
            .Application.ActiveWorkbook.Close
            .Quit
    End With
 
    Set xlApp = Nothing
    Set xlSheet = Nothing
 
    vStatusBar = SysCmd(acSysCmdClearStatus)
 
Exit_ModifyExportedExcelFileFormats:
    Exit Sub
 
Err_ModifyExportedExcelFileFormats:
    vStatusBar = SysCmd(acSysCmdClearStatus)
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_ModifyExportedExcelFileFormats
End Sub

J'ai une erreur sur la ligne

Code :

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

1
2
.Application.ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$S$474"), , xlNo).Name = _
           "Table1"

Il me met erreur sur xlSrcRange (variable non définie), que dois je modifier dans la syntaxe et comment appliquer un style précis de excel ?

Merci beaucoup
Sandrine

[Invité]

Bonjour

A priori tu n'as pas référencé Excel, il faut donc que tu utilises la valeur numérique de cette constante Excel.

Au mieux, il faut créer un module pour déclarer les constantes Excel et leur valeur numérique associées.

Un petit conseil supplémentaire, ne pas utiliser les Select dans ton code Excel, cela ralenti le code, utiliser des Ranges pour désigner tes cellules, va faire un tour du coté du forum Excel, il y a beaucoup de discussions sur ce sujet.

Philippe

[r.sandrine]

J'ai bien trouvé sur internet la constante suivante :

Code :

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

#DEFINE xlSRCRange 1

mais que dois je écrire dans le module pour introduire cette constante ?

Merci

[Invité]

Re

Tu écris cela dans un module :

Code :

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

Public Const xlSRCRange As Integer = 1

Cela devrait suffire, et de même si tu as d'autres constantes.

Philippe

[r.sandrine]

Merci !

[r.sandrine]

J'ai encore une erreur sur range de

Code :

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

1
2
Application.ActiveSheet.ListObjects.Add(xlSRCRange, Range("$A$1:$S$474"), , xlNo).Name = _
           "Table1"

Sub ou function non définie