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

[YANNISE]

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

 

[Jacky67]

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

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

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

 

[YANNISE]

bonjour @Jacky67

merci pour les macros

Cependant, je veux spécifier le chemin de fichier pour extraction, exemple le mettre dans le dossier Téléchargements

merci encore pour l'aider

 

[Jacky67]

bonjour @Jacky67

merci pour les macros

Cependant, je veux spécifier le chemin de fichier pour extraction, exemple le mettre dans le dossier Téléchargements

merci encore pour l'aider

Re..
Quel est le chemin complet du dossier "Téléchargements"
Genres (exemples)
C:\xxx\yyy\Téléchargements
D:\aaa\bbb\ccc\Téléchargements

 

[YANNISE]

@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]

@Jacky67

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

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

RE
Remplace cette ligne

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Extraction de " & Split(ThisWorkbook.Name, ".")(0), FileFormat:=51

par

ActiveWorkbook.SaveAs "C:\xxx\Téléchargements\Extraction de " & Split(ThisWorkbook.Name, ".")(0), FileFormat:=51

En adaptant xxx bien sur.

 

[YANNISE]

super merci bcp @Jacky67