Discussion :

[Apoulit]

Bonjour,
j'ai une instance Excel ouverte et je créé un tableau.
Je n'arrive pas à trier la première colonne (A) ou l'entête se nomme [Date / Heure].

j'ai suivi la faq mais j'ai des erreurs ...

Code :

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

1
2
3
4
5
6
7
8
9
10
                    xlWks.Range("A2:A" & Nb_LignesA).NumberFormat = "h:mm:ss;@"
                    xlWks.Range(xlWks.Cells(1, 1), xlWks.Cells(Nb_LignesA, Nb_LignesB)).Select
 
 
                    With xlWks
                        .ListObjects.Add(xlSrcRange, , , xlYes).Name = "Tableau"
                        .ListObjects("Tableau").TableStyle = "TableStyleMedium2"
 
 
                    End With

Pour info ce moment là du code tout le tableau est sélectionné ...

Je vais continué à chercher jusqu'à que je tombe sur un bon samaritain

Merci.

[hyperion13]

Salut
Dans un tableau structuré 1ère feuille, 1er tableau, 1ère colonne ...

Code :

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

WorkSheet(1).ListObjects(1).Range.Sort key1:=.ListColumns(1), order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

[Apoulit]

Bonjour Hyperion13,
ton code que se soit deans l'instruction ou en dehors me met une erreur sur .ListColumns(1)

Quand je retape la ligne de code dans l'instruction With, l'aide au développement (je sais pas si c'est le bon terme), ne me propose pas .ListColumns voir image.



Merci.

[Robert1957]

Bonjour Apoulit, hyperion13,

L'objet "ListColumns" fait partie de l'objet "ListObjects", il ne peut donc pas être appelé comme vous le faite. Pour faire simple juste à remplacer dans le code le "ListColumns" par "Range(A1)" si vous voulez bien faire le trie sur la première colonne. Pour utiliser le "ListColumns" dans votre code, il faut faire ".ListObjects(1).ListColumns(1)"

Bonne journée

[hyperion13]

re
effectivement les subtilités d'appels dans XL

Code :

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

1
2
3
    .ListObjects("Tableau").Sort.SortFields.Clear
    .ListObjects("Tableau").Range.Sort key1:=.ListObjects("Tableau").ListColumns(1), order1:=xlAscending, _
        Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

[Apoulit]

Merci pour vos réponses ca fonctionne plus ou moins mais je me heurte au problème suivant ...
Mon fichier de départ est en XLS visiblement Excel 97-2003 (qui provient d'un vieux logiciel de gestion d'adhérent d'une association de Badminton et oui je joue au bad lol), j'obtiens un message Microsoft Excel - Vérificateur de compatibilité qui sort et qui fait que ça beugue !

Voici ma démarche donc avant de manipuler le fichier je le sauve sous xlsx via Excel... je le sauve même comme ça "monomdefichier.XLS.xlsx"
J'envoie le code VBA ça fonctionne!

Mais le but c'est de partir de mon fichier XLS et de sauvegarder sous .xlsx avec le code Vba.


voici mon code

Code :

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

1
2
3
xlApp.DisplayAlerts = False 'Le message d'enregistrement est désactivé
xlBook.SaveAs FichierXl & ".xlsx"
FichierXl = FichierXl & ".xlsx"

et là ca fonctionne plus ...



bon voilà j'y suis presque

[hyperion13]

re

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim xlWbk As Excel.Workbook
Dim strFilePath As String, strFileName As String, strExt As String
 
Set xlWbk = ActiveWorkbook
 
strFilePath = xlWb.Path & Application.PathSeparator
strFileName = "NoveauNom"
strExt = ".xlsx"
 
xlWbk.CheckCompatibility = False
xlWbk.SaveAs strFilePath & strFileName & strExt, 51
xlWbk.Close True

[Apoulit]

Slt,
j'ai corrigé

Code :

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

strFilePath = xlWb.Path & Application.PathSeparator

par

Code :

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

strFilePath = xlWbk.Path & Application.PathSeparator

mais j'ai une erreur sur

Code :

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

.PathSeparator

et

Code :

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

.Path

merci

[tee_grandbois]

bonsoir,
Application, désigne l'instance Access, pour Excel, il faut prendre celle que tu as déclaré au début de ton code comme dans cet exemple:

Code :

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

1
2
3
4
5
6
7
8
Dim xlApp as New Excel.Application
' ou en late binding
    Dim xlApp As Object
    Set xlApp = CreateObject("Excel.Application")
 
debug.print xlApp.Path
debug.print xlApp.PathSeparator
set xlApp = nothing

[hyperion13]

re
Si je comprends bien, à partir d'Acc tu pilotes Excel, et tu ouvres un classeur 97-2003 dans lequel tu veux créer un tableau structuré et formater la 1ère colonne puis sauvegarder ce classeur dans une version 2007 et +.
Donc le plus simple parmi d'autres solutions, serait d'abord d'enregistrer sous une version 2007 et + ton classeur pour appliquer les méthodes compatibles.

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
Dim lstObj As ListObject
Dim iRows As Long, iCols As Long
 
strFileNameN = "20221214_apoulit2007Plus"
strExtN = ".xlsx"
 
xlWbk.CheckCompatibility = False
xlWbk.SaveAs strFilePath & strSlash & strFileNameN & strExtN, 51
 
With ActiveWorkbook
    Set xlWsh = .Worksheets("Feuil1")
    With xlWsh
        iRows = .Cells(.Rows.Count, 1).End(xlUp).Row
        iCols = .Cells(1, .Columns.Count).End(xlToLeft).Column
        Set lstObj = .ListObjects.Add(xlSrcRange, .Cells(1).Resize(iRows, iCols), , xlYes)
    End With
    With lstObj
        .Name = "Tableau"
        .TableStyle = "TableStyleMedium2"
        .Sort.SortFields.Clear
        .Range.Sort key1:=.ListColumns(1), order1:=xlAscending, _
            Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        .ListColumns(1).DataBodyRange.NumberFormat = "h:mm:ss;@"
    End With
End With

[Apoulit]

Bonsoir Tee_Granbois et Hyperion ... j'y étais arrivé...je garde votre code dans ma bibliothèque mais j'ai compris la démarche à suivre.
Un grand merci en tout cas !

Passez de bonnes fêtes !