Macro VBA : Problème avec SaveAs Worksheet en .txt

Version imprimable

Bonjour,

Je lutte depuis quelques heures sur un malheureux problème avec une macro VBA :

* je souhaite enregistrer une feuille de mon classeur actif au format texte sans fermer mon classeur actif (et en fermant le fichier texte créé) *
(ça paraît simple là !)

mais la seule méthode que j'ai trouvée pour le faire en gardant mon classeur ouvert et pour que cela soit transparent quand on lance la macro (genre en tâche de fond) c'est :
- ajouter un nouveau classeur
- y coller ma feuille
- enregistrer sous
- fermer le classeur actif (qui est le fichier texte créé)

Jusque là tout va bien sauf que je voudrais aussi que la macro ferme le classeur ajouté (qui contient la copie de ma feuille), sauf qu'il est automatiquement en lecture seule et qu'une fois mon .txt fermé il n'est pas le classeur actif : je n'ai donc aucun moyen d'y accéder avec une méthode "close".

Pour plus de clarté voici ma macro :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Public Sub Test() Dim file_name As String Set Data = Worksheets("Data") file_name = "Data.dat" THRISPData.Copy Workbooks.Add.Activate ActiveSheet.Paste ActiveWorkbook.SaveAs Filename:=file_name, FileFormat:=xlText, CreateBackup:=False ActiveWorkbook.Close SaveChanges:=True ActiveWorkbook.Close SaveChanges:=False End Sub
Mon problème c'est qu'avec ce code c'est mon classeur principal qui se ferme (avec la deuxième instruction "close") et non pas le classeur ajouté !

Pouvez vous m'aider à fermer le classeur ajouté ?
Ou peut être avez vous une solution miracle pour "enregistrer sous" une feuille au format texte sans passer par tout ce micmac (et sans fermer le classeur de travail) !!!

Merci beaucoup par avance ...

Tity

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
Dim FlData As Worksheet, Chemin As String, NomFich As String
 
Application.ScreenUpdating = False
 
Set FlData = Sheets("Data")
Chemin = "C:\Temp\"
NomFich = "Data.dat"
 
FlData.Copy
ActiveWorkbook.SaveAs Filename:=Chemin & NomFich, FileFormat:=xlText, CreateBackup:=False
With Workbooks(NomFich)
    .Saved = True
    .Close
End With
 
Application.ScreenUpdating = True
 
End Sub

Chemin à adapter, si tu veux sauvegarder le fichier "Data.dat" dans le même répertoire que le classeur excel, tu indiques le chemin comme ceci :

Code:

Chemin = ThisWorkbook.Path

Bonjour tity333,

Ce code devrait faire ce que tu veux:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Sub Test()
 
    Dim file_name As String
    Dim Data As Worksheet
    Dim ChemRepNvWkb As String
    Dim NvWkb As Workbook
 
    '************************
    'Définition des variables
    '************************
    'Chemin du répertoire où le nouveau classeur sera enregistré
    ChemRepNvWkb = "C:\"
    'Nom du classeur qui sera créé
    file_name = "Data.dat"
    'Attribution de la feuille à copier à une variable
    Set Data = Worksheets("Data")
 
    '**********
    'Traitement
    '**********
    'Copie et création du nouveau classeur avec la feuille Data
    Data.Copy
    'Attribution du nouveau classeur (donc actif) à une variable (pour gérer notre classeur facilement)
    Set NvWkb = ActiveWorkbook
    'Sauvegarde du nouveau classeur avec une boîte de dialogue
    NvWkb.SaveAs Filename:=ChemRepNvWkb & file_name, FileFormat:=xlText, CreateBackup:=False
    'Fermeture du nouveau classeur
    NvWkb.Close SaveChanges:=False
End Sub

Argh trop tard, tu es trop rapide Fring :ccool:

05/08/2010, 16h16
tity333

MERCI !

Merci beaucoup à tous les deux !
Ça fonctionne super bien ...
Problème résolu donc, je peux m'atteler à la suite :)

Tity