Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière est
ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de la
feuille, ce que j'ai fait par une macro, pour minimiser les manipulations
des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service est
géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant envoi
par un intranet) de l'enregistrer sous un autre nom, et de supprimer
également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers Excel,
puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel --> Formatage
des données, mise en forme....enregistrement sous un autre nom
et pour cette dernière opération, je voudrais une action qui supprime mon
bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière est
ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de la
feuille, ce que j'ai fait par une macro, pour minimiser les manipulations
des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service est
géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant envoi
par un intranet) de l'enregistrer sous un autre nom, et de supprimer
également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers Excel,
puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel --> Formatage
des données, mise en forme....enregistrement sous un autre nom
et pour cette dernière opération, je voudrais une action qui supprime mon
bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière est
ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de la
feuille, ce que j'ai fait par une macro, pour minimiser les manipulations
des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service est
géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant envoi
par un intranet) de l'enregistrer sous un autre nom, et de supprimer
également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers Excel,
puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel --> Formatage
des données, mise en forme....enregistrement sous un autre nom
et pour cette dernière opération, je voudrais une action qui supprime mon
bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière est
ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de la
feuille, ce que j'ai fait par une macro, pour minimiser les manipulations
des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service est
géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers Excel,
puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre nom
et pour cette dernière opération, je voudrais une action qui supprime mon
bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
OSwfW43eHHA.1216@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière est
ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de la
feuille, ce que j'ai fait par une macro, pour minimiser les manipulations
des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service est
géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers Excel,
puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre nom
et pour cette dernière opération, je voudrais une action qui supprime mon
bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière est
ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de la
feuille, ce que j'ai fait par une macro, pour minimiser les manipulations
des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service est
géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers Excel,
puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre nom
et pour cette dernière opération, je voudrais une action qui supprime mon
bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit :
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de la
feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service est
géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit :
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" <vaderetrosp@mas> a écrit dans le message de news:
unGh3C4eHHA.4604@TK2MSFTNGP06.phx.gbl...
bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
OSwfW43eHHA.1216@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de la
feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service est
géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit :
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de la
feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service est
géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" a écrit dans le message de news:Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit :
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
u8lZXHBfHHA.4916@TK2MSFTNGP06.phx.gbl...
Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit :
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" <vaderetrosp@mas> a écrit dans le message de news:
unGh3C4eHHA.4604@TK2MSFTNGP06.phx.gbl...
bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
OSwfW43eHHA.1216@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" a écrit dans le message de news:Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit :
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" a écrit dans le message de news:Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit :
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
u8lZXHBfHHA.4916@TK2MSFTNGP06.phx.gbl...
Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit :
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" <vaderetrosp@mas> a écrit dans le message de news:
unGh3C4eHHA.4604@TK2MSFTNGP06.phx.gbl...
bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
OSwfW43eHHA.1216@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" a écrit dans le message de news:Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit :
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
En plus du code, tu dois supprimer les modules, formulaires si présent.
"Chris" a écrit dans le message de news:
%
Re
j'avais oublié en fait de mettre le nom de la feuille quand j'appelais le
code
Merci pour ton aide.
Dernière question, pourquoi, lorsque je veux ouvrir mon fichier Excel
débarrassé de toute macro, Execl me demande-t-il si je veux activer les
macros? (alors qu'il n'y en a plus logiquement)
Merci
chris
"jps" a écrit dans le message de news:bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" a écrit dans le message de news:Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit :
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
En plus du code, tu dois supprimer les modules, formulaires si présent.
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
%23vHSmkOfHHA.3884@TK2MSFTNGP04.phx.gbl...
Re
j'avais oublié en fait de mettre le nom de la feuille quand j'appelais le
code
Merci pour ton aide.
Dernière question, pourquoi, lorsque je veux ouvrir mon fichier Excel
débarrassé de toute macro, Execl me demande-t-il si je veux activer les
macros? (alors qu'il n'y en a plus logiquement)
Merci
chris
"jps" <vaderetrosp@mas> a écrit dans le message de news:
OAAWKrBfHHA.1244@TK2MSFTNGP04.phx.gbl...
bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
u8lZXHBfHHA.4916@TK2MSFTNGP06.phx.gbl...
Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit :
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" <vaderetrosp@mas> a écrit dans le message de news:
unGh3C4eHHA.4604@TK2MSFTNGP06.phx.gbl...
bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
OSwfW43eHHA.1216@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
En plus du code, tu dois supprimer les modules, formulaires si présent.
"Chris" a écrit dans le message de news:
%
Re
j'avais oublié en fait de mettre le nom de la feuille quand j'appelais le
code
Merci pour ton aide.
Dernière question, pourquoi, lorsque je veux ouvrir mon fichier Excel
débarrassé de toute macro, Execl me demande-t-il si je veux activer les
macros? (alors qu'il n'y en a plus logiquement)
Merci
chris
"jps" a écrit dans le message de news:bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" a écrit dans le message de news:Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit :
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
Bonjour
je n'ai pas de modules, l'execution supprime bien tout le code, dans VBA
j'ai Microsoft Excel Objects, puis en dessous "Feuill1" où est mis mon
code et "This Workbook" qui est vide
mon code est bien supprimé dans "Feuill1"
alors tout focnctionne correctement avec Excel200, Excel 97 mais avec
2003, j'ai cette erreur :
"L'accès par programme au projet Visual Basic n'est pas fiable"
apparement c'est ceci qui gène:With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
que dois-je faire?
"MichDenis" a écrit dans le message de news:En plus du code, tu dois supprimer les modules, formulaires si présent.
"Chris" a écrit dans le message de news:
%
Re
j'avais oublié en fait de mettre le nom de la feuille quand j'appelais le
code
Merci pour ton aide.
Dernière question, pourquoi, lorsque je veux ouvrir mon fichier Excel
débarrassé de toute macro, Execl me demande-t-il si je veux activer les
macros? (alors qu'il n'y en a plus logiquement)
Merci
chris
"jps" a écrit dans le message de news:bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" a écrit dans le message de news:Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit
:
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
Bonjour
je n'ai pas de modules, l'execution supprime bien tout le code, dans VBA
j'ai Microsoft Excel Objects, puis en dessous "Feuill1" où est mis mon
code et "This Workbook" qui est vide
mon code est bien supprimé dans "Feuill1"
alors tout focnctionne correctement avec Excel200, Excel 97 mais avec
2003, j'ai cette erreur :
"L'accès par programme au projet Visual Basic n'est pas fiable"
apparement c'est ceci qui gène:
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
que dois-je faire?
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uJRc6TPfHHA.2052@TK2MSFTNGP05.phx.gbl...
En plus du code, tu dois supprimer les modules, formulaires si présent.
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
%23vHSmkOfHHA.3884@TK2MSFTNGP04.phx.gbl...
Re
j'avais oublié en fait de mettre le nom de la feuille quand j'appelais le
code
Merci pour ton aide.
Dernière question, pourquoi, lorsque je veux ouvrir mon fichier Excel
débarrassé de toute macro, Execl me demande-t-il si je veux activer les
macros? (alors qu'il n'y en a plus logiquement)
Merci
chris
"jps" <vaderetrosp@mas> a écrit dans le message de news:
OAAWKrBfHHA.1244@TK2MSFTNGP04.phx.gbl...
bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
u8lZXHBfHHA.4916@TK2MSFTNGP06.phx.gbl...
Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit
:
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" <vaderetrosp@mas> a écrit dans le message de news:
unGh3C4eHHA.4604@TK2MSFTNGP06.phx.gbl...
bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
OSwfW43eHHA.1216@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
Bonjour
je n'ai pas de modules, l'execution supprime bien tout le code, dans VBA
j'ai Microsoft Excel Objects, puis en dessous "Feuill1" où est mis mon
code et "This Workbook" qui est vide
mon code est bien supprimé dans "Feuill1"
alors tout focnctionne correctement avec Excel200, Excel 97 mais avec
2003, j'ai cette erreur :
"L'accès par programme au projet Visual Basic n'est pas fiable"
apparement c'est ceci qui gène:With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
que dois-je faire?
"MichDenis" a écrit dans le message de news:En plus du code, tu dois supprimer les modules, formulaires si présent.
"Chris" a écrit dans le message de news:
%
Re
j'avais oublié en fait de mettre le nom de la feuille quand j'appelais le
code
Merci pour ton aide.
Dernière question, pourquoi, lorsque je veux ouvrir mon fichier Excel
débarrassé de toute macro, Execl me demande-t-il si je veux activer les
macros? (alors qu'il n'y en a plus logiquement)
Merci
chris
"jps" a écrit dans le message de news:bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" a écrit dans le message de news:Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit
:
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
En plus du code, tu dois supprimer les modules, formulaires si présent.
"Chris" a écrit dans le message de news:
%
Re
j'avais oublié en fait de mettre le nom de la feuille quand j'appelais le
code
Merci pour ton aide.
Dernière question, pourquoi, lorsque je veux ouvrir mon fichier Excel
débarrassé de toute macro, Execl me demande-t-il si je veux activer les
macros? (alors qu'il n'y en a plus logiquement)
Merci
chris
"jps" a écrit dans le message de news:bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" a écrit dans le message de news:Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit :
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
En plus du code, tu dois supprimer les modules, formulaires si présent.
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
%23vHSmkOfHHA.3884@TK2MSFTNGP04.phx.gbl...
Re
j'avais oublié en fait de mettre le nom de la feuille quand j'appelais le
code
Merci pour ton aide.
Dernière question, pourquoi, lorsque je veux ouvrir mon fichier Excel
débarrassé de toute macro, Execl me demande-t-il si je veux activer les
macros? (alors qu'il n'y en a plus logiquement)
Merci
chris
"jps" <vaderetrosp@mas> a écrit dans le message de news:
OAAWKrBfHHA.1244@TK2MSFTNGP04.phx.gbl...
bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
u8lZXHBfHHA.4916@TK2MSFTNGP06.phx.gbl...
Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit :
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" <vaderetrosp@mas> a écrit dans le message de news:
unGh3C4eHHA.4604@TK2MSFTNGP06.phx.gbl...
bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
OSwfW43eHHA.1216@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
En plus du code, tu dois supprimer les modules, formulaires si présent.
"Chris" a écrit dans le message de news:
%
Re
j'avais oublié en fait de mettre le nom de la feuille quand j'appelais le
code
Merci pour ton aide.
Dernière question, pourquoi, lorsque je veux ouvrir mon fichier Excel
débarrassé de toute macro, Execl me demande-t-il si je veux activer les
macros? (alors qu'il n'y en a plus logiquement)
Merci
chris
"jps" a écrit dans le message de news:bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" a écrit dans le message de news:Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit :
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
Bonjour
je n'ai pas de modules, l'execution supprime bien tout le code, dans VBA
j'ai Microsoft Excel Objects, puis en dessous "Feuill1" où est mis mon
code et "This Workbook" qui est vide
mon code est bien supprimé dans "Feuill1"
alors tout focnctionne correctement avec Excel200, Excel 97 mais avec
2003, j'ai cette erreur :
"L'accès par programme au projet Visual Basic n'est pas fiable"
apparement c'est ceci qui gène:With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
que dois-je faire?
"MichDenis" a écrit dans le message de news:En plus du code, tu dois supprimer les modules, formulaires si présent.
"Chris" a écrit dans le message de news:
%
Re
j'avais oublié en fait de mettre le nom de la feuille quand j'appelais le
code
Merci pour ton aide.
Dernière question, pourquoi, lorsque je veux ouvrir mon fichier Excel
débarrassé de toute macro, Execl me demande-t-il si je veux activer les
macros? (alors qu'il n'y en a plus logiquement)
Merci
chris
"jps" a écrit dans le message de news:bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" a écrit dans le message de news:Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit
:
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
Bonjour
je n'ai pas de modules, l'execution supprime bien tout le code, dans VBA
j'ai Microsoft Excel Objects, puis en dessous "Feuill1" où est mis mon
code et "This Workbook" qui est vide
mon code est bien supprimé dans "Feuill1"
alors tout focnctionne correctement avec Excel200, Excel 97 mais avec
2003, j'ai cette erreur :
"L'accès par programme au projet Visual Basic n'est pas fiable"
apparement c'est ceci qui gène:
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
que dois-je faire?
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uJRc6TPfHHA.2052@TK2MSFTNGP05.phx.gbl...
En plus du code, tu dois supprimer les modules, formulaires si présent.
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
%23vHSmkOfHHA.3884@TK2MSFTNGP04.phx.gbl...
Re
j'avais oublié en fait de mettre le nom de la feuille quand j'appelais le
code
Merci pour ton aide.
Dernière question, pourquoi, lorsque je veux ouvrir mon fichier Excel
débarrassé de toute macro, Execl me demande-t-il si je veux activer les
macros? (alors qu'il n'y en a plus logiquement)
Merci
chris
"jps" <vaderetrosp@mas> a écrit dans le message de news:
OAAWKrBfHHA.1244@TK2MSFTNGP04.phx.gbl...
bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
u8lZXHBfHHA.4916@TK2MSFTNGP06.phx.gbl...
Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit
:
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" <vaderetrosp@mas> a écrit dans le message de news:
unGh3C4eHHA.4604@TK2MSFTNGP06.phx.gbl...
bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
OSwfW43eHHA.1216@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
Bonjour
je n'ai pas de modules, l'execution supprime bien tout le code, dans VBA
j'ai Microsoft Excel Objects, puis en dessous "Feuill1" où est mis mon
code et "This Workbook" qui est vide
mon code est bien supprimé dans "Feuill1"
alors tout focnctionne correctement avec Excel200, Excel 97 mais avec
2003, j'ai cette erreur :
"L'accès par programme au projet Visual Basic n'est pas fiable"
apparement c'est ceci qui gène:With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
que dois-je faire?
"MichDenis" a écrit dans le message de news:En plus du code, tu dois supprimer les modules, formulaires si présent.
"Chris" a écrit dans le message de news:
%
Re
j'avais oublié en fait de mettre le nom de la feuille quand j'appelais le
code
Merci pour ton aide.
Dernière question, pourquoi, lorsque je veux ouvrir mon fichier Excel
débarrassé de toute macro, Execl me demande-t-il si je veux activer les
macros? (alors qu'il n'y en a plus logiquement)
Merci
chris
"jps" a écrit dans le message de news:bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" a écrit dans le message de news:Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit
:
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
| "L'accès par programme au projet Visual Basic n'est pas fiable"
Version excel 2003, tu dois cocher la case suivante :
Barre des menus / outils / Macro / sécurité / Éditeurs approuvés / les 2
cases à cocher dans le bas
de la fenêtre.
"Chris" a écrit dans le message de news:
Bonjour
je n'ai pas de modules, l'execution supprime bien tout le code, dans VBA
j'ai Microsoft Excel Objects, puis en dessous "Feuill1" où est mis mon
code
et "This Workbook" qui est vide
mon code est bien supprimé dans "Feuill1"
alors tout focnctionne correctement avec Excel200, Excel 97 mais avec
2003,
j'ai cette erreur :
"L'accès par programme au projet Visual Basic n'est pas fiable"
apparement c'est ceci qui gène:With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
que dois-je faire?
"MichDenis" a écrit dans le message de news:En plus du code, tu dois supprimer les modules, formulaires si présent.
"Chris" a écrit dans le message de news:
%
Re
j'avais oublié en fait de mettre le nom de la feuille quand j'appelais le
code
Merci pour ton aide.
Dernière question, pourquoi, lorsque je veux ouvrir mon fichier Excel
débarrassé de toute macro, Execl me demande-t-il si je veux activer les
macros? (alors qu'il n'y en a plus logiquement)
Merci
chris
"jps" a écrit dans le message de news:bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" a écrit dans le message de news:Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit
:
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
| "L'accès par programme au projet Visual Basic n'est pas fiable"
Version excel 2003, tu dois cocher la case suivante :
Barre des menus / outils / Macro / sécurité / Éditeurs approuvés / les 2
cases à cocher dans le bas
de la fenêtre.
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
e5Wg1MQfHHA.4020@TK2MSFTNGP05.phx.gbl...
Bonjour
je n'ai pas de modules, l'execution supprime bien tout le code, dans VBA
j'ai Microsoft Excel Objects, puis en dessous "Feuill1" où est mis mon
code
et "This Workbook" qui est vide
mon code est bien supprimé dans "Feuill1"
alors tout focnctionne correctement avec Excel200, Excel 97 mais avec
2003,
j'ai cette erreur :
"L'accès par programme au projet Visual Basic n'est pas fiable"
apparement c'est ceci qui gène:
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
que dois-je faire?
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
uJRc6TPfHHA.2052@TK2MSFTNGP05.phx.gbl...
En plus du code, tu dois supprimer les modules, formulaires si présent.
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
%23vHSmkOfHHA.3884@TK2MSFTNGP04.phx.gbl...
Re
j'avais oublié en fait de mettre le nom de la feuille quand j'appelais le
code
Merci pour ton aide.
Dernière question, pourquoi, lorsque je veux ouvrir mon fichier Excel
débarrassé de toute macro, Execl me demande-t-il si je veux activer les
macros? (alors qu'il n'y en a plus logiquement)
Merci
chris
"jps" <vaderetrosp@mas> a écrit dans le message de news:
OAAWKrBfHHA.1244@TK2MSFTNGP04.phx.gbl...
bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
u8lZXHBfHHA.4916@TK2MSFTNGP06.phx.gbl...
Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit
:
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" <vaderetrosp@mas> a écrit dans le message de news:
unGh3C4eHHA.4604@TK2MSFTNGP06.phx.gbl...
bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" <chris.v@waika9.com> a écrit dans le message de news:
OSwfW43eHHA.1216@TK2MSFTNGP03.phx.gbl...
Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris
| "L'accès par programme au projet Visual Basic n'est pas fiable"
Version excel 2003, tu dois cocher la case suivante :
Barre des menus / outils / Macro / sécurité / Éditeurs approuvés / les 2
cases à cocher dans le bas
de la fenêtre.
"Chris" a écrit dans le message de news:
Bonjour
je n'ai pas de modules, l'execution supprime bien tout le code, dans VBA
j'ai Microsoft Excel Objects, puis en dessous "Feuill1" où est mis mon
code
et "This Workbook" qui est vide
mon code est bien supprimé dans "Feuill1"
alors tout focnctionne correctement avec Excel200, Excel 97 mais avec
2003,
j'ai cette erreur :
"L'accès par programme au projet Visual Basic n'est pas fiable"
apparement c'est ceci qui gène:With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
que dois-je faire?
"MichDenis" a écrit dans le message de news:En plus du code, tu dois supprimer les modules, formulaires si présent.
"Chris" a écrit dans le message de news:
%
Re
j'avais oublié en fait de mettre le nom de la feuille quand j'appelais le
code
Merci pour ton aide.
Dernière question, pourquoi, lorsque je veux ouvrir mon fichier Excel
débarrassé de toute macro, Execl me demande-t-il si je veux activer les
macros? (alors qu'il n'y en a plus logiquement)
Merci
chris
"jps" a écrit dans le message de news:bonjour chris
essaie alors comme cela :
With ThisWorkbook.VBProject.VBComponents("feuil2").codemodule
.DeleteLines 1, .CountOfLines
End With
ce qui devrait supprimer le code de la feuille 2
quant à la proc ci-dessous, il doit falloir exécuter cela :
Sub PasDeQuartierPourLeModule()
EffaceCodeFeuille "nom de la feuille dont le code est a éliminer"
End Sub
désolé, je fais ce que je peux et comme on dit, je peux peu
jps
"Chris" a écrit dans le message de news:Bonjour et merci
lorsque j'essaye de lancer la macro, j'ai une boîte message qui me dit
:
argument non facultatif
et là fin de l'execution
j'ai essayé en remplaçant NomFeuille par le nom de ma feuille (Feuil1)
Merci
"jps" a écrit dans le message de news:bonjour chris
cette macro supprime le code des modules présents dans un classeur
Sub EffaceCodeFeuille(NomFeuille As String)
With ActiveWorkbook.VBProject.VBComponents _
(ActiveWorkbook.Sheets(NomFeuille).CodeName).CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End Sub
pour supprimer le bouton, un petit coup d'enregistreur de macros
HTH
jps
"Chris" a écrit dans le message de news:Bonjour,
J'ai une base access qui me remplit une feuille Excel, cette dernière
est ensuite traitée par un autre service.
Ce service m'a demandé de modifier certaines choses dans le format de
la feuille, ce que j'ai fait par une macro, pour minimiser les
manipulations des opérateurs de la base de données.
Or, le post traitement des données de la feuille par l'autre service
est géné par mes macros.
Est-il possible, lors de l'enregistrement de la feuille excel (avant
envoi par un intranet) de l'enregistrer sous un autre nom, et de
supprimer également le code vba des macros.
je détaille un peu plus :
L'opérateur clique sur un bouton de la base access --> export vers
Excel, puis ouverture du fichier excel pour vérif
L'opérateur clique ensuite sur un bouton de la feuille excel -->
Formatage des données, mise en forme....enregistrement sous un autre
nom
et pour cette dernière opération, je voudrais une action qui supprime
mon bouton et le code qui va avec dans le nouveau fichier
J'espère avoir été assez clair dans mes explications
Merci de votre aide
Chris