OVH Cloud OVH Cloud

[VBA] suppression de feuilles

3 réponses
Avatar
Blaster
Bonjour,
J'ai une macro qui utilise un bon nombre de feuille=20
temporaire (9), a la fin de la macro, je les supprimes=20
toutes.

Quand j'en supprime une (quelque soit celle ci) =E7a marche=20
bien, mais si j'en supprime plus (au moins 2) alors la...
la macro continue a bien tourner, toutes les sheets sont=20
bien supprim=E9es, le workbook est bien sauvegard=E9, puis=20
bien ferm=E9 sans aucune erreur.
mais quand je l'ouvre a la main, alors EXCEL me dit:
EXCEL has generated an error...
et il se ferme.

J'enleve le fait de ferm=E9 le fichier, mais je laisse la=20
sauvegarde auto. Le fichier finale, je le sauvegarde a la=20
main sous un autre nom, je le ferme et le reouvre sans=20
aucun probleme. par contre quand j'essai d'ouvrir celui=20
saugard=E9 automatiquement alors j'ai toujours la meme=20
erreur.

Je vois pas trop d'ou vient le probleme, et je me demande=20
si le fais de faire
ActiveWorkbook.Sheets("Sheet1").delete
ActiveWorkbook.Sheets("Sheet2").delete
ActiveWorkbook.Sheets("Sheet3").delete
ne posait pas de probleme, s'il fallait pas que je mette=20
une tempo entre chaque... ou s'il y a une astuce pour=20
supprimer des feuilles

Il n'y a pas de lien entre les feuilles (vlookup, pivot ou=20
formule...) je copie et colle seulement les 'values' pour=20
eviter ceux ci.

D'avance merci pour vos r=E9ponses
Blaster

3 réponses

Avatar
Ellimac
Bonjour,

Essaie ceci :
Sheets(Array("Feuil1 (2)", "Feuil2 (2)", "Feuil3
(2)")).Delete

Amicalement,
Camille

-----Message d'origine-----
Bonjour,
J'ai une macro qui utilise un bon nombre de feuille
temporaire (9), a la fin de la macro, je les supprimes
toutes.

Quand j'en supprime une (quelque soit celle ci) ça marche
bien, mais si j'en supprime plus (au moins 2) alors la...
la macro continue a bien tourner, toutes les sheets sont
bien supprimées, le workbook est bien sauvegardé, puis
bien fermé sans aucune erreur.
mais quand je l'ouvre a la main, alors EXCEL me dit:
EXCEL has generated an error...
et il se ferme.

J'enleve le fait de fermé le fichier, mais je laisse la
sauvegarde auto. Le fichier finale, je le sauvegarde a la
main sous un autre nom, je le ferme et le reouvre sans
aucun probleme. par contre quand j'essai d'ouvrir celui
saugardé automatiquement alors j'ai toujours la meme
erreur.

Je vois pas trop d'ou vient le probleme, et je me demande
si le fais de faire
ActiveWorkbook.Sheets("Sheet1").delete
ActiveWorkbook.Sheets("Sheet2").delete
ActiveWorkbook.Sheets("Sheet3").delete
ne posait pas de probleme, s'il fallait pas que je mette
une tempo entre chaque... ou s'il y a une astuce pour
supprimer des feuilles

Il n'y a pas de lien entre les feuilles (vlookup, pivot
ou

formule...) je copie et colle seulement les 'values' pour
eviter ceux ci.

D'avance merci pour vos réponses
Blaster
.



Avatar
michdenis
Bonjour Blaster,

Avec la macro suivante, je n'ai eu aucun problème : Excel 2000

'------------------
Sub SupprimerFeuille_SauvegarderFichier()

Application.DisplayAlerts = False
With ActiveWorkbook
.Sheets("Feuil1").Delete
.Sheets("Feuil2").Delete
.Sheets("Feuil3").Delete
.ActiveSheet.Range("A1").Select
.Close True
End With
End Sub
'------------------

Salutations!



"Blaster" a écrit dans le message de news:765701c34490$8e591cd0$
Bonjour,
J'ai une macro qui utilise un bon nombre de feuille
temporaire (9), a la fin de la macro, je les supprimes
toutes.

Quand j'en supprime une (quelque soit celle ci) ça marche
bien, mais si j'en supprime plus (au moins 2) alors la...
la macro continue a bien tourner, toutes les sheets sont
bien supprimées, le workbook est bien sauvegardé, puis
bien fermé sans aucune erreur.
mais quand je l'ouvre a la main, alors EXCEL me dit:
EXCEL has generated an error...
et il se ferme.

J'enleve le fait de fermé le fichier, mais je laisse la
sauvegarde auto. Le fichier finale, je le sauvegarde a la
main sous un autre nom, je le ferme et le reouvre sans
aucun probleme. par contre quand j'essai d'ouvrir celui
saugardé automatiquement alors j'ai toujours la meme
erreur.

Je vois pas trop d'ou vient le probleme, et je me demande
si le fais de faire
ActiveWorkbook.Sheets("Sheet1").delete
ActiveWorkbook.Sheets("Sheet2").delete
ActiveWorkbook.Sheets("Sheet3").delete
ne posait pas de probleme, s'il fallait pas que je mette
une tempo entre chaque... ou s'il y a une astuce pour
supprimer des feuilles

Il n'y a pas de lien entre les feuilles (vlookup, pivot ou
formule...) je copie et colle seulement les 'values' pour
eviter ceux ci.

D'avance merci pour vos réponses
Blaster
Avatar
Blaster
J'ai aussi essayé cette méthode, mais j'ai le même
résultat. Je pense que je dois avoir une erreur mémoire
quelque part... je vois pas pourquoi le fais de supprimer
plusieurs feuilles peut provoquer la fermeture d' EXCEL

Merci de ta réponse
Blaster


-----Message d'origine-----
Bonjour,

Essaie ceci :
Sheets(Array("Feuil1 (2)", "Feuil2 (2)", "Feuil3
(2)")).Delete

Amicalement,
Camille

-----Message d'origine-----
Bonjour,
J'ai une macro qui utilise un bon nombre de feuille
temporaire (9), a la fin de la macro, je les supprimes
toutes.

Quand j'en supprime une (quelque soit celle ci) ça
marche


bien, mais si j'en supprime plus (au moins 2) alors la...
la macro continue a bien tourner, toutes les sheets sont
bien supprimées, le workbook est bien sauvegardé, puis
bien fermé sans aucune erreur.
mais quand je l'ouvre a la main, alors EXCEL me dit:
EXCEL has generated an error...
et il se ferme.

J'enleve le fait de fermé le fichier, mais je laisse la
sauvegarde auto. Le fichier finale, je le sauvegarde a
la


main sous un autre nom, je le ferme et le reouvre sans
aucun probleme. par contre quand j'essai d'ouvrir celui
saugardé automatiquement alors j'ai toujours la meme
erreur.

Je vois pas trop d'ou vient le probleme, et je me
demande


si le fais de faire
ActiveWorkbook.Sheets("Sheet1").delete
ActiveWorkbook.Sheets("Sheet2").delete
ActiveWorkbook.Sheets("Sheet3").delete
ne posait pas de probleme, s'il fallait pas que je mette
une tempo entre chaque... ou s'il y a une astuce pour
supprimer des feuilles

Il n'y a pas de lien entre les feuilles (vlookup, pivot
ou

formule...) je copie et colle seulement les 'values'
pour


eviter ceux ci.

D'avance merci pour vos réponses
Blaster
.

.