Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" a écrit dans le message de news:
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" <tybow3@yahoo.fr> a écrit dans le message de news:
ekJd07ZOIHA.820@TK2MSFTNGP06.phx.gbl...
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" a écrit dans le message de news:
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" a écrit dans le message de news:
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" <tybow3@yahoo.fr> a écrit dans le message de news:
ekJd07ZOIHA.820@TK2MSFTNGP06.phx.gbl...
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" a écrit dans le message de news:
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" a écrit dans le message de news:
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" <tybow3@yahoo.fr> a écrit dans le message de news:
ekJd07ZOIHA.820@TK2MSFTNGP06.phx.gbl...
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" a écrit dans le message de news:
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
| De plus j'ai une configuration de sécurité imposé par par ma boite sur
mon
| PC est le niveau "moyen" est activé par défaut (et meme si on change le
Même avec ce niveau de sécurité, la procédure devrait s'exécuter sans
aucun problème !
Cependant, pour exécuter du code, tu dois avoir dans la fenêtre :
Menu / outils / Macros / sécurité / Onglets Éditeurs approuvés /
les 2 cases à cocher doivent être cochées.
J'avoue ne pas très bien comprendre qu'elle est exactement ton problème
de sécurité... Quelle la différence dans tes paramètres lorsque la
procédure
fonctionne et ne fonctionne pas ?
"-Tibo-" a écrit dans le message de news:
%
Merci pour la réponse
Mais apres test j'ai une erreur '1004' sur la ligne :
Set VBComps = ActiveWorkbook.VBProject.VBComponents
avec le message : "La méthode "VBProject" sur l'objet '_Workbook' à
échoué.
J'ai cherché une solution mais j'avoue que je seche sur la question.
De plus j'ai une configuration de sécurité imposé par par ma boite sur mon
PC est le niveau "moyen" est activé par défaut (et meme si on change le
parametre il est redefinit sur ce niveau à chaque démarrage de Excel). Du
coup le code ne peut pas s'executer sans une opération manuel. Or les
personnes qui vont utiliser le fichier n'auront pas forcément les
connaissance ni l'envie de s'embeter a changer les propriété de sécutité à
chaque ouverture du fichier. Existe-t-il une autre méthode ?
Merci encore.
"MichDenis" a écrit dans le message de news:Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" a écrit dans le message de news:
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
| De plus j'ai une configuration de sécurité imposé par par ma boite sur
mon
| PC est le niveau "moyen" est activé par défaut (et meme si on change le
Même avec ce niveau de sécurité, la procédure devrait s'exécuter sans
aucun problème !
Cependant, pour exécuter du code, tu dois avoir dans la fenêtre :
Menu / outils / Macros / sécurité / Onglets Éditeurs approuvés /
les 2 cases à cocher doivent être cochées.
J'avoue ne pas très bien comprendre qu'elle est exactement ton problème
de sécurité... Quelle la différence dans tes paramètres lorsque la
procédure
fonctionne et ne fonctionne pas ?
"-Tibo-" <tybow78@yahoo.fr> a écrit dans le message de news:
%23yhgqFhPIHA.4272@TK2MSFTNGP06.phx.gbl...
Merci pour la réponse
Mais apres test j'ai une erreur '1004' sur la ligne :
Set VBComps = ActiveWorkbook.VBProject.VBComponents
avec le message : "La méthode "VBProject" sur l'objet '_Workbook' à
échoué.
J'ai cherché une solution mais j'avoue que je seche sur la question.
De plus j'ai une configuration de sécurité imposé par par ma boite sur mon
PC est le niveau "moyen" est activé par défaut (et meme si on change le
parametre il est redefinit sur ce niveau à chaque démarrage de Excel). Du
coup le code ne peut pas s'executer sans une opération manuel. Or les
personnes qui vont utiliser le fichier n'auront pas forcément les
connaissance ni l'envie de s'embeter a changer les propriété de sécutité à
chaque ouverture du fichier. Existe-t-il une autre méthode ?
Merci encore.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
udiIfDaOIHA.4656@TK2MSFTNGP03.phx.gbl...
Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" <tybow3@yahoo.fr> a écrit dans le message de news:
ekJd07ZOIHA.820@TK2MSFTNGP06.phx.gbl...
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
| De plus j'ai une configuration de sécurité imposé par par ma boite sur
mon
| PC est le niveau "moyen" est activé par défaut (et meme si on change le
Même avec ce niveau de sécurité, la procédure devrait s'exécuter sans
aucun problème !
Cependant, pour exécuter du code, tu dois avoir dans la fenêtre :
Menu / outils / Macros / sécurité / Onglets Éditeurs approuvés /
les 2 cases à cocher doivent être cochées.
J'avoue ne pas très bien comprendre qu'elle est exactement ton problème
de sécurité... Quelle la différence dans tes paramètres lorsque la
procédure
fonctionne et ne fonctionne pas ?
"-Tibo-" a écrit dans le message de news:
%
Merci pour la réponse
Mais apres test j'ai une erreur '1004' sur la ligne :
Set VBComps = ActiveWorkbook.VBProject.VBComponents
avec le message : "La méthode "VBProject" sur l'objet '_Workbook' à
échoué.
J'ai cherché une solution mais j'avoue que je seche sur la question.
De plus j'ai une configuration de sécurité imposé par par ma boite sur mon
PC est le niveau "moyen" est activé par défaut (et meme si on change le
parametre il est redefinit sur ce niveau à chaque démarrage de Excel). Du
coup le code ne peut pas s'executer sans une opération manuel. Or les
personnes qui vont utiliser le fichier n'auront pas forcément les
connaissance ni l'envie de s'embeter a changer les propriété de sécutité à
chaque ouverture du fichier. Existe-t-il une autre méthode ?
Merci encore.
"MichDenis" a écrit dans le message de news:Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" a écrit dans le message de news:
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
| De plus j'ai une configuration de sécurité imposé par par ma boite sur
mon
| PC est le niveau "moyen" est activé par défaut (et meme si on change le
Même avec ce niveau de sécurité, la procédure devrait s'exécuter sans
aucun problème !
Cependant, pour exécuter du code, tu dois avoir dans la fenêtre :
Menu / outils / Macros / sécurité / Onglets Éditeurs approuvés /
les 2 cases à cocher doivent être cochées.
J'avoue ne pas très bien comprendre qu'elle est exactement ton problème
de sécurité... Quelle la différence dans tes paramètres lorsque la
procédure
fonctionne et ne fonctionne pas ?
"-Tibo-" a écrit dans le message de news:
%
Merci pour la réponse
Mais apres test j'ai une erreur '1004' sur la ligne :
Set VBComps = ActiveWorkbook.VBProject.VBComponents
avec le message : "La méthode "VBProject" sur l'objet '_Workbook' à
échoué.
J'ai cherché une solution mais j'avoue que je seche sur la question.
De plus j'ai une configuration de sécurité imposé par par ma boite sur mon
PC est le niveau "moyen" est activé par défaut (et meme si on change le
parametre il est redefinit sur ce niveau à chaque démarrage de Excel). Du
coup le code ne peut pas s'executer sans une opération manuel. Or les
personnes qui vont utiliser le fichier n'auront pas forcément les
connaissance ni l'envie de s'embeter a changer les propriété de sécutité à
chaque ouverture du fichier. Existe-t-il une autre méthode ?
Merci encore.
"MichDenis" a écrit dans le message de news:Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" a écrit dans le message de news:
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
| De plus j'ai une configuration de sécurité imposé par par ma boite sur
mon
| PC est le niveau "moyen" est activé par défaut (et meme si on change le
Même avec ce niveau de sécurité, la procédure devrait s'exécuter sans
aucun problème !
Cependant, pour exécuter du code, tu dois avoir dans la fenêtre :
Menu / outils / Macros / sécurité / Onglets Éditeurs approuvés /
les 2 cases à cocher doivent être cochées.
J'avoue ne pas très bien comprendre qu'elle est exactement ton problème
de sécurité... Quelle la différence dans tes paramètres lorsque la
procédure
fonctionne et ne fonctionne pas ?
"-Tibo-" <tybow78@yahoo.fr> a écrit dans le message de news:
%23yhgqFhPIHA.4272@TK2MSFTNGP06.phx.gbl...
Merci pour la réponse
Mais apres test j'ai une erreur '1004' sur la ligne :
Set VBComps = ActiveWorkbook.VBProject.VBComponents
avec le message : "La méthode "VBProject" sur l'objet '_Workbook' à
échoué.
J'ai cherché une solution mais j'avoue que je seche sur la question.
De plus j'ai une configuration de sécurité imposé par par ma boite sur mon
PC est le niveau "moyen" est activé par défaut (et meme si on change le
parametre il est redefinit sur ce niveau à chaque démarrage de Excel). Du
coup le code ne peut pas s'executer sans une opération manuel. Or les
personnes qui vont utiliser le fichier n'auront pas forcément les
connaissance ni l'envie de s'embeter a changer les propriété de sécutité à
chaque ouverture du fichier. Existe-t-il une autre méthode ?
Merci encore.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
udiIfDaOIHA.4656@TK2MSFTNGP03.phx.gbl...
Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" <tybow3@yahoo.fr> a écrit dans le message de news:
ekJd07ZOIHA.820@TK2MSFTNGP06.phx.gbl...
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
| De plus j'ai une configuration de sécurité imposé par par ma boite sur
mon
| PC est le niveau "moyen" est activé par défaut (et meme si on change le
Même avec ce niveau de sécurité, la procédure devrait s'exécuter sans
aucun problème !
Cependant, pour exécuter du code, tu dois avoir dans la fenêtre :
Menu / outils / Macros / sécurité / Onglets Éditeurs approuvés /
les 2 cases à cocher doivent être cochées.
J'avoue ne pas très bien comprendre qu'elle est exactement ton problème
de sécurité... Quelle la différence dans tes paramètres lorsque la
procédure
fonctionne et ne fonctionne pas ?
"-Tibo-" a écrit dans le message de news:
%
Merci pour la réponse
Mais apres test j'ai une erreur '1004' sur la ligne :
Set VBComps = ActiveWorkbook.VBProject.VBComponents
avec le message : "La méthode "VBProject" sur l'objet '_Workbook' à
échoué.
J'ai cherché une solution mais j'avoue que je seche sur la question.
De plus j'ai une configuration de sécurité imposé par par ma boite sur mon
PC est le niveau "moyen" est activé par défaut (et meme si on change le
parametre il est redefinit sur ce niveau à chaque démarrage de Excel). Du
coup le code ne peut pas s'executer sans une opération manuel. Or les
personnes qui vont utiliser le fichier n'auront pas forcément les
connaissance ni l'envie de s'embeter a changer les propriété de sécutité à
chaque ouverture du fichier. Existe-t-il une autre méthode ?
Merci encore.
"MichDenis" a écrit dans le message de news:Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" a écrit dans le message de news:
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
| De plus j'ai une configuration de sécurité imposé par par ma boite sur
mon
| PC est le niveau "moyen" est activé par défaut (et meme si on change le
Même avec ce niveau de sécurité, la procédure devrait s'exécuter sans
aucun problème !
Cependant, pour exécuter du code, tu dois avoir dans la fenêtre :
Menu / outils / Macros / sécurité / Onglets Éditeurs approuvés /
les 2 cases à cocher doivent être cochées.
J'avoue ne pas très bien comprendre qu'elle est exactement ton problème
de sécurité... Quelle la différence dans tes paramètres lorsque la
procédure
fonctionne et ne fonctionne pas ?
"-Tibo-" a écrit dans le message de news:
%
Merci pour la réponse
Mais apres test j'ai une erreur '1004' sur la ligne :
Set VBComps = ActiveWorkbook.VBProject.VBComponents
avec le message : "La méthode "VBProject" sur l'objet '_Workbook' à
échoué.
J'ai cherché une solution mais j'avoue que je seche sur la question.
De plus j'ai une configuration de sécurité imposé par par ma boite sur mon
PC est le niveau "moyen" est activé par défaut (et meme si on change le
parametre il est redefinit sur ce niveau à chaque démarrage de Excel). Du
coup le code ne peut pas s'executer sans une opération manuel. Or les
personnes qui vont utiliser le fichier n'auront pas forcément les
connaissance ni l'envie de s'embeter a changer les propriété de sécutité à
chaque ouverture du fichier. Existe-t-il une autre méthode ?
Merci encore.
"MichDenis" a écrit dans le message de news:Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" a écrit dans le message de news:
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
| De plus j'ai une configuration de sécurité imposé par par ma boite sur
mon
| PC est le niveau "moyen" est activé par défaut (et meme si on change le
Même avec ce niveau de sécurité, la procédure devrait s'exécuter sans
aucun problème !
Cependant, pour exécuter du code, tu dois avoir dans la fenêtre :
Menu / outils / Macros / sécurité / Onglets Éditeurs approuvés /
les 2 cases à cocher doivent être cochées.
J'avoue ne pas très bien comprendre qu'elle est exactement ton problème
de sécurité... Quelle la différence dans tes paramètres lorsque la
procédure
fonctionne et ne fonctionne pas ?
"-Tibo-" <tybow78@yahoo.fr> a écrit dans le message de news:
%23yhgqFhPIHA.4272@TK2MSFTNGP06.phx.gbl...
Merci pour la réponse
Mais apres test j'ai une erreur '1004' sur la ligne :
Set VBComps = ActiveWorkbook.VBProject.VBComponents
avec le message : "La méthode "VBProject" sur l'objet '_Workbook' à
échoué.
J'ai cherché une solution mais j'avoue que je seche sur la question.
De plus j'ai une configuration de sécurité imposé par par ma boite sur mon
PC est le niveau "moyen" est activé par défaut (et meme si on change le
parametre il est redefinit sur ce niveau à chaque démarrage de Excel). Du
coup le code ne peut pas s'executer sans une opération manuel. Or les
personnes qui vont utiliser le fichier n'auront pas forcément les
connaissance ni l'envie de s'embeter a changer les propriété de sécutité à
chaque ouverture du fichier. Existe-t-il une autre méthode ?
Merci encore.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
udiIfDaOIHA.4656@TK2MSFTNGP03.phx.gbl...
Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" <tybow3@yahoo.fr> a écrit dans le message de news:
ekJd07ZOIHA.820@TK2MSFTNGP06.phx.gbl...
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo
| De plus j'ai une configuration de sécurité imposé par par ma boite sur
mon
| PC est le niveau "moyen" est activé par défaut (et meme si on change le
Même avec ce niveau de sécurité, la procédure devrait s'exécuter sans
aucun problème !
Cependant, pour exécuter du code, tu dois avoir dans la fenêtre :
Menu / outils / Macros / sécurité / Onglets Éditeurs approuvés /
les 2 cases à cocher doivent être cochées.
J'avoue ne pas très bien comprendre qu'elle est exactement ton problème
de sécurité... Quelle la différence dans tes paramètres lorsque la
procédure
fonctionne et ne fonctionne pas ?
"-Tibo-" a écrit dans le message de news:
%
Merci pour la réponse
Mais apres test j'ai une erreur '1004' sur la ligne :
Set VBComps = ActiveWorkbook.VBProject.VBComponents
avec le message : "La méthode "VBProject" sur l'objet '_Workbook' à
échoué.
J'ai cherché une solution mais j'avoue que je seche sur la question.
De plus j'ai une configuration de sécurité imposé par par ma boite sur mon
PC est le niveau "moyen" est activé par défaut (et meme si on change le
parametre il est redefinit sur ce niveau à chaque démarrage de Excel). Du
coup le code ne peut pas s'executer sans une opération manuel. Or les
personnes qui vont utiliser le fichier n'auront pas forcément les
connaissance ni l'envie de s'embeter a changer les propriété de sécutité à
chaque ouverture du fichier. Existe-t-il une autre méthode ?
Merci encore.
"MichDenis" a écrit dans le message de news:Cette procédure supprime tous les modules "Standard", "De Classe"
"Formulaire" et tout le code qui peut y avoir dans le ThisWorkbook
ou dans les feuilles module.
Après avoir appeler cette procédure, tu enregistres ton fichier où tu
désires...
Attention, les 2 macros s'exécutent sur le classeur actif.
Sub test()
SupprimeToutCodeEtFormulaire
ActiveWorkbook.SaveAs "chemin et nouveau nom du fichier"
End Sub
'----------------------
Sub SupprimeToutCodeEtFormulaire()
Dim VBComp As Object
Dim VBComps As Object
Set VBComps = ActiveWorkbook.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
'----------------------
"-Tibo-" a écrit dans le message de news:
Bonjour a tous,
J'ai un fichier excel pour lequel je voudrais créer une macro spécifique
qui
va :
- "Enregistrer sous" le fichier avec un nom specifique a un endroit
specifique
- supprimer les macros presentent dans le nouveau fichier (celui qui sera
"enregistrer sous" et pas celui de base qui est un fichier de
production..)
- Supprimer certaine feuille qui ne sont utile qu'a la production
Voila, je connais le code pour "enregistrer sous", pour le reste je ne
sais
pas...
Merci d'avance de votre aide.
Cdlt.
Tibo