Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Effacer des lignes de Private Sub Workbook_Open() avant de sauver

Effacer des lignes de Private Sub Workbook_Open() avant de sauver

1 réponse
Avatar
René Delcourt
Bonjour,
L'excellent code ci-dessous d'OLIV' m'a permis de régler un problème.
Maintenant le prpoblème est inversé. Comment enlever certaines lignes, voire
tout effacer et reécrire.
Merci

Sub EcrireThisWorkBook()
Dim VBAThis As String
VBAThis = " Private Sub Workbook_Open()"
VBAThis = VBAThis & vbCr & "Application.ScreenUpdating = False"
etc...
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
..AddFromString VBAThis
End With
End Sub


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


--
René Delcourt
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
ClémentMarcotte
Bonjour,

Il y a un/des exemple(s) sur cette page:

http://frederic.sigonneau.free.fr/VBE.htm


"René Delcourt" a écrit dans le
message de news:
Bonjour,
L'excellent code ci-dessous d'OLIV' m'a permis de régler un problème.
Maintenant le prpoblème est inversé. Comment enlever certaines lignes,
voire

tout effacer et reécrire.
Merci

Sub EcrireThisWorkBook()
Dim VBAThis As String
VBAThis = " Private Sub Workbook_Open()"
VBAThis = VBAThis & vbCr & "Application.ScreenUpdating = False"
etc...
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
..AddFromString VBAThis
End With
End Sub


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


--
René Delcourt