Enregistrer sous une extension perso

[Lipaika]

Bonjour,

J'ouvre un fichier text d'extension ".rnp" avec excel, je fais un textToColumn et le modifie dans ma macro, ensuite j'aimerais l'enregistrer au format text mais en gardant l'extension ".rnp".

Dans ma macro, je me contente d'un wkb.close True qui permet de sauver le fichier, mais quand je l'ouvre en txt, les espaces sont concernés, donc PB.

Une astuce??

Merci

 

[PascalXLD]

Re : Enregistrer sous une extension perso

Bonjour

je suppose que tu parles de fichier prn

essaies peut-être ainsi

Application.DisplayAlerts = False
WBk.SaveAs Filename:= _
"C:\tonchemin\Classeur1.prn", FileFormat _
:=xlTextPrinter, CreateBackup:=False
WBk.Close False
Application.DisplayAlerts = True

 

[Lipaika]

Re : Enregistrer sous une extension perso

En fait non! Il s'agit bien de .rnp, comme ça aurait pu être .abc
Est-ce que ça change qlqch dans ce cas??

 

[PascalXLD]

Re : Enregistrer sous une extension perso

Re

bah je ne sais pas; essaies avec mon code pour voir

 

[Lipaika]

Re : Enregistrer sous une extension perso

Si j'enregiste avec l'extension .txt, y a 'til un moyen pour renommer le fichier avec une extension inconnue en VB biensûr.

Merci

 

[MJ13]

Re : Enregistrer sous une extension perso

Bonjour,
Tu peux essayé ce code a insérer dans ta macro (le fichier est dans C:\test):


Dim OldName, NewName
ChDrive "C"
CurDir "C:\test"
ChDir "C:\Test"
OldName = "Monfichier.TXT": NewName = "Monfichier.rnp" ' Définit les noms de fichiers.
Name OldName As NewName ' Renomme le fichier.