Dans un classeur j'ai des bouton macro pour certaines tâches, dont un pour
sauvegarder celui-ci en fonction de la date.
Exemple le classeur ce nomme Véhicule.xls et après sauvegarde il s'appel
Véhicule de janvier.xls
Ce que je voudrais c'est que lorsque la copie s'effectue la macro supprime
en même temps le code du classeur copié de façon a ré ouvrir la copie sans
avoir les message de début qui se trouve dans la matrice original, est-ce
possible?
Merci de vos suggestions, je peux éventuellement joindre le 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
michdenis
Bonjour,
Essaie ceci :
'------------------------------ Sub Test() 'après avoir créé ton classeur, tu 'supprime le code Supprime_Tout_Code Workbooks("SonNom.xls") End Sub '------------------------------
'--------------------------------------- Sub Supprime_Tout_Code(Wk As Workbook)
Dim VBComp As Object Dim VBComps As Object
Set VBComps = Wk.VBProject.VBComponents
For Each VBComp In VBComps Select Case VBComp.Type Case 100 With VBComp.CodeModule .DeleteLines 1, .CountOfLines End With Case Else VBComps.Remove VBComp End Select Next VBComp
End Sub '---------------------------------------
"jean yves" a écrit dans le message de groupe de discussion : Bonjour à tous,
Dans un classeur j'ai des bouton macro pour certaines tâches, dont un pour sauvegarder celui-ci en fonction de la date. Exemple le classeur ce nomme Véhicule.xls et après sauvegarde il s'appel Véhicule de janvier.xls
Ce que je voudrais c'est que lorsque la copie s'effectue la macro supprime en même temps le code du classeur copié de façon a ré ouvrir la copie sans avoir les message de début qui se trouve dans la matrice original, est-ce possible?
Merci de vos suggestions, je peux éventuellement joindre le fichier.
Bonjour,
Essaie ceci :
'------------------------------
Sub Test()
'après avoir créé ton classeur, tu
'supprime le code
Supprime_Tout_Code Workbooks("SonNom.xls")
End Sub
'------------------------------
'---------------------------------------
Sub Supprime_Tout_Code(Wk As Workbook)
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = Wk.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case 100
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Case Else
VBComps.Remove VBComp
End Select
Next VBComp
End Sub
'---------------------------------------
"jean yves" <jeanyves.sternenberg@free.fr> a écrit dans le message de groupe de discussion
: 14680CA7-C6DB-4D9F-8C21-B51D86AAAD9D@microsoft.com...
Bonjour à tous,
Dans un classeur j'ai des bouton macro pour certaines tâches, dont un pour
sauvegarder celui-ci en fonction de la date.
Exemple le classeur ce nomme Véhicule.xls et après sauvegarde il s'appel
Véhicule de janvier.xls
Ce que je voudrais c'est que lorsque la copie s'effectue la macro supprime
en même temps le code du classeur copié de façon a ré ouvrir la copie sans
avoir les message de début qui se trouve dans la matrice original, est-ce
possible?
Merci de vos suggestions, je peux éventuellement joindre le fichier.
'------------------------------ Sub Test() 'après avoir créé ton classeur, tu 'supprime le code Supprime_Tout_Code Workbooks("SonNom.xls") End Sub '------------------------------
'--------------------------------------- Sub Supprime_Tout_Code(Wk As Workbook)
Dim VBComp As Object Dim VBComps As Object
Set VBComps = Wk.VBProject.VBComponents
For Each VBComp In VBComps Select Case VBComp.Type Case 100 With VBComp.CodeModule .DeleteLines 1, .CountOfLines End With Case Else VBComps.Remove VBComp End Select Next VBComp
End Sub '---------------------------------------
"jean yves" a écrit dans le message de groupe de discussion : Bonjour à tous,
Dans un classeur j'ai des bouton macro pour certaines tâches, dont un pour sauvegarder celui-ci en fonction de la date. Exemple le classeur ce nomme Véhicule.xls et après sauvegarde il s'appel Véhicule de janvier.xls
Ce que je voudrais c'est que lorsque la copie s'effectue la macro supprime en même temps le code du classeur copié de façon a ré ouvrir la copie sans avoir les message de début qui se trouve dans la matrice original, est-ce possible?
Merci de vos suggestions, je peux éventuellement joindre le fichier.