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 : Sélectionner tout - Visualiser dans une fenêtre à part
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