Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Y

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,
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...
Trier par date Trier par votes

Jacky67

XLDnaute Barbatruc
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
Vote positif 0 Vote négatif
Solution
Y

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
 
Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc
YANNISE à dit:
@Jacky67

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

où je peux modifier le lien dans la macro stp ?
Cliquez pour agrandir...
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

J
  • Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
456
Julien_B
J
C
  • Résolu(e)
XL 2013 affichage ou masquage groupes ruban personnalisé
Réponses
3
Affichages
457
chindou
C
T
  • Résolu(e)
XL 2021 Masquer des colonnes et affichage avec MDP
Réponses
11
Affichages
696
ThomAnalyses
T
M
  • Question
Autres Copier la ligne complète d’un tableau dans un autre tableau sous condition
Réponses
1
Affichages
218
djidji59430
A
  • Question
XL 2019 copier un tableau Excel dans un document word
Réponses
2
Affichages
284
chris
C
  • Question
XL 2019 vba excel : masquer un tableau word
Réponses
9
Affichages
634
CBX
C
C
  • Question
XL 2016 Excel Macro permettant de masquer une ligne lorsque les cellules de 2 colonnes contigües sont vides
Réponses
11
Affichages
247
chris63
C
  • Question
Microsoft 365 Classeur Disparu
Réponses
2
Affichages
404
Electron24
S
  • Question
XL 2016 Ajout bouton dans ruban
Réponses
2
Affichages
545
S[1]t'Yor
S
N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
371
Nel'
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…