Suppression code VBA

Bonjour,

J'ai ce code pour supprimé toutes les lignes de code lorsque j'exporte mes feuilles, actuellement il m'exporte bien les feuilles mais ne supprime que les codes de la feuille "manufacturing", quel est le code qui manque pour qu'il me le fasse sur toutes les feuilles ?

Private Sub CommandButton1_Click()

Sheets(Array("Manufacturing", "Distribution", "Installation", "Use", "End of life")).Copy

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="Cycle_de_vie.xls", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
            .DeleteLines 1, .CountOfLines

End With

End Sub

Bonjour,

comme tu es en XL2010, essaie avec .xlsx


sinon tu peux aussi utiliser cet utilitaire

5dupliquer.xlsm (23.03 Ko)

J'ai essayé avec .xlsx cependant mon fichier doit obligatoirement être en xls


Private Sub CommandButton1_Click()
Dim VBC As Object
Sheets(Array("Manufacturing", "Distribution", "Installation", "Use", "End of life")).Copy

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="Cycle_de_vie.xlsx", FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True

With ActiveWorkbook.VBProject
    For Each VBC In .VBComponents
        If VBC.Type = 100 Then
            With VBC.CodeModule
                .DeleteLines 1, .CountOfLines
                .CodePane.Window.Close
            End With
        Else
            .VBComponents.Remove VBC
        End If
    Next VBC
End With

End Sub

C'est bon j'ai trouvé pour ceux que sa intéresse ^^

Bonjour,

Il y a contradiction (dans ton premier code entre ton format de fichier et l'extension xls...

Si tu ne boucles pas sur toutes les feuilles, ton code ne s'appliquera qu'à la première !

Cordialement.

Salut Steelson.

Rechercher des sujets similaires à "suppression code vba"