Sujet Précédent Sujet Suivant

[VBA] comment enregistrer sans modifier son fichier

Résolu/Fermé
yacleouf Messages postés 438 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 8 juin 2015 - Modifié par yacleouf le 29/12/2012 à 00:02
yacleouf Messages postés 438 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 8 juin 2015 - 2 janv. 2013 à 11:25
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 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 572
29 déc. 2012 à 09:01
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
29 déc. 2012 à 09:48
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 438 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 8 juin 2015 39
29 déc. 2012 à 13:48
Merci pour vos réponses !
je test sa !

0
Réponse 4 / 7
yacleouf Messages postés 438 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 8 juin 2015 39
2 janv. 2013 à 09:26
@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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
2 janv. 2013 à 09:36
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 438 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 8 juin 2015 39
2 janv. 2013 à 09:45
Le chemin de fichier de mon excel change.
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
2 janv. 2013 à 10:16
Re,

Par quel curieux hasard???? montrez le code.
0
yacleouf Messages postés 438 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 8 juin 2015 39
2 janv. 2013 à 10:43
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 2/01/2013 à 11:00
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 438 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 8 juin 2015 39
2 janv. 2013 à 10:59
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
2 janv. 2013 à 11:06
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 438 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 8 juin 2015 39
2 janv. 2013 à 11:25
Merci !
0