Discussion :

[romain8544]

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 :

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

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 :

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

 ActiveWorkbook.SaveCopyAs Filename:=

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

Pouvez-vous m'aider SVP.

[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.

[patricktoulon]

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

[romain8544]

Merci, ça m'as bien aidé.

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/

[patricktoulon]

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 :

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 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 :

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

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