Discussion :

[K2carca]

bonjour a tous,

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

Code :

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

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 :

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

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.

[patricktoulon]

bonjour
ici tu ouvre le dialog save AS

Code :

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

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 :

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

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

[K2carca]

bonjour Patrick,

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

Code :

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

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

[patricktoulon]

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

[patricktoulon]

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


principe:

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

quasiment l'enregistreur de macro qui a tout fait

Code :

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

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

[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