Bonjour à tous !
voici mon petit problème:
Mon classeur 1 possède des macros et des boutons d'actions sur les feuilles. (Un des boutons permet notamment une sauvegarde les feuilles sur un autre classeur) Je parvient donc à sauvegarder les feuilles sans les macros mais pas sans les boutons ! je pensais sélectionner toutes les colonnes à la place de sélectionner la feuille entière, mais je n'y parviens pas, pouvez-vous m'aider ?
En bref : recopier SEULEMENT les données
Private Sub CommandButton3_Click()
Dim cl1 As Workbook
Dim cl2 As Workbook
Dim g
Dim h As Variant
Dim i As Variant
On Error GoTo Erreur
Application.ScreenUpdating = False
Set cl1= ThisWorkbook
Set cl2 = Workbooks.Add(xlWBATWorksheet)
cl2.Sheets(1).Name = "rien"
For g = 1 To cl1.Sheets.Count
cl1.Sheets(g).Copy after:=cl2.Sheets(cl2.Sheets.Count)
Next g
Application.DisplayAlerts = False
cl2.Sheets(1).Delete
h = "Nommer votre fichier"
i = Application.GetSaveAsFilename( _
InitialFileName:=h, _
fileFilter:="Classeur Microsoft Excel (*.xls), *.xls")
If i <> False Then cl2.SaveAs Filename:=i
cl1.Saved = True
cl1.Close
Erreur:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Merci d'avance à vous !
voici mon petit problème:
Mon classeur 1 possède des macros et des boutons d'actions sur les feuilles. (Un des boutons permet notamment une sauvegarde les feuilles sur un autre classeur) Je parvient donc à sauvegarder les feuilles sans les macros mais pas sans les boutons ! je pensais sélectionner toutes les colonnes à la place de sélectionner la feuille entière, mais je n'y parviens pas, pouvez-vous m'aider ?
En bref : recopier SEULEMENT les données
Private Sub CommandButton3_Click()
Dim cl1 As Workbook
Dim cl2 As Workbook
Dim g
Dim h As Variant
Dim i As Variant
On Error GoTo Erreur
Application.ScreenUpdating = False
Set cl1= ThisWorkbook
Set cl2 = Workbooks.Add(xlWBATWorksheet)
cl2.Sheets(1).Name = "rien"
For g = 1 To cl1.Sheets.Count
cl1.Sheets(g).Copy after:=cl2.Sheets(cl2.Sheets.Count)
Next g
Application.DisplayAlerts = False
cl2.Sheets(1).Delete
h = "Nommer votre fichier"
i = Application.GetSaveAsFilename( _
InitialFileName:=h, _
fileFilter:="Classeur Microsoft Excel (*.xls), *.xls")
If i <> False Then cl2.SaveAs Filename:=i
cl1.Saved = True
cl1.Close
Erreur:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Merci d'avance à vous !