OVH Cloud OVH Cloud

supprimer une feuille par VB

7 réponses
Avatar
Jacques Maugery
bonjour à tous,

je souhaite supprimer une feuille excel à partir d'un programme VB :

"Excel.Sheets.Delete"

Lors du lancement de mon application, Excel me demande confirmation de
suppression, d'où l'arrêt de mon programme...
Ma question est : comment valider ou outrepasser cette boîte de confirmation
?
J'ai essayé "Excel.Sheets.Delete(true)", sans aucun effet.

Merci de votre aide.

Jacques.

7 réponses

Avatar
Philippe.R
Bonsoir Jacques,
Tu peux essayer (à adapter) :

Application.EnableEventsúlse
Excel.Sheets.Delete
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Jacques Maugery" éant.ca> a écrit dans le message de
news:3Fkfb.97425$
bonjour à tous,

je souhaite supprimer une feuille excel à partir d'un programme VB :

"Excel.Sheets.Delete"

Lors du lancement de mon application, Excel me demande confirmation de
suppression, d'où l'arrêt de mon programme...
Ma question est : comment valider ou outrepasser cette boîte de confirmation
?
J'ai essayé "Excel.Sheets.Delete(true)", sans aucun effet.

Merci de votre aide.

Jacques.




Avatar
gee-dee-
Bonsoir,
a mon humble et modeste avis, mon cher Philippe !
cela serait plutot
Application.DisplayAlerts = False

par ailleurs l'instruction :
thisworkbook.sheets.delete
provoquant la suppression de toutes les feuilles,
déclenchera un message d'erreur "1004"
un classeur doit contenir au moins une feuille visible

si cette feuille n'est pas unique il suffit d'écrire :
thisworkbook.activesheet.delete

@+
Avatar
Philippe.R
Bonsoir GeeDee,
Non solum tu pourrais bien avoir raison sed etiam je me fichais peut être bien le doigt dans l'oeil !
~|o(
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"gee-dee-" a écrit dans le message de news:
Bonsoir,
a mon humble et modeste avis, mon cher Philippe !
cela serait plutot
Application.DisplayAlerts = False

par ailleurs l'instruction :
thisworkbook.sheets.delete
provoquant la suppression de toutes les feuilles,
déclenchera un message d'erreur "1004"
un classeur doit contenir au moins une feuille visible

si cette feuille n'est pas unique il suffit d'écrire :
thisworkbook.activesheet.delete

@+




Avatar
sabatier
ferais mieux de te concentrer au lieu de jouer les félons....per bona
sorte, modestus arrivavit corrigevitque...
jps....s comme senèque


Philippe.R a écrit:
Bonsoir GeeDee,
Non solum tu pourrais bien avoir raison sed etiam je me fichais peut être bien le doigt dans l'oeil !
~|o(


Avatar
Philippe.R
<{:op)
--
Amicales Salutations

Retirer A_S_ pour répondre.

"sabatier" a écrit dans le message de news:
ferais mieux de te concentrer au lieu de jouer les félons....per bona
sorte, modestus arrivavit corrigevitque...
jps....s comme senèque


Philippe.R a écrit:
Bonsoir GeeDee,
Non solum tu pourrais bien avoir raison sed etiam je me fichais peut être bien le doigt dans l'oeil
!


~|o(





Avatar
Jacques Maugery
Merci pour l'info, cela fonctionne à merveille..

Jacques.


"gee-dee-" a écrit dans le message de
news:
Bonsoir,
a mon humble et modeste avis, mon cher Philippe !
cela serait plutot
Application.DisplayAlerts = False

par ailleurs l'instruction :
thisworkbook.sheets.delete
provoquant la suppression de toutes les feuilles,
déclenchera un message d'erreur "1004"
un classeur doit contenir au moins une feuille visible

si cette feuille n'est pas unique il suffit d'écrire :
thisworkbook.activesheet.delete

@+




Avatar
MacBob
Salut Jacques

Glisse donc en tête de ta procédure la ligne suivante:
Application.DisplayAlerts = False

Attention, cette commande supprime tous les messages d'alerte. A utiliser
donc avec parcimonie.
Ne pas oublier de remettre cette sécurité avant de quitter ta procédure:

Application.DisplayAlerts = True

Bon courage

Macbob 8°)))

Le 3/10/03 22:06, dans 3Fkfb.97425$, « Jacques
Maugery » ?ant.ca> a écrit :

bonjour à tous,

je souhaite supprimer une feuille excel à partir d'un programme VB :

"Excel.Sheets.Delete"

Lors du lancement de mon application, Excel me demande confirmation de
suppression, d'où l'arrêt de mon programme...
Ma question est : comment valider ou outrepasser cette boîte de confirmation
?
J'ai essayé "Excel.Sheets.Delete(true)", sans aucun effet.

Merci de votre aide.

Jacques.