GoRichie
XLDnaute Nouveau
Salut a tous,
J'ai cree un petit macro qui permet de convertir un fichier excel en fichier txt et de le copier dans le repertoire courant.
Mon macro marche mais mon doc excel converti en txt presente des problemes d'alignement : Les cellules ne sont pas bien alignees sous le nom des colonnes, la faute a des cellules qui contiennent de trop longues chaines de caractere. Je dois avouer que ca donne un resultat assez confus
Voila quelqu'un aurait une idee de comment faire pour bien ranger les colonnes ?
PS : Au detour, j'aimerais bien ajouter des ":" entre les colonnes pour que la separation soit plus visible.
Voila mon code :
Sub KuraraTextor()
Set mySheet = ActiveWorkbook.ActiveSheet
mySheet.Copy
ActiveWorkbook.SaveAs "kurara - wl - 15243", xlText, CreateBackup = False
mySheet.Activate
End Sub
Merci d'avance
J'ai cree un petit macro qui permet de convertir un fichier excel en fichier txt et de le copier dans le repertoire courant.
Mon macro marche mais mon doc excel converti en txt presente des problemes d'alignement : Les cellules ne sont pas bien alignees sous le nom des colonnes, la faute a des cellules qui contiennent de trop longues chaines de caractere. Je dois avouer que ca donne un resultat assez confus
Voila quelqu'un aurait une idee de comment faire pour bien ranger les colonnes ?
PS : Au detour, j'aimerais bien ajouter des ":" entre les colonnes pour que la separation soit plus visible.
Voila mon code :
Sub KuraraTextor()
Set mySheet = ActiveWorkbook.ActiveSheet
mySheet.Copy
ActiveWorkbook.SaveAs "kurara - wl - 15243", xlText, CreateBackup = False
mySheet.Activate
End Sub
Merci d'avance