Bonjour,
Pour le fun
Fichier enregistrer sous => choisir Classeur Excel version 4.0.
Ca n'enregistre qu'une seule feuille.
Inconvénient, tu risques de perdre des fonctionnalités de ta version actuelle.
Liste de validation par exemple.
C'est la possibilité d'enregistrer ton fichier dans une version antériéure.
Données/Validation est une option d'Excel qui n'existait pas dans Excel 4. Donc quand on enregistre dans ce format (ancien) on perd la liste ainsi créé. Ce n'est qu'un exemple. On perdrait également les Mises en formes conditionnelles (Format/Mise en forme Conditionnelle), les fonctionnalités lien hypertexte etc ...
Sub Test()
Sheets("Feuil3").Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Test.xls"
Workbooks("Test.xls").Close True
End Sub
Erreur d execution '28'
Espace pile insuffisant
Option Explicit
Sub Tst()
Dim i As Long, Ar() As String, Cpt As Long
Cpt = 0
For i = 1 To ThisWorkbook.Sheets.Count
If Left$(Sheets(i).Name, 2) = "RF" Or Left$(Sheets(i).Name, 2) = "RC" Then
ReDim Preserve Ar(Cpt)
Ar(Cpt) = Sheets(i).Name
Cpt = Cpt + 1
End If
Next i
If Cpt = 0 Then Exit Sub
Application.ScreenUpdating = False
Sheets(Ar).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "Test.xls", FileFormat:=xlNormal
ActiveWindow.Close
With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With
Sheets("RC1").Select
End SubSub Test()
Dim Ar() As String
Cpt = 0
For Each X In ThisWorkbook.Sheets
If Left$(X.Name, 2) = "RF" Or Left$(X.Name, 2) = "RC" Then
ReDim Preserve Ar(Cpt)
Ar(Cpt) = X.Name
Cpt = Cpt + 1
End If
Next
If Cpt = 0 Then Exit Sub
Application.ScreenUpdating = False
Sheets(Ar).Copy
ActiveWindow.Close SaveChanges:=True, Filename:=ThisWorkbook.Path & "\" & "Test.xls"
Application.ScreenUpdating = True
End SubSub Test()
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Test.xls"
End Sub
