VBA - copie sous en .txt

Version imprimable

Bonjour,

J'ai un code qui enregistre en fichier .txt sous le nom "recette1"

Je souhaiterais faire plutôt une copie sous, autrement il enregistre mon fichier excel en .txt. ;)

Voici le code que j'utilise:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub savetxt() Application.ScreenUpdating = False Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\RECETTE1.TXT", _ FileFormat:=xlText, CreateBackup:=False Application.DisplayAlerts = True Application.EnableCancelKey = xlInterrupt 'Ou xlErrorHandler End Sub
Si je change en:

Code:

ActiveWorkbook.SaveCopyAs Filename:=

Ça ne marche pas. Il me dit " erreur compliation - argument nommé introuvable"

Pouvez-vous m'aider SVP.

05/12/2016, 17h26
parmi

Bonjour,

Si tu veux enregistrer seulement un onglet, copie cet onglet (bouton de droite sur l'onglet > Déplacer ou copier...)
Ça va te créer un fichier avec cet onglet.
Enregistre le fichier créé sous...

Tu peux tout faire ça avec l'enregistreur et ajuster le code au besoin.
05/12/2016, 22h29
patricktoulon

re

re
Bonsoir
ou le usedrange du sheets concerné dans un fichier.txt avec open for output et une boucle

plus rapide et moins lourd le fichier a la fin
des exemple xl to csv(.txt) il y en a à foison dont pour certain je suis l'auteur, le site a un moteur de recherche il faudrait s'en servir avant de poster ;);)
06/12/2016, 07h59
romain8544

Merci, ça m'as bien aidé.

Citation:

Quand tu sauvegardes cette copie en type CSV, le nouveau fichier n'est plus un fichier Excel mais bel et bien un csv ouvert dans Excel.
citation de PARMI

http://www.developpez.net/forums/d15...n-fichier-csv/

re
Bonjour
sans aller jusque la comme je l'ai dis plus haut on peut utiliser open for output

exemple
ici on sauve la plage que l'on veut en ".txt" ou ".csv"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
Dim rang As Range, fichier As String, r As String
Set rang = ActiveSheet.UsedRange
'on peut mettre ici
'Set rang = Sheets("Feuil1").Range("A1:Z2000")
'on construit le nom du fichier de destination
nom = ThisWorkbook.Name
r = Replace(Replace(rang.Address, ":", "-"), "$", "")
nom = Mid(nom, 1, Len(nom) - 4) & "-" & rang.Parent.Name & "-" & r
fichier = "C:\Users\" & Environ("UserName") & "\Desktop\" & nom
'on peut se contenter de faire : fichier =" chemin en dur "
' maintenant on lance la fonction
save_in_TXT_or_CSV rang, fichier ' pour sauver en ".txt"
save_in_TXT_or_CSV rang, fichier, "csv" 'pour sauver en ".csv"
End Sub

fonction universelle

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Function save_in_TXT_or_CSV(rang As Range, fichier As String, Optional ext As String = "txt")
Dim i As Long, col As Long
fichier = fichier & "." & ext
For i = rang.Row To rang.Row + rang.Rows.Count
ligne = ""
For col = rang.Column To rang.Column + rang.Columns.Count
ligne = ligne & Cells(i, col).Value & ";"
Next
texte = texte & Mid(ligne, 1, Len(ligne) - 2) & vbCrLf
Next
x = FreeFile
Open fichier For Output As #x
Print #x, texte
Close #x
End Function

dans mes exemples précédents j'utilisais aussi une variable tableau ca peut effectivement jouer sur la rapidité
l'avantage de cette méthode est que l'on sauve une plage bien distincte comme on veut