Suppression de feuille par macro

Le
rthompson
Bonjour à toutes et tous


Dans un fichier XLS en office2003

J'ai une macro qui fait toute une serie d'importation (merci les gars)

Ce que je voudrais c'est qu'en terminant il supprime toutes les feuilles à
part une

La macro est ci-dessous
Et je voudrais garder uniquement la feuille nommée "OrdersToDate"

Merci et à très bientôt

Rex

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Sub Cmdresume_Click()
Dim Choix As Integer, NomFichier As String, i As Integer
ChDir "C:AA-Rex-DataPaperviewgabors files for macros"
ChDrive "c:"
Choix = 6
Do While Choix = 6
Application.Dialogs(xlDialogOpen).Show
NomFichier = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
With Workbooks("Master-rex.xls")
.Sheets.Add
For i = 1 To .Sheets.Count
If NomFichier = .Sheets(i).Name Then
MsgBox "Ce classeur a déjà été ouvert"
ActiveWorkbook.Close
Application.DisplayAlerts = False
.Sheets(1).Delete
Application.DisplayAlerts = True
Exit Sub
End If
Next i
.Sheets(1).Name = NomFichier
ActiveSheet.Range("A62:X62").Copy
End With
Windows("Master-rex.xls").Activate
Sheets("OrdersToDate").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
ActiveCell.PasteSpecial Paste:=xlPasteValues
Workbooks(NomFichier & ".xls").Close

Choix = MsgBox("Ouvrir un autre classeur ?", 3)
If Choix = 2 Then Exit Sub ' Choix "Annuler"
If Choix = 7 Then Exit Do ' Choix "Non"
Loop
'*************************
'Traitement des données
'*************************

End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #17660611
Bonjour.
Essaie :

Sub test()
Dim sh As Worksheet
For Each sh In Sheets
Application.DisplayAlerts = False
If sh.Name <> "OrdersToDate" Then
sh.Delete
Next sh
Application.DisplayAlerts = True
End Sub

Cordialement.
Daniel

Bonjour à toutes et tous


Dans un fichier XLS en office2003

J'ai une macro qui fait toute une serie d'importation (merci les gars)

Ce que je voudrais c'est qu'en terminant il supprime toutes les feuilles à
part une

La macro est ci-dessous
Et je voudrais garder uniquement la feuille nommée "OrdersToDate"

Merci et à très bientôt

Rex

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Sub Cmdresume_Click()
Dim Choix As Integer, NomFichier As String, i As Integer
ChDir "C:AA-Rex-DataPaperviewgabors files for macros"
ChDrive "c:"
Choix = 6
Do While Choix = 6
Application.Dialogs(xlDialogOpen).Show
NomFichier = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
With Workbooks("Master-rex.xls")
.Sheets.Add
For i = 1 To .Sheets.Count
If NomFichier = .Sheets(i).Name Then
MsgBox "Ce classeur a déjà été ouvert"
ActiveWorkbook.Close
Application.DisplayAlerts = False
.Sheets(1).Delete
Application.DisplayAlerts = True
Exit Sub
End If
Next i
.Sheets(1).Name = NomFichier
ActiveSheet.Range("A62:X62").Copy
End With
Windows("Master-rex.xls").Activate
Sheets("OrdersToDate").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
ActiveCell.PasteSpecial Paste:=xlPasteValues
Workbooks(NomFichier & ".xls").Close

Choix = MsgBox("Ouvrir un autre classeur ?", 3)
If Choix = 2 Then Exit Sub ' Choix "Annuler"
If Choix = 7 Then Exit Do ' Choix "Non"
Loop
'*************************
'Traitement des données
'*************************

End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx


rthompson
Le #17660861
Bonsoir

T'avais juste (dans ta précipitation)
oublier le end if

Mais c'est Nickel

Reste jusyte l'autre question et puis une dernière pour ce soir

A bientôt

Rex



"Daniel.C"
Bonjour.
Essaie :

Sub test()
Dim sh As Worksheet
For Each sh In Sheets
Application.DisplayAlerts = False
If sh.Name <> "OrdersToDate" Then
sh.Delete
Next sh
Application.DisplayAlerts = True
End Sub

Cordialement.
Daniel

Bonjour à toutes et tous


Dans un fichier XLS en office2003

J'ai une macro qui fait toute une serie d'importation (merci les gars)

Ce que je voudrais c'est qu'en terminant il supprime toutes les feuilles
à part une

La macro est ci-dessous
Et je voudrais garder uniquement la feuille nommée "OrdersToDate"

Merci et à très bientôt

Rex

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Sub Cmdresume_Click()
Dim Choix As Integer, NomFichier As String, i As Integer
ChDir "C:AA-Rex-DataPaperviewgabors files for macros"
ChDrive "c:"
Choix = 6
Do While Choix = 6
Application.Dialogs(xlDialogOpen).Show
NomFichier = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) -
4)
With Workbooks("Master-rex.xls")
.Sheets.Add
For i = 1 To .Sheets.Count
If NomFichier = .Sheets(i).Name Then
MsgBox "Ce classeur a déjà été ouvert"
ActiveWorkbook.Close
Application.DisplayAlerts = False
.Sheets(1).Delete
Application.DisplayAlerts = True
Exit Sub
End If
Next i
.Sheets(1).Name = NomFichier
ActiveSheet.Range("A62:X62").Copy
End With
Windows("Master-rex.xls").Activate
Sheets("OrdersToDate").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
ActiveCell.PasteSpecial Paste:=xlPasteValues
Workbooks(NomFichier & ".xls").Close

Choix = MsgBox("Ouvrir un autre classeur ?", 3)
If Choix = 2 Then Exit Sub ' Choix "Annuler"
If Choix = 7 Then Exit Do ' Choix "Non"
Loop
'*************************
'Traitement des données
'*************************

End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx






Publicité
Poster une réponse
Anonyme