[VBA] comment enregistrer sans modifier son fichier
Résolu
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
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!
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!
7 réponses
-
Bonjour,
Sub excel() ChDir "C:\Users\Administrateur\Desktop" ActiveWorkbook.SaveAs Filename:= _ "C:\Users\Administrateur\Desktop\test.xls" End Sub
Cordialement. -
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 -
Merci pour vos réponses !
je test sa !
-
@g, @f894009
aucune de vos deux macro n'effectue le résultats attendu...
Merci quand même !
-
Bonjour,
A defaut, dites au moins ce que cela fait!!!!!!! Parce que si cela marche chez moi, pourquoi pas chez vous.-
-
-
-
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+
-
-
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 codepathFic = ThisWorkbook.Path & "\Test.txt"
mais au moment ou le code arrive iciChDir "" & pathFic
sa plante en disant débogage requis,
vous aurez une piste, par rapport à ce problème ?
-
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
