dans quel format puis je exporter ? doc peut être ?
Bonjour,
- comment garder la mise en page des données sur le fichier txt, les dessins des bordures, etc....?
Impossible. Par définition, un fichier texte n'est que du texte et de s séparateurs.
- comment récupérer le nom de la feuille pour le donner au fichier txt ?
lenom = activesheet.name Open lenom for output as 1 etc.
Philippe
Bonjour :
1/ j'utilise l'enregistreur de macro pour effectuer une sauvegarge en txt et j'obtiens :
ActiveWorkbook.SaveAs Filename:= _ "C:Documents and SettingsMaisonBureauClasseur2.txt", FileFormat:= _ xlUnicodeText, CreateBackup:úlse
...et là tu vas me dire que le nom n'est pas toujours Classeur2 et que le chemin n'est le même...
2/ Comment récupérer le nom d'enregistrement suivant le nom initial :
toto= ActiveWorkbook.FullName ' (tu trouveras : "C:Documents and SettingsMaisonBureauClasseur2.txls") Il n'y a que les trois dernières lettres à changer. Ainsi ta macro est :
Sub test()
Dim toto As String toto = ActiveWorkbook.FullName toto = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 3) & "txt" ActiveWorkbook.SaveAs Filename:= _ toto, FileFormat:= _ xlUnicodeText, CreateBackup:úlse
End Sub
Bonjour,
- comment garder la mise en page des données sur le fichier txt, les dessins des bordures, etc....?
Impossible. Par définition, un fichier texte n'est que du texte et des séparateurs.
- comment récupérer le nom de la feuille pour le donner au fichier txt ?
lenom = activesheet.name Open lenom for output as 1 etc.
Bonjour :
1/ j'utilise l'enregistreur de macro pour effectuer une sauvegarge en txt et
j'obtiens :
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsMaisonBureauClasseur2.txt",
FileFormat:= _
xlUnicodeText, CreateBackup:úlse
...et là tu vas me dire que le nom n'est pas toujours Classeur2 et que le
chemin n'est le même...
2/ Comment récupérer le nom d'enregistrement suivant le nom initial :
toto= ActiveWorkbook.FullName
' (tu trouveras : "C:Documents and SettingsMaisonBureauClasseur2.txls")
Il n'y a que les trois dernières lettres à changer. Ainsi ta macro est :
Sub test()
Dim toto As String
toto = ActiveWorkbook.FullName
toto = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 3) & "txt"
ActiveWorkbook.SaveAs Filename:= _
toto, FileFormat:= _
xlUnicodeText, CreateBackup:úlse
End Sub
Bonjour,
- comment garder la mise en page des données sur le fichier txt, les
dessins des bordures, etc....?
Impossible. Par définition, un fichier texte n'est que du texte et des
séparateurs.
- comment récupérer le nom de la feuille pour le donner au fichier txt ?
lenom = activesheet.name
Open lenom for output as 1
etc.
1/ j'utilise l'enregistreur de macro pour effectuer une sauvegarge en txt et j'obtiens :
ActiveWorkbook.SaveAs Filename:= _ "C:Documents and SettingsMaisonBureauClasseur2.txt", FileFormat:= _ xlUnicodeText, CreateBackup:úlse
...et là tu vas me dire que le nom n'est pas toujours Classeur2 et que le chemin n'est le même...
2/ Comment récupérer le nom d'enregistrement suivant le nom initial :
toto= ActiveWorkbook.FullName ' (tu trouveras : "C:Documents and SettingsMaisonBureauClasseur2.txls") Il n'y a que les trois dernières lettres à changer. Ainsi ta macro est :
Sub test()
Dim toto As String toto = ActiveWorkbook.FullName toto = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 3) & "txt" ActiveWorkbook.SaveAs Filename:= _ toto, FileFormat:= _ xlUnicodeText, CreateBackup:úlse
End Sub
Bonjour,
- comment garder la mise en page des données sur le fichier txt, les dessins des bordures, etc....?
Impossible. Par définition, un fichier texte n'est que du texte et des séparateurs.
- comment récupérer le nom de la feuille pour le donner au fichier txt ?
lenom = activesheet.name Open lenom for output as 1 etc.
Alain
Bonjour,
j'ai parler d'un feuille et pas d'un classeur !
de plus cette feuille est crée automatiquement par une routine VBA, son t nom dépend de plusieurs donnée reparties dans la feuille. De plus je ne peut pas exporter cette feuille en format txt sans perdre la mise en page donc je vais chercher plutot vers un format .doc.
merci quant même
Bonjour :
1/ j'utilise l'enregistreur de macro pour effectuer une sauvegarge en t xt et j'obtiens :
ActiveWorkbook.SaveAs Filename:= _ "C:Documents and SettingsMaisonBureauClasseur2.txt", FileFormat:= _ xlUnicodeText, CreateBackup:úlse
...et là tu vas me dire que le nom n'est pas toujours Classeur2 et q ue le chemin n'est le même...
toto= ActiveWorkbook.FullName ' (tu trouveras : "C:Documents and SettingsMaisonBureauClasseur2.tx ls") Il n'y a que les trois dernières lettres à changer. Ainsi ta ma cro est :
Sub test()
Dim toto As String toto = ActiveWorkbook.FullName toto = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 3 ) & "txt" ActiveWorkbook.SaveAs Filename:= _ toto, FileFormat:= _ xlUnicodeText, CreateBackup:úlse
lenom = activesheet.name Open lenom for output as 1 etc.
Bonjour,
j'ai parler d'un feuille et pas d'un classeur !
de plus cette feuille est crée automatiquement par une routine VBA, son t
nom dépend de plusieurs donnée reparties dans la feuille. De plus je ne
peut pas exporter cette feuille en format txt sans perdre la mise en
page donc je vais chercher plutot vers un format .doc.
merci quant même
Bonjour :
1/ j'utilise l'enregistreur de macro pour effectuer une sauvegarge en t xt et
j'obtiens :
ActiveWorkbook.SaveAs Filename:= _
"C:Documents and SettingsMaisonBureauClasseur2.txt",
FileFormat:= _
xlUnicodeText, CreateBackup:=False
...et là tu vas me dire que le nom n'est pas toujours Classeur2 et q ue le
chemin n'est le même...
toto= ActiveWorkbook.FullName
' (tu trouveras : "C:Documents and SettingsMaisonBureauClasseur2.tx ls")
Il n'y a que les trois dernières lettres à changer. Ainsi ta ma cro est :
Sub test()
Dim toto As String
toto = ActiveWorkbook.FullName
toto = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 3 ) & "txt"
ActiveWorkbook.SaveAs Filename:= _
toto, FileFormat:= _
xlUnicodeText, CreateBackup:=False
de plus cette feuille est crée automatiquement par une routine VBA, son t nom dépend de plusieurs donnée reparties dans la feuille. De plus je ne peut pas exporter cette feuille en format txt sans perdre la mise en page donc je vais chercher plutot vers un format .doc.
merci quant même
Bonjour :
1/ j'utilise l'enregistreur de macro pour effectuer une sauvegarge en t xt et j'obtiens :
ActiveWorkbook.SaveAs Filename:= _ "C:Documents and SettingsMaisonBureauClasseur2.txt", FileFormat:= _ xlUnicodeText, CreateBackup:úlse
...et là tu vas me dire que le nom n'est pas toujours Classeur2 et q ue le chemin n'est le même...
toto= ActiveWorkbook.FullName ' (tu trouveras : "C:Documents and SettingsMaisonBureauClasseur2.tx ls") Il n'y a que les trois dernières lettres à changer. Ainsi ta ma cro est :
Sub test()
Dim toto As String toto = ActiveWorkbook.FullName toto = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - 3 ) & "txt" ActiveWorkbook.SaveAs Filename:= _ toto, FileFormat:= _ xlUnicodeText, CreateBackup:úlse
