Hello,
Je l'ai bossé lundi dernier, ta de la chance.
Code :
Dim CHEMINFICHIER As String
Dim NOMFICHIER As String
On Error Resume Next
'6. Choix Sauvegarde fichier en .csv
NOMFICHIER = ActiveWorkbook.Path & "\" & "Prépa" & Format(Time, "Hhmm") & Format(Time, "Ss") & ".csv"
With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 15 '15 = position csv
.ButtonName = "Sauvegarder sous" 'Par défaut est "ouvrir"
.InitialFileName = NOMFICHIER 'à l'ouverture le 1er chemin proposé est celui du fichier en cours
.Title = "Sélectionner l'emplacement de sauvegarde" ' 'Titre de la boite de dialogue
.Show 'Ouverture du gestionnaire de choix de dossier
If .SelectedItems.Count > 0 Then 'Si choix de fichier
CHEMINFICHIER = .SelectedItems(1) 'La variable de choix dossier prend la valeur du choix dans la boite de dialogue
Else
CHEMINFICHIER = "" 'si pas de choix rien et sort de la sub
Exit Sub
End If
End With
'---------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------
'6 Sauvegarde du fichier en csv
ActiveWorkbook.SaveAs Filename:=CHEMINFICHIER, _
FileFormat:=xlCSV, CreateBackup:=False, local:=True
'-------------------------------------------------------------------------