XL 2016 Export Tableau en un fichier CSV

Bioval

XLDnaute Nouveau
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
 

Pièces jointes

  • feuille debits.xlsm
    39.4 KB · Affichages: 2

scraper

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
Bonjour Bioval, Job, Scraper,
Ne serait pas un doublon de :
 

job75

XLDnaute Barbatruc
Pour choisir le dossier où doit se trouver le fichier CSV on peut utiliser une boîte de dialogue :
VB:
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
 

Pièces jointes

  • feuille debits.xlsm
    41.6 KB · Affichages: 3

Statistiques des forums

Discussions
313 197
Messages
2 096 105
Membres
106 499
dernier inscrit
mmontagu