XL 2016 Export Tableau en un fichier CSV

[Bioval]

Bonjour,

Je souhaite créer un bouton pour me permettre exporter un tableau dans un fichier CSV, ainsi que l'enregistrer dans un dossier bien précis et que le nom de ce fichier soit en fonction de plages de cellules (SOCIETE_NOM)
Je vous joint mon fichier pour m'aider.

Merci à vous

 

[job75]

Bonjour Bioval,

Pas besoin de macro, enregistrez la feuille concernée sous lz format CSV.

A+

 

[Bioval]

J'aimerais bien créer un bouton pour que la feuille s'enregistre avec un nom bien précis qui dépend de deux cellules (SOCIETE_NOM.csv) et dans un dossier précis aussi

 

[scraper]

Sub SaveWorkbook()
Dim spath As String

'à tester une des deux lignes suivantes + SaveAs
'Range à adapter avec ThisWorkbook.Sheets("nom de feuille").Range("A1") si Société est en A1, idem pour "Nom"

spath = ThisWorkbook.Path + "\" + Mid(ThisWorkbook.Name, 1, InStr(1, ThisWorkbook.Name, ".")) & "csv"
spath = ThisWorkbook.Path + "\" + Range("Societe") + "_" + Range("Nom") & ".csv"
ThisWorkbook.SaveAs Filename:=spath, FileFormat:=xlCSV, CreateBackup:=False, Local:=True

End Sub

 

[sylvanu]

Bonjour Bioval, Job, Scraper,
Ne serait pas un doublon de :

XL 2016 - Nom du fichier Exporter

Bonjour, J'ai un petit souci avec une de mes macros. Le problème est le suivant: quand j'exporte ma feuille CUTRITE en CSV, le Nom de mon chier ainsi produit reste "NOM". J'aimerais que le Nom se paramètre automatiquement en allant chercher ces données dans deux cellules nommées...

excel-downloads.com

 

[job75]

Pour choisir le dossier où doit se trouver le fichier CSV on peut utiliser une boîte de dialogue :

Sub export()
    Dim nomfeuille$, test As Boolean
    nomfeuille = [SOCIETE] & "_" & [NOM]
    Application.ScreenUpdating = False
    ActiveSheet.Copy
    ChDir ThisWorkbook.Path
    test = Application.Dialogs(xlDialogSaveAs).Show(nomfeuille, xlCSV)
    ActiveWorkbook.Close False
    If test Then MsgBox "Fichier CSV créé..."
End Sub