Discussion :

[Pix_elle]

Bonjour,

Aujourd'hui, je m'attaque à l'export de fichiers Excel en CSV. Cette application sera à ouvrir par l'utilisateur une fois son doc Excel créé et avant de l'enregistrer manuellement.
J'ai plutôt bien avancé sur le sujet et ma macro fonctionne :
- A l'aide d'un combobox dynamique, je sors la liste des classeurs Excel ouverts.
- Je sélectionne le classeur à convertir
- Je sélectionne le type de séparateur (virgule ou point-virgule)
- Je lance l'enregistrement
Tout se fait c'est parfait !

Seulement, dans le code de mon enregistrement, je ne sais pas comment faire pour faire apparaitre le Application.Dialogs(xlDialogSaveAs).Show de façon à ce qu'il soit paramétrer en CSV, selon le séparateur choisi.

Pour le moment j'ai ce code. Mais ça ne me convient pas parce que l'utilisateur n'a pas la main sur le chemin d'enregistrement et le nom du fichier final :
(Pour information, j'ai créé deux checkbox pour sélectionner le type de séparateur. Si le checkbox "virgule" est sélectionné, alors on lance le bout de code pour enregistrer en csv sep. virgule. Et inversement avec le checkbox "point-virgule").

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
If (Pointvirgule.Value = True And Virgule.Value = False) Then
MsgBox "Vous êtes sur le point d'enregistrer le document " & Fichier & Chr(10) & "au format CSV, séparateur point-virgule"
Workbooks(Fichier).SaveAs Filename:= _
"E:\Macro Enreg CSV\nomfichier1.csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True
End If
 
If (Virgule.Value = True And Pointvirgule.Value = False) Then
MsgBox "Vous êtes sur le point d'enregistrer le document " & Fichier & Chr(10) & "au format CSV, séparateur virgule"
Workbooks(Fichier).SaveAs Filename:= _
"E:\Macro Enreg CSV\nomfichier.csv", FileFormat:=xlCSV, CreateBackup:=False
End If

Merci par avance de vos retours !
Bonne journée

[Menhir]

Pour le moment j'ai ce code. Mais ça ne me convient pas parce que l'utilisateur n'a pas la main sur le chemin d'enregistrement et le nom du fichier final :

Utilise Application.GetSaveAsFilename
https://msdn.microsoft.com/fr-fr/lib.../ff195734.aspx

[Pix_elle]

Bonjour,

C'est super ça fonctionne super !

Je sais qu'avec le code suivant, il est possible d'obtenir le nom du dernier doc Excel enregistré. Cependant, j'ai plus que l'impression que ne sont concernés uniquement que les doc au format xls ou xlsx. Par quel moyen puis-je afficher le nom du dernier doc (en .csv) dans ma msgBox ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Application.RecentFiles(1).Name

[Menhir]

RecentFile est une propriété à laquelle je n'ai jamais fais confiance.
J'ai pu remarqué par le passé (avec d'autres versions d'Excel) qu'elle n'est pas fiable. En fonction de la façon d'ouvrir ou d'enregistrer un fichier, elle le place ou non dans sa liste. J'évite donc de l'utiliser depuis.

[Pix_elle]

Ah mince... Je demandais cela parce que je n'arrive pas à sélectionner le classeur fraîchement enregistré et ouvert (afin d'en extraire son nom) et je trouvais que ça pouvait être une alternative comme une autre.