XL 2016 Masquer onglets et ruban Excel & copier données dans un nouveau classeur

YANNISE

XLDnaute Junior
bonjour,

Pourriez-vous m'aider SVP, je voulais masquer le RUBAN Excel et j'ai fait une macro pour le faire mais le problème c'est quand la macro est activée il est aussi activé pour tous les classeurs œuvres dans mon PC
je veux juste l'activation pour le classeur en question

autre problème sur une macro je veux extraire les résultats de tableau filtre dans un nouveau classeur Excel mais je n’arrive pas sélectionner le tableau automatiquement

Mon fichier ci joint

Merci d'avance pour l'aider
 

Pièces jointes

  • Classeur1.xlsm
    17 KB · Affichages: 5
Solution
bonjour,

Pourriez-vous m'aider SVP, je voulais masquer le RUBAN Excel et j'ai fait une macro pour le faire mais le problème c'est quand la macro est activée il est aussi activé pour tous les classeurs œuvres dans mon PC
je veux juste l'activation pour le classeur en question

autre problème sur une macro je veux extraire les résultats de tableau filtre dans un nouveau classeur Excel mais je n’arrive pas sélectionner le tableau automatiquement

Mon fichier ci joint

Merci d'avance pour l'aider
Bonjour,
Une proposition en PJ
Pour masquer le ruban et garder les boutons pour le faire
Dans le thisworkbook
VB:
Private Sub Workbook_WindowActivate(ByVal Wn As Window)    '*****Plein_Ecran()
    Call Plein_Ecran
End Sub

Private Sub...

Jacky67

XLDnaute Barbatruc
bonjour,

Pourriez-vous m'aider SVP, je voulais masquer le RUBAN Excel et j'ai fait une macro pour le faire mais le problème c'est quand la macro est activée il est aussi activé pour tous les classeurs œuvres dans mon PC
je veux juste l'activation pour le classeur en question

autre problème sur une macro je veux extraire les résultats de tableau filtre dans un nouveau classeur Excel mais je n’arrive pas sélectionner le tableau automatiquement

Mon fichier ci joint

Merci d'avance pour l'aider
Bonjour,
Une proposition en PJ
Pour masquer le ruban et garder les boutons pour le faire
Dans le thisworkbook
VB:
Private Sub Workbook_WindowActivate(ByVal Wn As Window)    '*****Plein_Ecran()
    Call Plein_Ecran
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)    '****Normal_Ecran()
    Call Normal_Ecran
End Sub
Une proposition pour le code de copie d'une extraction filtrée
Code:
Sub AddNew()
    Dim Plage
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    With Feuil1
        Set Plage = .Range("b2").CurrentRegion
        Application.Workbooks.Add
        Plage.SpecialCells(xlCellTypeVisible).Copy ActiveWorkbook.ActiveSheet.Range("b1")
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Extraction de " & Split(ThisWorkbook.Name, ".")(0), FileFormat:=51
        ActiveWorkbook.Close , False
    End With
    Application.EnableEvents = True
End Sub
 

Pièces jointes

  • ecran et plus.xlsm
    22.6 KB · Affichages: 5

YANNISE

XLDnaute Junior
@Jacky67

oui de ce genres C:\xxx\Téléchargements

où je peux modifier le lien dans la macro stp ?

Sub AddNew()
Dim Plage
Application.EnableEvents = False
Application.ScreenUpdating = False
With Feuil2
Set Plage = .Range("b2").CurrentRegion
Application.Workbooks.Add
Plage.SpecialCells(xlCellTypeVisible).Copy ActiveWorkbook.ActiveSheet.Range("b1")
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Extraction de " & Split(ThisWorkbook.Name, ".")(0), FileFormat:=51
ActiveWorkbook.Close , False
End With
Application.EnableEvents = True
End Sub
 

Jacky67

XLDnaute Barbatruc
@Jacky67

oui de ce genres C:\xxx\Téléchargements

où je peux modifier le lien dans la macro stp ?
RE
Remplace cette ligne
VB:
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Extraction de " & Split(ThisWorkbook.Name, ".")(0), FileFormat:=51
par
Code:
ActiveWorkbook.SaveAs "C:\xxx\Téléchargements\Extraction de " & Split(ThisWorkbook.Name, ".")(0), FileFormat:=51
En adaptant xxx bien sur.
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T