Enregistrer une feuille en txt

[Francois73]

Bonjour à toutes et à tous

j'ai bientôt terminé mon fichier, il me reste à exporter une feuille en txt , le code ci dessous fonctionne
mais je voudrais choisir l'emplacement de l'enregistrement du txt. par defaut il le met dans "mes documents" et je souhaiterai que le fichier txt soit enregistrer à côté du fichier excel soit dans le dossier ouvert .
voici le code

merci pour votre aide
Sub feuiltxt()


Dim wb As Workbook, ws As Worksheet
Dim newWB As Workbook, newWS As Worksheet
Dim strSaveAs As String

On Error GoTo errSave

Application.ScreenUpdating = False

Set wb = ActiveWorkbook
Set ws = ActiveSheet

With ws
.Select
.Copy
End With

Set newWB = ActiveWorkbook
Set newWS = ActiveSheet

strSaveAs = InputBox("Please enter filename.")

With newWB
.SaveAs strSaveAs, xlText
.Close (False)
End With

wb.Activate
ws.Select

exitSave:
Application.ScreenUpdating = True
Exit Sub

errSave:
MsgBox (Err.Number)
MsgBox (Err.Description)
Resume exitSave

End Sub

 

[john]

Re : Enregistrer une feuille en txt

Bonjour,

Tu devrai peut-être récupérer le chemin d'où se trouve ton classeur !!
chemin = ActiveWorkbook.Path & "\"
Et ensuite ajouter ce chemin à ton fichier
ActiveWorkbook.SaveAs Filename:= chemin & strSaveAs FileFormat:=xlText, CreateBackup:=False

Bonne fin de journée.

John

 

[Francois73]

Re : Enregistrer une feuille en txt

bonjour

désolé je ne sais pas ou placer ce bout de code
le chemin de mon dossier est C:\Users\courbois_f\Documents\ECRITURE EXCEL LACTO
j'ai une erreur avec FileFormat il me demande une fin d'instruction
merci

 

[john]

Re : Enregistrer une feuille en txt

Tu sais envoyer un exemple de ton fichier que je vois stp ?
Car chez moi ça plante pas !!!!

BàT

John

 

[Francois73]

Re : Enregistrer une feuille en txt

bonjour

merci John le fichier ci dessous , c'est l'onglet "Fichier texte" que j'exporte au format txt

 

[Francois73]

Re : Enregistrer une feuille en txt

re bonjour

je me permet de relancer

merci

 

[Staple1600]

Re : Enregistrer une feuille en txt

Bonsoir à tous

Pour enregistrer une feuille en txt, j'emploierai la méthode ci-dessous si j'étais moi 😉
(je te laisse tester puis adapter selon tes besoins)

Sub ws2txt()
Dim a As Range, NomFic$
Set a = [A1].CurrentRegion
NomFic = InputBox("Nom de l'enregistrement?" & vbCrLf & vbCrLf & vbTab & "Dossier par défaut: C:\temp", "EXPORT EN TXT", "Ici Saisir NomFichier")
Open "C:\temp\" & NomFic & ".txt" For Output As #1
Print #1, Join(Application.Transpose(a), vbCrLf)
Close #1
End Sub

 

[Francois73]

Re : Enregistrer une feuille en txt

bonjour JM

merci pour ta réponse que j'ai essayé mais j'ai une ligne qui bloque c'est celle ci
Print #1, Join(Application.Transpose(a), vbCrLf)

d'autre part je cherche depuis déjà hier et j'ai trouvé en passant par enregistrer sous
voici le code , la boite de dialogue enregistrer sous s'ouvre dans le répertoire par defaut que je lui ai indiqué
Sub Savetxt()
Dim C As Variant
Dim fFilename As String
Dim a As Integer, b As Integer
Dim tmP As String
Dim Separateur As String
'Tu choisis le séparateur de ton choix
Separateur = vbTab
'Plage à copier
With Worksheets("Fichier texte")
C = Range("A1:k625")
End With
Application.DefaultFilePath = "C:\Users\courbois_f\Documents\ECRITURE EXCEL LACTO\lacto siege"
fFilename = _
Application.GetSaveAsFilename(InitialFileName:="R_", _
fileFilter:="Text Files (*.txt), *.txt")
Open fFilename For Output As #1
For a = 1 To UBound(C, 1)
tmP = ""
For b = 1 To UBound(C, 2)
If tmP > "" Then
tmP = tmP & Separateur & C(a, b)
Else
tmP = C(a, b)
End If
Next
Print #1, tmP
Next
Close #1
Erase C
End Sub

je te remercie vivement de ta réponse et te souhaite ainsi qu'a tout le forum une bonne soirée

 

[Staple1600]

Re : Enregistrer une feuille en txt

Re


Tester la macro quand c'est la feuille FichierTexte qui est active.
(c'est ce que j'ai fais sur mon pc et cela fonctionne)

 

[Francois73]

Re : Enregistrer une feuille en txt

re
oui effectivement ça marche

merci beaucoup

et bonne soirée