Bonjour,
A la fin d'une macro, j'utilise ce code pour ouvrir une boite "enregistré sous" :
Idéalement, je souhaite faire un enregistré "tout court" avec, à la place de JJMMAAAA, les éléments d'une cellule de mon tableau Excel... Comment faire ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Dim FName As Variant Dim Sep As String FName = Application.GetSaveAsFilename("C:\Documents and Settings\All Users\Bureau\Prospective_JJMMAAAA", fileFilter:="Text Files (*.txt), *.txt") If FName = False Then MsgBox "Export annulé" Exit Sub End If ExportToTextFile CStr(FName), Sep, vbYesNo = vbNo End Sub
D'avance merci pour vos aides,
Slt,
Matthieu
Partager