conversion du format fichier à partir d'une Macro
Bonjour,
J'ai créé une macro qui me permet d'enregistrer ma feuille courante en un fichier au format CSV avec comme séparateur une "," au lieu du point ";" que me propose Excel par défaut quand j'utilise fonction Enregitrer Sous.
Cependant, j'ai aussi besoin d'insérer les données de mes cellules entres des guillmets, ainsi si mon enregistrement de mon fichier d'origine (XLS) est le suivant :
NOM | PRENOM|ADRESSE|
le fichier converti en CSV doit être le suivant :
"NOM","PRENOM","ADRESSE"
Avec le code de ma Macro actuelle j'arrive à créer un fichier avec le séparateur "," mais je ne sais pas qu'elle methode appeler pour obtenir les guillemets, pourriez vous m'aider, merci.
mon code est le suivant :
Code:
1 2 3 4 5 6 7 8 9
|
Sub Export_CSV()
Dim wbk As Workbook
Set wbk = Workbooks.Open("C:\peuplement.xls")
DoEvents
wbk.SaveAs Filename:="C:\Test1.csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
DoEvents
wbk.Close savechanges:=True
End Sub |