Discussion :

[atk_49]

Bonjour à tous,

Un module VBA me permet d'exporter/trier des données d'un classeur à un autre, j'ai récemment modifié ce module pour optimiser son fonctionnement.
Tout fonctionne normalement, mais quand je ré-ouvre le classeur après l’exécution du script, cette erreur apparaît :



Après un clic sur "Oui"


Détail du fichier XML (Pour info, la feuille 13 n'a subi aucune modification anormal suite à l'erreur.)


Après quelques essais, j'ai localisé une erreur dans mon code. Lors du tri, j'avais oublié la première ligne du code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Activesheet.Sort.SortFields.Clear
Activesheet.Sort.SortFields.Add Key:= _
Activesheet.Range("A2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With Activesheet.Sort
    .SetRange Activesheet.Range("2:" & Activesheet.Range("A" & Rows.Count).End(xlUp).Row)
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Depuis, l'erreur ne semble plus se produire, mais j'ai malgré tout besoin de votre avis pour savoir si l'oubli de cette ligne peut générer ce type d'erreur.

Merci d'avance.

[Daniel.C]

Bonjour,

L'erreur ne semble plus se produire, mais j'ai malgré tout besoin de votre avis pour savoir si l'oubli de cette ligne peut générer ce type d'erreur.

Je ne peux pas te le dire, mais c'est possible si les champs du tri sont enregistrés avec le classeur. De toutes façons, la présence de cette ligne est éminemment souhaitable, surtout si tu fais plusieurs tris.

[atk_49]

Bonjour Daniel et merci pour ta réponse,

Saurais-tu me dire à quoi sert cette fameuse ligne ?

Merci

[Daniel.C]

Saurais-tu me dire à quoi sert cette fameuse ligne ?

Elle sert à effacer les champs de tri nécessaires au tri. Exemple de champ, Tri sur la colonne A, du plus petit au plus grand, sur les couleurs.

Exemple de l'équivalent dans Excel :

[atk_49]

Ok merci Daniel, je vous redirais si toute fois l'erreur persiste.

Encore merci et bonne journée.