Sauvegarde format texte DOS

Version imprimable

bonjour a tous,

j'enregistre une macro pour sauvegarder au format texte DOS (.txt)

Code:

1
2
3
4
5
6
7
8
9
 
Sub Macro2()
'
' Macro2 Macro
'
    Range("A10").Select
    ActiveWorkbook.SaveAs Filename:="C:\Users\moi\Documents\Classeur1.txt", _
        FileFormat:=xlTextMSDOS, CreateBackup:=False
End Sub

ce code marche bien mais il s'applique au classeur actif. donc pas de souci.

je develloppe une macro qui me permet d'ouvrir la boite de dialogue et souhaite integrer ce "fileformat" mais je ne sais pas ou.
voici mon code initial

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Function save_as_perso(plage)
    Dim fnam, x&
    'fname = Application.GetSaveAsFilename("fichier " & Format(Date, "dd mm yyyy") & Format(Date, " yyyy-mm-dd"), "(*.txt), *.txt", , "Sauvegarde monfichier")
    fname = Application.GetSaveAsFilename(InitialFileName:=Environ("userprofile") & "\Desktop", FileFormat:=xlTextMSDOS, CreateBackup:=False, filefilter:="fichier Text (*.txt),*.txt", title:="ENREGISTREMENT FICHIER TEXT")
    If fname <> False Then
        plage.Copy
        With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .GetFromClipboard: texte = .GetText(1): End With
        x = FreeFile: Open fname For Output As #x: Print #x, texte: Close #x
        With Application: .CutCopyMode = False: .CutCopyMode = True: End With
    End If
End Function

Ma question est : pourriez vous me dire a quel endroit je doit inserer le "fileformat" dans ce code?

merci par avance pour votre aide.

bonjour
ici tu ouvre le dialog save AS

Code:

fname = Application.GetSaveAsFilename(InitialFileName:=Environ("userprofile") & "\Desktop", FileFormat:=xlTextMSDOS, CreateBackup:=False, filefilter:="fichier Text (*.txt),*.txt", title:="ENREGISTREMENT FICHIER TEXT")

ici tu recupere seulement le nom que tu a tapé ou selectionner dans le dialogue save AS
et tu sauve le texte du clipboard avec le nom
Code:

1 2 3 4 5 6 If fname <> False Then plage.Copy With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .GetFromClipboard: texte = .GetText(1): End With x = FreeFile: Open fname For Output As #x: Print #x, texte: Close #x With Application: .CutCopyMode = False: .CutCopyMode = True: End With End If
conclusion
en aucun cas avec open for tu créee un fichier text au format (xlTextMSDOS)
il te faut le convertir avant

a la place de open for regarde du coté de l'object adobstream peut etre que tu peux paramétrer son format en ecriture

bonjour Patrick,

et j'ai essayé ceci aussi il semble que cela marche (en vert)

Code:

1
2
fname = Application.GetSaveAsFilename(InitialFileName:=Environ("userprofile") & "\Desktop", FileFormat:=xlTextMSDOS, CreateBackup:=False, filefilter:="fichier Text (DOS) (*.txt),*.txt", title:="ENREGISTREMENT FICHIER TEXT")

02/02/2019, 17h45
patricktoulon

re

re
c'est pas le code de la ligne qui est pas bon mais c'est que tu ne recupere que le nom avec fname pas le format
je repete soit adobstream a la place de open for soit conversion du texte clipboard en dos par vba avant open for ;si tant est que ce soit possible

oh!! et puis mince sert toi des outils dont tu pourra te servir et comprendre

principe:

blocage des alertes et screenupdating ca rend hépileptique
ouverture du dialog on s'en fout du format
si fname est <>false on continue
copie une plage
ajout d'un new workbook provisoire
paste sur sheets(1) du new workbook
sauvegarde avec format
fermeture du workbook provisoire
nous voila revenu sur le classeur et sheets de depart

