Sub CommandButton1_Click()
Sheets("Nom de feuille").Copy Before:=Workbooks("Classeur.xlsm").Sheets(x)
End Sub
Cordialement.Sub CommandButton1_Click()
Sheets("Nom de feuille").Copy After:=Workbooks("Classeur.xlsm").Sheets(Sheets.Count)
End Sub
Super merci!
Et y a t'il un code pour la création et l'ouverture d'un nouveau classeur?
Merci
Sub CommandButton1_Click()
Sheets("Nom de feuille").Copy
End Sub
RE :
Tout simplement comme ceci :
Cette macro créera automatiquement un nouveau classeur. Ce classeur s'appellera "Classeur1" et ne comportera que la feuille copiée.Code:Sub CommandButton1_Click() Sheets("Nom de feuille").Copy End Sub
Cordialement.
Private Sub CommandButton1_Click()
Dim SaveBox As FileDialog
Set SaveBox = Application.FileDialog(msoFileDialogSaveAs)
Sheets("Feuil1").Copy
With SaveBox
.Show
.Execute
End With
End Sub
J'ai la possibilité de rajouter la valeur d'une liste déroulante + la date dans le nom du fichier en auto?
Private Sub CommandButton1_Click()
Dim SaveBox As FileDialog
Set SaveBox = Application.FileDialog(msoFileDialogSaveAs)
'Sheets("Feuil1").Copy
With SaveBox
.Title = "Enregistrer sous..."
.AllowMultiSelect = False
.InitialFileName = ComboBox1 & TextBox1 & Date & ComboBox2
.Show
' .Execute
End With
End Sub