Export Feuille dans nouveau classeur puis enregistrer en CSV
Bonjour,
j'aimerais trouver la formules VBA pour exporter la seconde feuille nommée "OPTICOUPE" de mon fichier Excel dans un nouveau classeur puis de l'enregistrer en Csv et de choisir le lieu d'enregistrement.
J'ai essayé quelque heures mais je ne comprends rien à rien ...
J’espère que je m’exprime suffisamment bien pour que vous me compreniez. Je n'ai sans doute pas les bon termes.
Merci d'avance,
Bonjour Joris,
voici un exemple,
Sub Enregistre_csv()
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Dim rep As String, Chemin As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
If objFolder Is Nothing Then Exit Sub
Set oFolderItem = objFolder.Items.Item
rep = oFolderItem.Path
Chemin = rep & "\" & "MonFichier.csv"
Sheets("OPTICOUPE").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Chemin, FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End SubJ’essaye ce code lundi au travail et je post pour donner des nouvelles ensuite...
En tout cas merci pour la réponse, c'est super sympa.