Enregistrer sous onglet en .CVS

Bonsoir à tous et très bonne année 2020 a vous tous.

Je vous expose mon soucis.

J'ai un fichier (Voir Pj) avec des feuilles cachées et deux feuille ouvertes "OB" et "Extraction" cette dernière accueille un bouton.

Le problèmes est le suivant :

Mon code macros me permet d'effectuer une fois l'opération puis si je renouvelle, alors le fichier ne suis pas le chemin indiquer et vas se sauvegarder dans "Mes documents". De plus le fichier exporté en CSV est totalement corrompu.

Je n'arrive pas à comprendre.

Pourriez vous m'aider.

Je vous détail ce que je voulais réussir à faire :

• Supprimer les lignes dans la feuille OB comportant la mention #N/A

• Puis supprimer la ligne 1

• Enregistrer sous dans un dossier précis et au format .CSV le fichier avec le nom du fichier reprenant le ce qui ce situe dans la case S2

• Garder le fichier avant conversion en CSV soit en classeur avec macro

Bonjour,

Workbook.SaveAs, méthode expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

Filename : Chaîne qui indique le nom du fichier à enregistrer. Vous pouvez inclure un chemin complet

à tester,

nom = "c:\Chemin du dossier\" & "CH2019" & "E" & Range("S2") & ".csv"