[Excel] perte de l'extension de mon fichier Excel

Version imprimable

Bonjour,
Je veux enregistrer sous Excel en VBA en mode texte, j'ai donc collé mes
données dans une feuille que j'enregistre.
Cependant mon classeur Excel perd son extension et ses caractéristiques de
classeur. Que puis je faire pour remédier à cela ? code ci-dessous
Merci de votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Enregistrer_Click()
    Worksheets("Application").Select
    Range("F3:F30").Select
    Selection.Copy
    Sheets.Add
    ActiveSheet.Paste
    NomActiveSheet = ActiveSheet.Name
    Set FeuilleASupprimer = Worksheets(NomActiveSheet)
    Application.CutCopyMode = False
 
    NomDuFichier = InputBox("Donnez le nom du fichier de Sauvegarde")
    ActiveSheet.SaveAs Filename:= _
        "M:\Quartz\Service Client\RDG LYON\GUILLAUME\" & NomDuFichier, FileFormat:= _
        xlTextPrinter, CreateBackup:=False
    Application.DisplayAlerts = False
    FeuilleASauvegarder.Delete
    Application.DisplayAlerts = True
End Sub

voila le code modifié... tu dis si quelque chose t'échappe..

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Enregistrer_Click()
 
Dim wk As Workbook
 Set wk = Workbooks.Add 'creation d'in nouveau classeur
 ThisWorkbook.Worksheets("Application").Range("F3:F30").Copy   wk.Sheets(1).Range("A1")
 NomDuFichier = InputBox("Donnez le nom du fichier de Sauvegarde")
 wk.SaveAs Filename:= _
      "M:\Quartz\Service Client\RDG LYON\GUILLAUME\" & NomDuFichier, FileFormat:= _
        xlTextPrinter, CreateBackup:=False
 wk.Close False 'sortie sans sauver

25/07/2006, 18h12
comme de bien entendu

Merci, super ca marche.
J'étais obligé de repasser au niveau classeur ? (du fait qu'on passe par la sauvegarde ...peut être)
Je ne savais pas que l'on pouvait faire des copies en passant les cellules cibles à la suite.
J'ai un bouquin de VBA qui craint et qui m'a peu aidé sur le coup.
Est ce que tu en connais un bien ?