[VBA] comment enregistrer sans modifier son fichier Résolu/Fermé

Question

Bonjour,  
je souhaiterais enregistrer une feuille excel via une macro sans que mon excel change 
voila j'utilise bêtement une macro enregistrer par excel, pour enregistrer mon fichier excel 


Sub unicode() 
' 
' unicode Macro 
' 

' 
    ChDir "C:\Users\Administrateur\Desktop" 
    ActiveWorkbook.SaveAs Filename:= _ 
        "C:\Users\Administrateur\Desktop	est.txt", FileFormat:=xlUnicodeText _ 
        , CreateBackup:=False 
End Sub 


sauf que comme on peux le voir : C:\Users\Administrateur\Desktop	est.txt 
mon fichier excel deviens un fichier txt, comment faire pour exporter ce fichier sans changer la "structure de mon fichier ?" 
Merci d'avance :-) 

Configuration: VGN-cs21S, windows 7 professionnel 64bits  
  
Google is your friend!

g · Answer

Bonjour,

Sub excel() 
    ChDir "C:\Users\Administrateur\Desktop" 
    ActiveWorkbook.SaveAs Filename:= _ 
        "C:\Users\Administrateur\Desktop	est.xls" 
End Sub 
Cordialement.

f894009 · Answer

Bonjour,

Sub unicode()
'
' unicode Macro
  Application.DisplayAlerts = False
  'Copie feuille dans un autre classeur
  Set feuille = ActiveWorkbook.ActiveSheet
  feuille.Copy

  ChDir "C:\Users\Administrateur\Desktop"
  'Sauvegarde classeur creer en TXT
  ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\Administrateur\Desktop	est.txt", FileFormat:=xlUnicodeText _
        , CreateBackup:=False
  'Fermeture du Classeur TXT
  Workbooks(ActiveWorkbook.Name).Close
End Sub


Bonnes fetes de fin d'annee

yacleouf · Answer

Merci pour vos réponses !
je test sa !

yacleouf · Answer

@g, @f894009
aucune de vos deux macro n'effectue le résultats attendu...

Merci quand même !

f894009 · Answer

Bonjour,

A defaut, dites au moins ce que cela fait!!!!!!! Parce que si cela marche chez moi, pourquoi pas chez vous.

yacleouf · Answer

Enfaite c'est bon, je n'avais pas effacer mon ancien code qui effectué une sauvegarde aussi !

par contre j'ai un autre soucis maintenant, j'aimerais garder un certain "dynamisme" pour ma sauvegarde, à savoir j'aimerais que mon fichier txt s'enregistre au même niveau que mon classeur.
j'utilise donc ce bout de code pathFic = ThisWorkbook.Path & "\Test.txt"

mais au moment ou le code arrive ici 

  ChDir "" & pathFic


sa plante en disant débogage requis, 

vous aurez une piste, par rapport à ce problème ?

f894009 · Answer

Re,

Pourquoi changer le repertoire par un ChDir???

  pathFic = ThisWorkbook.Path & "\Test.txt"

  'Sauvegarde classeur creer en TXT
  ActiveWorkbook.SaveAs Filename:=pathFic, FileFormat:=xlUnicodeText _
        , CreateBackup:=False

Bonne suite