copier une feuille dans un fichier txt

[djwib]

bonjour à tous,

j'ai un petit blocage, j'aimerai pouvoir copier une feuille exel d'un de mes fichiers pour créer un fichier txt à l'instant T en passant par du code en vba.

Dans mon fichier exel j'ai la feuille "ref" que je veux copier et qu'au finale j'ai un fichier qui sera : 082912.txt (hhmmss.txt).

voici mon code :

Dim Temp As String

Sheets("ref").Select
Sheets("ref").copy

Temp = "C:\"

ActiveWorkbook.SaveAs Filename:=Temp & "GGA" & Format(Now, "hhmmss") & ".txt", _
FileFormat:=xlTextWindows, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False


Mon code bloque et si je change le chemin d’accès il me créait un fichier GGA081212.txt mais avec une centaine de ligne vide qui me pose problème.

si quelqu'un aurai une solution
Merci beaucoup

 

[Hippolite]

Re : copier une feuille dans un fichier txt

Bonjour,
J'ai un doute, je n'ai pas Excel sous la main pour vérifier, change le nom de ta variable Temp qui est peut-être un nom réservé.
A+

 

[djwib]

Re : copier une feuille dans un fichier txt

Merci,

je viens de refaire un essais et tout fonction j'ai du changer le chemin d’accès car sous windows 7 je ne peux pas écrire directement sur mon C:\.

Désolé de ce passage éclaire sur le forum
et merci pour ta réponse.