Faire apparaître la nouvelle feuille ExcelRésolu

Question

Bonjour à tous, Dans mon fichier Excel qui fonctionne avec des interfaces VBA, le fichier Excel est Application.Visible = False. À une certaine étape, je peux cliquer sue un bouton pour transférer les données du fichier Excel vers une nouvelle feuille Excel vierge. Mais je voudrais que seulement cette nouvelle feuille Excel qui s'ouvre avec les données ajoutées devienne Application.Visible = True, laissant le reste Application.Visible = False. Comment faire? Voici le script que j'ai juste qu'à maintenant:

Cells.Select Range("A2").Activate Selection.Copy Workbooks.Add ActiveSheet.Paste Rows("1:2").Select Range("A2").Activate Selection.EntireRow.Hidden = False Rows("1:1").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp Rows("2:2").Select Selection.Delete Shift:=xlUp Range("A1").Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Feuil1!R1C1:R5C48").CreatePivotTable TableDestination:="", TableName:= _ "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10 ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select

Merci de vôtre aide!

avyrex1926 · Accepted Answer

Merci MPI,
Je crois que je vais utiliser se cript enregister sous:

Cells.Select
    Range("A2").Activate
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Rows("1:2").Select
    Range("A2").Activate
    Selection.EntireRow.Hidden = False
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Feuil1!R1C1:R5C48").CreatePivotTable TableDestination:="", TableName:= _
        "Tableau croisé dynamique1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    Dim BoiteEnregistrerSous As Dialog
    Set BoiteEnregistrerSous = Application.Dialogs(xlDialogSaveAs)
    BoiteEnregistrerSous.Show

Merci quand même MPI pour ton aide

cs_MPi · Answer

Et si tu cachais toutes les feuilles sauf celle que tu veux afficher ?
À ce moment, pour utiliser les feuilles masquées, tu utilises Sheets("MaFeuille").Activate plutôt que Select

MPi

Faire apparaître la nouvelle feuille Excel

2 réponses

Votre réponse

Discussions similaires