quasiment l'enregistreur de macro qui a tout fait
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 sub test() Dim wbk2 As Workbook, fname Application.ScreenUpdating = False Application.DisplayAlerts = False fname = Application.GetSaveAsFilename(InitialFileName:=Environ("userprofile") & "\Desktop", filefilter:="fichier Text (*.txt),*.txt", Title:="ENREGISTREMENT FICHIER TEXT") If fname <> False Then Range("A1:f10").Copy Set wbk2 = Workbooks.Add wbk2.Sheets(1).Paste Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlTextMSDOS ActiveWindow.Close End If End Sub

02/02/2019, 19h16
K2carca

Merci patrick pour votre patience
je vois à peu près mais VBA reste encore pas mal compliqué pour un vieux jeune novice comme moi

Patrick ,

j'avais marquee comme résolu mon probleme neamnoins il ne l'est pas. en effet adapté a mon besoin votre solution me crée bien un fichier texte mais pas DOS.
(en tout cas et la raison pour laquelle il me faut ce fichier sous ce format la, c'est que par la suite ce fichier est importé dans un outil de visualization et j'ai besoin de donnée de telemetrie. )

Votre solution me crée un fichier de 1Ko!

j'ai autrement appliqué ce code
Code:

1 2 3 4 5 6 7 8 9 Sub save_as_ter() Application.ScreenUpdating = False Dim chemin As String chemin = ActiveWorkbook.Path Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=chemin & "\" & Range("G1").Value & " fichier" & Format(Date, "dd mm yyyy") & Format(Date, " yyyy-mm-dd") , FileFormat:=xlTextMSDOS, CreateBackup:=False ActiveWorkbook.Close End Sub
celui ci marche bien, neanmoins il ne m'ouvre pas la fenetre de dialogue "enregistrer sous" et de plus, le chemin est inscrit dans le marbre, ne laissant pas le choix a l'utilisateur de l'enregistrer ou il le souhaite.

auriez vous une autre solution s'il vous plait ?

bonjour

je vois pas ce que peut changer "CreateBackup:=False" au format de sortie entre nous
je crois que tu t'enmele un peu les pinceaux

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
    Dim wbk2 As Workbook, fname
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    fname = Application.GetSaveAsFilename(InitialFileName:=Environ("userprofile") & "\Desktop", filefilter:="fichier Text (*.txt),*.txt", Title:="ENREGISTREMENT FICHIER TEXT")
    If fname <> False Then
        Range("A1:f10").Copy
        Set wbk2 = Workbooks.Add
        wbk2.Sheets(1).Paste
        Application.CutCopyMode = False
        wbk2.SaveAs Filename:=chemin & "\" & Range("G1").Value & " fichier" & Format(Date, "dd mm yyyy") & Format(Date, " yyyy-mm-dd"), FileFormat:=xlTextMSDOS, CreateBackup:=False
        ActiveWindow.Close'ou wbk2.close c'est pareil
    End If
End Sub

04/02/2019, 18h35
K2carca

Comme vous je ne sais pas trop. J’ai juste enregistrer la macro et faisant les actions avec ma souris et j’ai obtenu ce code.

Comme j’explique, maintenant il ne me reste qu’a:
-Trouver comment remplacer le chemin par un chemin «*générique*» au travers d’une boite de dialogue permettant à l’utilisateur de définir lui même le chemin
-afficher la boîte de dialogue. En effet ce code ne le permet pas d’ou La différence avec application.getsaveas....
04/02/2019, 20h12
patricktoulon

re

re
mais qu'est ce que tu raconte !!!????
le getopen save as ne sert juste qu'a recupérer la destination ca doit marcher c'est tout si ca marche pas tu a un probleme ailleurs
04/02/2019, 22h06
K2carca

J’en convient, mais où je ne le sais pas car avec mes pauvres 2-3 mois de vba derrière moi ...je ne sais pas. Toujours est il que voilà, avec Getopen il me crée un fichier de 1Ko alors qu’avec l’autre méthode il me crée le bon fichier
04/02/2019, 22h30
patricktoulon

re

re
je repete
ce n'est pas getopen ca viens d'ailleurs get open ne sert qu'a etablir la destination (chemin)