D
Darkv
Guest
Bonjour le forum
j'ai un petit soucis avec la macro suivante:
Sub InsertCopyFeuille()
'Déclaration des variables
Dim Msg As String, Title As String, Default As String
Dim MyValue As Variant
Msg = "Quelle dénomination souhaitez vous donner à la nouvelle feuille ?"
Title = "DENOMINATION DE LA FEUILLE"
Default = ""
MyValue = InputBox("Quelle dénomination souhaitez vous donner à la nouvelle feuille ?", "APPELLATION DE LA FEUILLE", "")
If MyValue = "" Then Exit Sub
Sheets("Modele").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = MyValue
End Sub
si je l'execute elle me recopie la feuille"modele" avec un nouvo nom moi je souhaite recopier la feuille active car sur celle ci il y a des infos en plus
d'avance je vous remercie tous pour les conseils que vous allez m'apporter
qui me seront d'un grand service
Dark
j'ai un petit soucis avec la macro suivante:
Sub InsertCopyFeuille()
'Déclaration des variables
Dim Msg As String, Title As String, Default As String
Dim MyValue As Variant
Msg = "Quelle dénomination souhaitez vous donner à la nouvelle feuille ?"
Title = "DENOMINATION DE LA FEUILLE"
Default = ""
MyValue = InputBox("Quelle dénomination souhaitez vous donner à la nouvelle feuille ?", "APPELLATION DE LA FEUILLE", "")
If MyValue = "" Then Exit Sub
Sheets("Modele").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = MyValue
End Sub
si je l'execute elle me recopie la feuille"modele" avec un nouvo nom moi je souhaite recopier la feuille active car sur celle ci il y a des infos en plus
d'avance je vous remercie tous pour les conseils que vous allez m'apporter
qui me seront d'un grand service
Dark