VBA Excel - Macro enregistrer en csv

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:

---

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 :)

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 "#"

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.

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:

---

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

Merci, ça marche nickel !

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