cedric_hiss
XLDnaute Junior
Bonjour,
j'ai un code vba qui normalement enregistre une feuille excel avec un nouveau nom , ce que je voudrais faire c'est enregistrer que certains colonnes dans une nouvelle feuille avec un nouveau nom mais quand j'execute mon code ca m'affiche une erreur 1004 , voici mon code :
Sub save()
Worksheets("operations").Activate
Dim sName As String
Sheets("operations").Range("N1:Q6000").Copy Destination:=Sheets(Sheets.Count)
On Error Resume Next
Do
sName = InputBox("Enter name for the release")
If sName = "" Then
Application.DisplayAlerts = False
ActiveSheet.Delete
Exit Sub
End If
ActiveSheet.Name = sName
If ActiveSheet.Name = sName Then Exit Do
Beep
Loop
End Sub
Merci d'avance
j'ai un code vba qui normalement enregistre une feuille excel avec un nouveau nom , ce que je voudrais faire c'est enregistrer que certains colonnes dans une nouvelle feuille avec un nouveau nom mais quand j'execute mon code ca m'affiche une erreur 1004 , voici mon code :
Sub save()
Worksheets("operations").Activate
Dim sName As String
Sheets("operations").Range("N1:Q6000").Copy Destination:=Sheets(Sheets.Count)
On Error Resume Next
Do
sName = InputBox("Enter name for the release")
If sName = "" Then
Application.DisplayAlerts = False
ActiveSheet.Delete
Exit Sub
End If
ActiveSheet.Name = sName
If ActiveSheet.Name = sName Then Exit Do
Beep
Loop
End Sub
Merci d'avance