Ctrl-Alt-Suppr
XLDnaute Junior
Bonjour à tous.
Le code ci-dessous ne fonctionne pas du tout :
Aucun fichier créé avec un "long" chemin ou un emplacement réseau.
Et sinon .csv est remplacé par .xlsm et j'ai des %20 au lieu des espaces.
Si quelqu'un est motivé pour corrigé ces quelques lignes.
Je veux juste enregistrer le fichier courant avec le même nom, dans le même dossier, en .CSV
(pas d'importance pour le séparateur virgule ou point-virgule ...)
Par avance, merci.
Le code ci-dessous ne fonctionne pas du tout :
Aucun fichier créé avec un "long" chemin ou un emplacement réseau.
Et sinon .csv est remplacé par .xlsm et j'ai des %20 au lieu des espaces.
Si quelqu'un est motivé pour corrigé ces quelques lignes.
Je veux juste enregistrer le fichier courant avec le même nom, dans le même dossier, en .CSV
(pas d'importance pour le séparateur virgule ou point-virgule ...)
Par avance, merci.
Code:
Dim DOSSIER As String
Dim NOM As String
Dim CHEMIN_File_name As String
Sub CSV()
DOSSIER = ThisWorkbook.Path
NOM = ActiveWorkbook.Name
CHEMIN = DOSSIER & NOM
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=CHEMIN, FileFormat:=xlCSVMSDOS, CreateBackup:=False
Application.DisplayAlerts = True
MsgBox " > fichier .CSV enregistré < "
End Sub
Dernière édition: