Enregistré fichier généré macro dans le même dossier que fichier source
EMCG
-
EMCG -
EMCG -
Bonjour,
J'ai un fichier excel avec plusieurs onglets et je souhaiterais enregistrer un onglet en .csv là où se trouve le fichier initial.
Je ne sais pas comment modifier mon expression (j'ai regardé pas mal de chose sur internet mais je n'y arrive pas).
De plus, serait il possible d'ajouter à la fin de mon fichier généré la date à laquelle le document a été généré ? merci pour tout.
Sub Kshuttleimport()
'
' Kshuttleimport Macro
'
'
Sheets("Import file").Select
Sheets("Import file").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\egicquel\Desktop\Kshuttleimportfile.csv", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub
J'ai un fichier excel avec plusieurs onglets et je souhaiterais enregistrer un onglet en .csv là où se trouve le fichier initial.
Je ne sais pas comment modifier mon expression (j'ai regardé pas mal de chose sur internet mais je n'y arrive pas).
De plus, serait il possible d'ajouter à la fin de mon fichier généré la date à laquelle le document a été généré ? merci pour tout.
Sub Kshuttleimport()
'
' Kshuttleimport Macro
'
'
Sheets("Import file").Select
Sheets("Import file").Copy
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\egicquel\Desktop\Kshuttleimportfile.csv", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub
Configuration: Windows / Internet Explorer 11.0
2 réponses
-
Bonjour,
comme ceci:
Option Explicit Sub Kshuttleimport() Dim dossier As String Dim file As String Dim LaDate dossier = ThisWorkbook.Path & "\" file = "Kshuttleimportfile" LaDate = Format(Now, "yyyy_mm_dd_") & Format(Time, "hh_mm_") 'formatage de la date et heure Sheets("Import file").Select Sheets("Import file").Copy ActiveWorkbook.SaveAs Filename:= _ dossier & file & LaDate & ".csv", FileFormat:=xlCSV, CreateBackup:=False ActiveWindow.Close End Sub
Voilà
-
