zeltron24
XLDnaute Impliqué
Bonsoir le Forum,
Voila, je désirerai dupliquer et renommer une feuille avec le nom contenu dans la cellule A8 de la feuille à copier.
J'ai cherché un peu partout mais sans succès.
J'ai ça mais ca ne fonctionne pas
Merci de votre aide.
PS: A8 est une date donc je pense que l'erreur vient de là. Comment inscrire dans l'inputBox au format jj-mm-aa
Voila, je désirerai dupliquer et renommer une feuille avec le nom contenu dans la cellule A8 de la feuille à copier.
J'ai cherché un peu partout mais sans succès.
Code:
Sub Dupliquer()
Dim Ongl As String
Application.ScreenUpdating = False ' Ecran figé
' Nomme la feuille
' Ongl = [A8]
Ongl = InputBox("Veuillez nommer la feuille : ", "Nommer une feuille.", [A8])
If Ongl = "" Then
Exit Sub
Else
' Ajouter une feuille et la renommer
Sheets("Modele").Select
Sheets("Modele").Copy Before:=Sheets(1)
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Ongl
Range("A1").Select
Application.ScreenUpdating = True ' Ecran libre
End If
End Sub
J'ai ça mais ca ne fonctionne pas
Merci de votre aide.
PS: A8 est une date donc je pense que l'erreur vient de là. Comment inscrire dans l'inputBox au format jj-mm-aa
Dernière édition: