excel enregistrement

bonjour
je suis totalement debutant sous VBA. mon probleme est le suivant j'ai une feuille excel je voudrais faire la chose suivante :
- a l'ouverture je voudrais trier une colonne par odre croissante
- a la fermeture d'excel je voudrai enregistrer automatique le fichier sans avoir la fenetre d'enregistrement.

je crois que c'est quelque chose comme

Code:

---

ActiveWorkbook.Close true

---

mais je n'arrive pas a m'en servir , il faut le mettre ou ? dans ThisWorkbook ? :oops:

merci de votre aide

pour la sauvegarde, dans ThisWorkBook.beforeClose :

Code:

---

1 2 3

Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Close True End Sub

---

pour le trie dans WorkBook_Open

Code:

---

1 2 3 4

Private Sub Workbook_Open() ThisWorkbook.Sheets(1).Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub

---

à adapter selon Zone de tri ( ici premiére feuille, colonne adjçante à cellule A1) et colonne de tri ( ici A) ... :wink:

Insert un module dans ton projet
dans ce dernier il faut que tu créer 2 macros
une auto_open(le nom de la macro est important) va s'executer a l'ouverture
l'autre auto_close a la fermeture....
bon courage

merci pour vos reponses
par contre je n'arrive pas a adapter a mon cas , la colonne a trier est la G et les celulues vont de 7 à 38 .

j'ai mis

Code:

---

1 2 3 4

Private Sub Workbook_Open() ThisWorkbook.Sheets(1).Range("G1").CurrentRegion.Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub

---

mais il y a des erreurs.

tu as essayer de remplacer les 2 G1 par G7 ?

Salut,
Ce que voulais dire bbil doit ressembler à cela :

Code:

---

1 2 3 4

Private Sub Workbook_Open() ThisWorkbook.Sheets(1).Range("G7:G38").CurrentRegion.Sort Key1:=Range("G7:G38"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub

---

N'est-ce pas bbil ?

Mais je me demandais tu ne dois trier qu'une seule colonne ou tu as plusieurs colonne et tu veux trier suivant la colonne G ? Car cela change un peux la programmation ...

Bon courage pour la suite

@peluche

Théo :D

exact en fait je voudrais trier les colonnes C à G celulles 7 à 38 en fonction de la colonne G par ordre croissant .

Citation:

---

Envoyé par manworms2

exact en fait je voudrais trier les colonnes C à G celulles 7 à 38 en fonction de la colonne G par ordre croissant .

---

et alors tu en est ou ? si tu as remplacer les deux "A1" par Deux "G7" cela as
fonctionné ? non ?

Citation:

---

Envoyé par manworms2

exact en fait je voudrais trier les colonnes C à G celulles 7 à 38 en fonction de la colonne G par ordre croissant .

---

eh bien tu devrais pouvoir le faire comme ceci

Code:

---

1 2 3 4

Private Sub Workbook_Open() ThisWorkbook.Sheets(1).Range("C7:G38").CurrentRegion.Sort Key1:=Range("G7:G38"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End Sub

---

bon courage

@peluche :wink:

Théo

PS: bbil tranquille il n'a peut être pas encore eu le temps de voir les réponses et si le code fonctionne correctement: laisse lui le temps : il reviendra c'est certain au moins pour remercier :lol:

j'ai eu un peu de mal a le faire fonctionner , un probleme au niveau de la premiere ligne qui n'ete pas prise en compte. mais le probleme a ete resolu en rajoutant une ligne a zero.

merci beaucoup pour votre aide precieuse . :D

je doit encore bucher sur le VB :? lol

@++