Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA ENREGISTRER UNE FEUILLE EN FORMAT TXT

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jeremy6812

XLDnaute Nouveau
Bonjour a tous

Je n'arrive pas a faire une VBA pour copier enregistrer une feuille active dans un format texte en fonction d 'un nom choisi je bloque ca ne marche pas si quelqu'un pouvais me venir en aide 🙂

j'ai un classeur qui doit comporter 8 feuilles

( impossible de le mettre ici , je l'ai relier avec une base de donnée externe microsoft QUERY )
le nom de mon fichier doit etre en feuille 6 ( cells (2,6) )

la feuille que je veux copier et enregistrer en format txt est la feuille active ou feuille 8

je veux copier enregistrer la feuille 8, en suivant un chemin specifique et enregistrer cette copy en format texte ( txt )

je bloque c'est tous ce que je suis arrivé a faire mais ca ne fonctionne pas..( je suis nul mais j'essaye de me format... 🙂 )
Si quelqu'un pouvait m'aider 🙂


Sub Macro8()

Dim NomFichier As String, Chemin As String

Chemin = "C:\CGRC\"

NomFichier = Feuil6.Cells(2, 6).Value

ActiveWorksheet.SaveCopyAs Chemin & NomFichier & ".txt"

FileFormat:=xlText, CreateBackup:=False

MsgBox (NomFichier)

End Sub
 
Trier par date Trier par votes
Salut Jeremy,
A tester car je ne l'ai pas fait.
En principe c'est bon.
Attention à la fin de la ligne......& ".txt" il faut (virgule espace et tiret_bas),
chose manquante dans ta macro . . .
Bruno
VB: 
Sub Macro8()
Dim NomFichier As String, Chemin As String
Chemin = "C:\CGRC\"
NomFichier = Feuil6.Cells(2, 6).Value
ActiveSheet.Copy 'on copie l'onglet dans un nouveau fichier
'on enregistre le fichier en txt
ActiveWorksheet.SaveAs Chemin & NomFichier & ".txt", _
FileFormat:=xlText, CreateBackup:=False
MsgBox (NomFichier)
End Sub
 
Vote positif 0 Vote négatif
bonjour et merci de ton aide , j'avais egalement essayer cette solution mais
ca ne fonctionne toujours pas

Erreur exécution objet requis


Je ne comprend vraiment pas....
 

Pièces jointes

  • vbadoc1.jpg
    167 KB · Affichages: 136
Vote positif 0 Vote négatif
Bonjour,
Essaye comme ceci
Code: 
Sub formatTXT()
Dim NomFichier As String, Chemin As String
Chemin = "C:\CGRC\"
NomFichier = Feuil6.Cells(2, 6).Value
Feuil8.Copy
ActiveWorkbook.SaveAs Chemin & NomFichier, FileFormat:=xlText
ActiveWorkbook.Close False
End Sub
 
Vote positif 0 Vote négatif
Bonjour aussi à Jacky,
En complément si le fichier existe déjà pour sortir du message sans bug
voici

Edit:OUPS !!!!avec essai le fichier créé n'ai pas supprimé à voir si Jérémy le souhaite.....
VB: 
Sub Macro8()
Dim NomFichier As String, Chemin As String
Chemin = ThisWorkbook.Path & "\" '"C:\CGRC\"
NomFichier = Feuil6.Cells(2, 6).Value
ActiveSheet.Copy 'on copie l'onglet dans un nouveau fichier
'on enregistre le fichier en txt
On Error Resume Next ' on gère si le fichier existe déjà
ActiveWorkbook.SaveAs Chemin & NomFichier & ".txt", _
FileFormat:=xlText, CreateBackup:=False
If Err = 0 Then
MsgBox (NomFichier & ".txt a été créé !")
ActiveWorkbook.Close
End If
End Sub
Bruno
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour

Ca ne fonctionne pas , pour celle de jacky ( je te remercie de ton aide ) message d'erreur
et bruno la macro m'ouvre une copie de la page souhaiter en xls sans rien enregistrer en texte ,

vraiment je ne comprend rien la
 
Vote positif 0 Vote négatif
jeremy6812 à dit:
Bonjour

Ca ne fonctionne pas , pour celle de jacky ( je te remercie de ton aide ) message d'erreur
et bruno la macro m'ouvre une copie de la page souhaiter en xls sans rien enregistrer en texte ,

vraiment je ne comprend rien la
Cliquez pour agrandir...
Re..
Hello youky(BJ)
Quel est ce message d'erreur ?
Sur quelle ligne ?
Essaie la PJ
**Feuil6 et Feuil8 sont les "CodeName" des feuilles correspondantes
***Si cela devait ne pas fonctionner, mettre le classeur en ligne
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re avec rectif.
VB: 
Sub Macro8()
Dim NomFichier As String, Chemin As String
Chemin = "C:\CGRC\"
NomFichier = Feuil6.Cells(2, 6).Value
ActiveSheet.Copy 'on copie l'onglet dans un nouveau fichier
'on enregistre le fichier en txt
onglet = ActiveWorkbook.Name
On Error Resume Next ' on gère si le fichier existe déjà
ActiveWorkbook.SaveAs Chemin & NomFichier & ".txt", _
FileFormat:=xlText, CreateBackup:=False
If Err = 0 Then
MsgBox (NomFichier & ".txt a été créé !")
ActiveWorkbook.Close
Else
Workbooks(onglet).Close False
End If
End Sub
Bruno
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
Autres excel vba --> sauvegarder le dessin d'une feuille sur le disque dur
Réponses
2
Affichages
93
bernard_metz
B
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
388
firecarl
F
  • Résolu(e)
XL 2019 Enregistrement au format ".txt" AVEC et SANS Guillemets
2
Réponses
15
Affichages
551
Titof06
F
  • Résolu(e)
XL 2021 Génération d'un fichier TXT à partir d'une feuille Excel
Réponses
3
Affichages
234
fd.30
F
F
  • Résolu(e)
Microsoft 365 Comment enregistrer chaque ligne en tant que fichier texte dans Excel?
2
Réponses
24
Affichages
916
TooFatBoy
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
143
job75
J
  • Question Question
Microsoft 365 VBA transformer une formule au format texte en formule dans excel
Réponses
2
Affichages
144
jujulili
J
N
  • Résolu(e)
XL 2010 A partir d’un Shape, ouvrir un fichier dont l'adresse est sur une autre feuille dans une cellule
Réponses
4
Affichages
381
Nounours_59
N
J
  • Résolu(e)
XL 2019 Problème format recopie ListBox sur un UserForm
Réponses
2
Affichages
106
JLR67
J
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
314
Phil69970
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
160
flc13090
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
CDALE
C
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
627
arnoldbrice19
A
M
  • Résolu(e)
XL 2013 VBA enregistrement fichier dans un dossier en particulier
Réponses
3
Affichages
469
MarineU
M
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
156
Pierreavecunp
P
J
  • Question Question
XL 2021 enregistrer sous une feuille définie du classeur avec nom cellule
Réponses
5
Affichages
799
Eric KERGRESSE
E
G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
1 K
kiki29
C
  • Résolu(e)
XL 2021 enregistrer sous un sous répertoire en vba
Réponses
3
Affichages
736
cgpa
C
E
  • Résolu(e)
Microsoft 365 Textbox heure minute vers tableau en décimal
Réponses
4
Affichages
256
eric72
E
  • Résolu(e)
XL 2013 (RESOLU) Adapter un code
Réponses
8
Affichages
742
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…