Discussion :

[Supamonk94]

Bonjour la communauté,

Je suis en train de développer une macro qui s'active à l'ouverture.

Fonctionnement de la macro :

1. Mise en place des filtres choisis

2. Exportation en csv.

Problème : le fichier s'exporte bien en csv à chaque ouverture mais je souhaite seulement exporter les cellules renvoyées après l'application des filtres et non le doc entier avec les filtres en place à l'ouverture.

Lien du fichier Excel :

https://www.dropbox.com/s/f775gj7rbu...ltre.xlsm?dl=0

Je vous copie ci-dessous le code de la macro( à l'ouverture ) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
     MsgBox "Ca marche"
     Range("A1").AutoFilter Field:=1, Criteria1:="3"
     Range("C1").AutoFilter Field:=3, Criteria1:="0"
 
    ChDir "\\chemin\Desktop"
    ActiveWorkbook.SaveAs Filename:= _
    "\\chemin\test filtre.csv", _
        FileFormat:=xlCSV, CreateBackup:=False
 End Sub

TL DR : Je souhaite extraire dans un fichier csv, par macro à l'ouverture du document, seulement les résultats filtrés.

Merci pour votre aide ! Bonne journée

[patricktoulon]

Bonjour
tout d'abors tout le monde n'utilise pas drop box donc ton fichier walou!!!!!

ensuite regarde du cote de visiblerange

et met ton code dans les balise code "#"

[Supamonk94]

Mince je pensais que ce lien permettait de mettre à disposition le fichier pour tout le monde. Une idée de ou est ce que je pourrais l'héberger temporairement le temps d'avoir une réponse ?

Sinon je me renseigne pour les visiblerange.
Merci.

[patricktoulon]

re
tu peut très bien héberger ton fichier dans le post mais dans ton cas le problème est tellement simple qu'il n'en sera pas nécessaire

je te laisse regarder du coté de ce que je t'ai dis et il y a bien d'autre solutions encore mais celle la me parait tout indiquée

regarde cet exemple
après avoir trier

Code :

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

1
2
3
4
5
With Sheets("Sheet1").Range("A1:A1000")
    Application.Intersect(.SpecialCells(xlCellTypeVisible), _
          .SpecialCells(xlCellTypeConstants)).Copy _
               Destination:= Sheets("destSheet").Range("destRange")
End With

soit tu ouvre un nouveau classeur et tu colle et tu sauve en csv
soit tu colle dans un autre sheets que tu transfert dans un nouveau classeur et sauve encsv

[Supamonk94]

Merci, ça marche nickel !

[patricktoulon]

de rien
et comme tu peut le voir
ca n'était pas si compliqué il suffit de connaitre les outils a sa disposition