enregistrer sous

[chinel]

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 !

 

[Pierrot93]

Re : enregistrer sous

Bonjour Chinel

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

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

bonne journée
@+

 

[chinel]

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 !

 

[Pierrot93]

Re : enregistrer sous

Bonjour Chinel

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

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

ou bien ainsi :

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
@+

 

[chinel]

Re : enregistrer sous

Merci Pierrot !

Bon dimanche à toi !