enregistrement en vb d'un fichier contenant un filtre automatique

enregistrement en vb d'un fichier contenant un filtre automatique - VB/VBA/VBS - Programmation

Marsh Posté le 28-07-2004 à 15:49:07    

Lu a tous,
 
Je cherche a enregistrer un fichier excel créé en vba avec un filtre automatique inséré en vba, enregistré en vba mais lorsque j'ouvre mon fichier Excel créé par vba, y'a pu de filtre ;o(
 
voici le code :
 
'mise en place du filtre automatique sur la premiere ligne
local_feu1.Rows("1:1" ).Select
Selection.AutoFilter
' Sauvegarde et fermeture de la feuille Excel courante
local_feu1.SaveAs "nomdefichier.xls"
local_workbook.Close (False)
 
 
J'ai essayé avec :
local_workbook.SaveAs FileFormat:=xlIntlMacro
mais sans trop de reussite car ca plante ;o((
 
merci a vous !

Reply

Marsh Posté le 28-07-2004 à 15:49:07   

Reply

Marsh Posté le 28-07-2004 à 16:07:06    

yo paquos =)
tout d'abord il y a un truc que je ne comprends pas dans ton code. tu fais ton filtre en utilisant Selection.Autofilter. ok. mais tu ne donnes pas de critères de sélection, dc évidemment il ne filtre rien. je crois me souvenir que la syntaxe est la suivante :

Code :
  1. Selection.AutoFilter criteria1:="ce que tu veux"


si tu ne mets pas de critères de sélection, évidemment il garde tout.
++ EnJoY It =))))

Reply

Marsh Posté le 28-07-2004 à 16:14:50    

C'est pas ca. Le filtre Automatique, sur un fichier Excel, ca te permets, quand tu rouvre ton fichier, de pouvoir pour chaque colonne faire un genre de tri. Je ne veux pas donner de critere de selection ; en fait, mon appli met le filtre auto et c'est l'utilisateur qui va l'utiliser ce filtre. Je sais pas si jete clair ?

Reply

Marsh Posté le 28-07-2004 à 16:17:15    

ah d'accord, je crois avoir compris. en fait tu veux mettre en place le filtre auto, et non pas effectuer le tri. c'est bien ça? dans ce cas là pourquoi ne le mets-tu pas à la main?

Reply

Marsh Posté le 28-07-2004 à 16:19:25    

car le filtre auto il est deja tout fait et j'ai pas besoin d'un truc sophistiqué ! Mais je crois que j'ai trouvé. J'ai ajouté :
local_feu1.SaveAs "fichier.xls", FileFormat:=xlNormal
et ca a l'air de fonctionner... Va savoir ;o)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed