Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anonymousA
Bonjour,
extrait de la bibliothèque de Frédéric Sigonneau
Sub CopieFeuilleSansMacros() Dim NomEtChemin$, NomCodeFueille$ NomEtChemin = "d:test2222.xls" With ThisWorkbook.Sheets("essai") NomCodeFeuille = .CodeName .Copy 'ou .Move pour déplacer End With With ActiveWorkbook .SaveAs NomEtChemin With .VBProject.VBComponents(NomCodeFeuille).CodeModule .DeleteLines 1, .CountOfLines End With .Save End With End Sub
A+
Bonjour,
Est-il possible, en VBA, de copier une feuille sans ses macros ou de les enlever après la copie ?
Merci pour votre aide.
Bonjour,
extrait de la bibliothèque de Frédéric Sigonneau
Sub CopieFeuilleSansMacros()
Dim NomEtChemin$, NomCodeFueille$
NomEtChemin = "d:test2222.xls"
With ThisWorkbook.Sheets("essai")
NomCodeFeuille = .CodeName
.Copy 'ou .Move pour déplacer
End With
With ActiveWorkbook
.SaveAs NomEtChemin
With .VBProject.VBComponents(NomCodeFeuille).CodeModule
.DeleteLines 1, .CountOfLines
End With
.Save
End With
End Sub
A+
Bonjour,
Est-il possible, en VBA, de copier une feuille sans ses macros ou de les
enlever après la copie ?
Sub CopieFeuilleSansMacros() Dim NomEtChemin$, NomCodeFueille$ NomEtChemin = "d:test2222.xls" With ThisWorkbook.Sheets("essai") NomCodeFeuille = .CodeName .Copy 'ou .Move pour déplacer End With With ActiveWorkbook .SaveAs NomEtChemin With .VBProject.VBComponents(NomCodeFeuille).CodeModule .DeleteLines 1, .CountOfLines End With .Save End With End Sub
A+
Bonjour,
Est-il possible, en VBA, de copier une feuille sans ses macros ou de les enlever après la copie ?
