1) Sauvegarder la feuille 1 d'un fichier excel dans un autre fichier
g:Rapport BA.xls
2) D=E9sactiver les macros qui se trouvent dans ce nouveau fichier.
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
isabelle
bonjour MP,
Sheets("Feuil1").Copy Before:=Workbooks("Rapport BA.xls").Sheets(1) With ActiveWorkbook.VBProject 'cette partie du code est de Laurent Longre 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 'LL End With
isabelle
Bonjour,
Je veux
Before_Close
1) Sauvegarder la feuille 1 d'un fichier excel dans un autre fichier g:Rapport BA.xls 2) Désactiver les macros qui se trouvent dans ce nouveau fichier.
Merci MP
bonjour MP,
Sheets("Feuil1").Copy Before:=Workbooks("Rapport BA.xls").Sheets(1)
With ActiveWorkbook.VBProject
'cette partie du code est de Laurent Longre
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 'LL
End With
isabelle
Bonjour,
Je veux
Before_Close
1) Sauvegarder la feuille 1 d'un fichier excel dans un autre fichier
g:Rapport BA.xls
2) Désactiver les macros qui se trouvent dans ce nouveau fichier.
Sheets("Feuil1").Copy Before:=Workbooks("Rapport BA.xls").Sheets(1) With ActiveWorkbook.VBProject 'cette partie du code est de Laurent Longre 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 'LL End With
isabelle
Bonjour,
Je veux
Before_Close
1) Sauvegarder la feuille 1 d'un fichier excel dans un autre fichier g:Rapport BA.xls 2) Désactiver les macros qui se trouvent dans ce nouveau fichier.