fenec
XLDnaute Impliqué
Bonjour le forum
j'utilise un code pour copier un onglet en fin de classeur qui fonctionne très bien mais qui ne supprime pas le code dans la feuille.
En cherchant sur le forum j'ai trouvé un code de notre ami MyDearFriend ici
https://www.excel-downloads.com/threads/supprimer-code-vba-lors-dune-copie-de-feuille.81364/
mais je ne parviens pas à l'intégrer dans le mien d'où ma venue
D'avance merci à ceux qui pourront m'aider
Cordialement,
Philippe
j'utilise un code pour copier un onglet en fin de classeur qui fonctionne très bien mais qui ne supprime pas le code dans la feuille.
Code:
Sub copier_onglet()
d = Sheets(1).Cells(5, 3) 'Sauvegarde le calendrier
Sheets("Calendrier").Copy after:=Sheets(Sheets.Count)
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
With ActiveSheet
.Name = "Congés " & d
Sheets("Etat de Congés").Columns("B:M").Copy
Columns("AM:AX").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
End Sub
En cherchant sur le forum j'ai trouvé un code de notre ami MyDearFriend ici
https://www.excel-downloads.com/threads/supprimer-code-vba-lors-dune-copie-de-feuille.81364/
Code:
Sub CopieFeuilleSansVBA()
'myDearFriend! - septembre 2007
Sheets("Feuil1").Copy 'à adapter pour la feuille souhaitée
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub
'La feuille "Feuil1" sera copiée dans un nouveau classeur sans son code VBA.
mais je ne parviens pas à l'intégrer dans le mien d'où ma venue
D'avance merci à ceux qui pourront m'aider
Cordialement,
Philippe