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

enregistrer sous

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion chinel
  • Date de début Date de début

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

chinel

XLDnaute Impliqué
Salut tout le monde!

je voudrais enregistrer un fichier excel avec l'extension txt en plus de xls (que j'ai déjà)

voici mon code qui fonctionne bien mais que dois-je modifier ou ajouter pour le mettre en format texte en plus ?



Private Sub CommandButton1_Click()
Sheets("Mes films").Copy
'Suppression des boutons (ActiveX) dans la feuille
For Each Obj In ActiveSheet.OLEObjects
If TypeOf Obj.Object Is MSForms.CommandButton Then Obj.Delete
Next
Application.DisplayAlerts = False
ActiveSheet.DrawingObjects.Delete

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="L:\Freedom1\All users\Liste des films\DVDTHEQUE.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

ThisWorkbook.Close savechanges:=False
Application.Quit


End Sub

merci de votre aide !
 
Trier par date Trier par votes
Re : enregistrer sous

Bonjour Chinel

peut être comme ceci, si j'ai bien compris :

Code: 
ActiveWorkbook.SaveAs Filename:="L:\Freedom1\All users\Liste des films\DVDTHEQUE.txt", FileFormat:=xlText

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : enregistrer sous

Salut Pierrot93

non ce n'est cela que je veux

je voudrais garder mon code mais en plus rajouter pour faire un fichier texte en plus
enregistrer avec les deux extensions xls et txt

merci quand même et bon wwek-end !
 
Vote positif 0 Vote négatif
Re : enregistrer sous

Bonjour Chinel

euh, pas tout compris, moi, peut être comme ceci :

Code: 
ActiveWorkbook.SaveAs Filename:="L:\Freedom1\All users\Liste des films\DVDTHEQUE.xls.txt", FileFormat:=xlText

ou bien ainsi :

Code: 
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="L:\Freedom1\All users\Liste des films\DVDTHEQUE.xls", FileFormat:=xlNormal
ActiveWorkbook.SaveAs Filename:="L:\Freedom1\All users\Liste des films\DVDTHEQUE.txt", FileFormat:=xlText
ThisWorkbook.Close savechanges:=False
Application.Quit

bon week end également
@+
 
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

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
746
arnoldbrice19
A
I
  • Résolu(e)
Microsoft 365 Enregistrer sous sans boite de dialogue enregistrer et oui
Réponses
3
Affichages
915
iliess
I
  • Résolu(e)
XL 2010 Enregistrer/Enregistrer Sous en .xlsm Nom et emplacement libre
Réponses
11
Affichages
3 K
Orson83
R
  • Résolu(e)
Microsoft 365 Macro "suicide" bloque et ne quitte pas Excel
Réponses
4
Affichages
1 K
raf26
R
  • Question Question
XL pour MAC Vba - Macro enregistrer sous...
Réponses
7
Affichages
6 K
ArnaudSi
T
  • Question Question
XL 2010 Macro enregistrer sous sur le bureau
Réponses
8
Affichages
2 K
Staple1600
C
  • Question Question
XL 2019 VBA - problèmes de guillemets dans un export d'Excel vers un fichier texte
Réponses
12
Affichages
7 K
CHL1234
C
S
  • Question Question
XL 2016 Enregistrer feuille active dans un autre classeur
Réponses
0
Affichages
924
sams96
S
Y
  • Question Question
XL 2016 Macro copy paste & Save as
Réponses
0
Affichages
1 K
you25
Y
S
  • Question Question
XL 2013 Diviser classeur en plusieur fichier et les enregistrer en PDF
Réponses
12
Affichages
2 K
soffianne
S
T
  • Question Question
XL 2010 Import et enregistrement d'un fichier CSV en Excel
Réponses
0
Affichages
1 K
Tophe2
T
  • Question Question
[Réglé]Macro enregistrement auto selon critères
Réponses
6
Affichages
2 K
3xceln4ute
  • Question Question
XL 2013 modifier code pour enregistrer en .xlsx
2
Réponses
17
Affichages
5 K
grisan29
  • Question Question
(résolu par bebere et chti160)modifier ligne de code pour ajouter l'année et mois en cours
2 3
Réponses
40
Affichages
4 K
grisan29
  • Question Question
[RESOLU]Cacher contrôles ActiveX (boutons)
Réponses
5
Affichages
2 K
cathodique
E
  • Question Question
VBA - Enregistrer un fichier avec un nombre de cellule limité
Réponses
4
Affichages
1 K
eldoctor62
E
P
  • Question Question
Enregistrer un fichier au format CSV dans une macro
Réponses
3
Affichages
7 K
cathodique
B
  • Question Question
Réponse message automatiquement avec code
Réponses
2
Affichages
516
barth66
B
  • Question Question
[RESOLU] - [VBA] - Erreur à la fin de l'exécution de la macro
Réponses
12
Affichages
1 K
FlorianN
B
  • Question Question
Modifier le nom d'un fichier selon le contenu de plusieurs cellules
Réponses
1
Affichages
855
Pierrot93
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…