[VBA] comment enregistrer sans modifier son fichier

Résolu
yacleouf Messages postés 461 Statut Membre -  
yacleouf Messages postés 461 Statut Membre -
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\test.txt", FileFormat:=xlUnicodeText _ 
        , CreateBackup:=False 
End Sub


sauf que comme on peux le voir : C:\Users\Administrateur\Desktop\test.txt
mon fichier excel deviens un fichier txt, comment faire pour exporter ce fichier sans changer la "structure de mon fichier ?"
Merci d'avance :-)



Google is your friend!
A voir également:

7 réponses

Réponse 1 / 7
g Messages postés 1285 Statut Membre 577
 
Bonjour, 

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

Cordialement.
0
Réponse 2 / 7
f894009 Messages postés 17413 Statut Membre 1 715
 
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\test.txt", FileFormat:=xlUnicodeText _
        , CreateBackup:=False
  'Fermeture du Classeur TXT
  Workbooks(ActiveWorkbook.Name).Close
End Sub


Bonnes fetes de fin d'annee
0
Réponse 3 / 7
yacleouf Messages postés 461 Statut Membre 39
 
Merci pour vos réponses !
je test sa !

0
Réponse 4 / 7
yacleouf Messages postés 461 Statut Membre 39
 
@g, @f894009
aucune de vos deux macro n'effectue le résultats attendu...

Merci quand même !
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
f894009 Messages postés 17413 Statut Membre 1 715
 
Bonjour,

A defaut, dites au moins ce que cela fait!!!!!!! Parce que si cela marche chez moi, pourquoi pas chez vous.
0
yacleouf Messages postés 461 Statut Membre 39
 
Le chemin de fichier de mon excel change.
0
f894009 Messages postés 17413 Statut Membre 1 715
 
Re,

Par quel curieux hasard???? montrez le code.
0
yacleouf Messages postés 461 Statut Membre 39
 
c'est votre code que j'utilise !
un classeur s'ouvre et se referme, et a ce moment la je perd le chemin de fichier de mon classeur principal.
0
f894009 Messages postés 17413 Statut Membre 1 715
 
Re,

un classeur s'ouvre et se referme c'est le fichier .txt que vous avez demande.

a ce moment la je perd le chemin de fichier de mon classeur principal. il manque une info, votre fichier principal se ferme comment??? VBA ou manuellement??

Dans votre code il y a ChDir "C:\Users\Administrateur\Desktop" changement de repertoire!!!!!

A+
0
Réponse 6 / 7
yacleouf Messages postés 461 Statut Membre 39
 
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 ?
0
Réponse 7 / 7
f894009 Messages postés 17413 Statut Membre 1 715
 
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
0
yacleouf Messages postés 461 Statut Membre 39
 
Merci !
0