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

XL 2016 Personnaliser fichier réservation véhicules

A

Averell1976

XLDnaute Junior
Bonjour à toutes et à tous,

Je cherche à personnaliser un super fichier créé par @leakim pour réserver une flotte de véhicules.
Je le remercie d'ailleurs sincèrement, ce fichier est top.

Je souhaiterai juste apporter des modifications sur l'onglet "Menu". J'ai quelques notions de vba mais je coince car je voudrais notamment modifier les images insérées (appelées "groupe 1, groupe 2...etc) en mettant des photos de nos propres véhicules qui renverraient au calendrier de résa, en cliquant dessus.

Il me faut pour cela activer le mode création du développeur. Mais je n'arrive pas à faire apparaître la barre de menus classique d'excel et lorsque je vais dans Fichier>options, je n'ai pas la main pour personnaliser le ruban... le code vba semble désactiver toutes ces fonctionnalités.

si quelqu'un peut me dire dans quelle partie du code vba cela est géré, ce serait super gentil.

Un grand merci pour votre aide
 
Trier par date Trier par votes
A

Averell1976

XLDnaute Junior
shinozak à dit:
Bonjour,

Est-ce qu'il y a ça dans le code ?
VB: 
Application.DisplayFullScreen = True

Si oui, suffit de passer le TRUE à FALSE a lafin de code.
Cliquez pour agrandir...
Bonjour,

Merci pour ton aide.
J'avais essayé, sans grand succès.
En fait, le code est:
VB: 
Option Explicit

Private Sub Workbook_Open()
 Dim cmdB As CommandBar
 Dim test

  For Each cmdB In Application.CommandBars
    cmdB.Enabled = False
  Next cmdB
'    si tu veux masquer en plus la barre d'état
'     la barre de formule
'     les onglets...
  With Application
    .DisplayFullScreen = False
    .DisplayStatusBar = False
    .DisplayFormulaBar = False
  End With
  With ActiveWindow
    .DisplayWorkbookTabs = False
    .DisplayHeadings = False
  End With

    Sheets("menu").Select
    Application.Caption = Year(Date) & " - Leakim"
 End Sub
 
'puis les remettre à la fermeture du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'End Sub
Dim cmdB As CommandBar
  For Each cmdB In Application.CommandBars
    cmdB.Enabled = True
  Next cmdB
  With Application
    .DisplayFullScreen = False
    .DisplayStatusBar = True
    .DisplayFormulaBar = True
  End With
  With ActiveWindow
    .DisplayWorkbookTabs = True
    .DisplayHeadings = True
  End With
  Application.Caption = ""
 End Sub
 
Private Sub CloseandSave()

    Application.DisplayAlerts = False
    Application.Quit
    With ThisWorkbook
        .Save
        .Close
        End With
    Application.DisplayAlerts = True
    
    End Sub
 
Vote positif 0 Vote négatif

shinozak

XLDnaute Occasionnel
Plus simple avec le code aha. En gros le code te bloque à l'ouverture la barre d'état/ onglet/ etc.
A la fermeture il te débloque l'accès. Donc remplace tout les FALSE par TRUE dans Private_Sub Workbook Open. Enregistre le fichier et reouvre le.
 
Vote positif 0 Vote négatif
A

Averell1976

XLDnaute Junior
Merci beaucoup. mais je teste et cela ne fonctionne pas.
J'ai mis:
VB: 
Private Sub Workbook_Open()
 Dim cmdB As CommandBar
 Dim test

  For Each cmdB In Application.CommandBars
    cmdB.Enabled = False
  Next cmdB
'    si tu veux masquer en plus la barre d'état
'     la barre de formule
'     les onglets...
  With Application
    .DisplayFullScreen = True
    .DisplayStatusBar = True
    .DisplayFormulaBar = True
  End With
  With ActiveWindow
    .DisplayWorkbookTabs = True
    .DisplayHeadings = True
  End With

    Sheets("menu").Select
    Application.Caption = Year(Date) & " - Leakim"
 End Sub
 
'puis les remettre à la fermeture du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'End Sub
Dim cmdB As CommandBar
  For Each cmdB In Application.CommandBars
    cmdB.Enabled = True
  Next cmdB
  With Application
    .DisplayFullScreen = False
    .DisplayStatusBar = True
    .DisplayFormulaBar = True
  End With
  With ActiveWindow
    .DisplayWorkbookTabs = True
    .DisplayHeadings = True
  End With
  Application.Caption = ""
 End Sub
 
Private Sub CloseandSave()

    Application.DisplayAlerts = False
    Application.Quit
    With ThisWorkbook
        .Save
        .Close
        End With
    Application.DisplayAlerts = True
    
    End Sub
 
Vote positif 0 Vote négatif
A

Averell1976

XLDnaute Junior
shinozak à dit:
Passe aussi cmdB.Enabled = True
Cliquez pour agrandir...
Marche toujours pas
VB: 
Option Explicit

Private Sub Workbook_Open()
 Dim cmdB As CommandBar
 Dim test

  For Each cmdB In Application.CommandBars
    cmdB.Enabled = True
  Next cmdB
'    si tu veux masquer en plus la barre d'état
'     la barre de formule
'     les onglets...
  With Application
    .DisplayFullScreen = True
    .DisplayStatusBar = True
    .DisplayFormulaBar = True
  End With
  With ActiveWindow
    .DisplayWorkbookTabs = True
    .DisplayHeadings = True
  End With

    Sheets("menu").Select
   ' Application.Caption = Year(Date) & " - Leakim"
 End Sub
 
'puis les remettre à la fermeture du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'End Sub
Dim cmdB As CommandBar
  For Each cmdB In Application.CommandBars
    cmdB.Enabled = True
  Next cmdB
  With Application
    .DisplayFullScreen = False
    .DisplayStatusBar = True
    .DisplayFormulaBar = True
  End With
  With ActiveWindow
    .DisplayWorkbookTabs = True
    .DisplayHeadings = True
  End With
  Application.Caption = ""
 End Sub
 
Private Sub CloseandSave()

    Application.DisplayAlerts = False
    Application.Quit
    With ThisWorkbook
        .Save
        .Close
        End With
    Application.DisplayAlerts = True
    
    End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2010 Ajout d’un onglet/ruban de cde personnalisé Excel en VBA
Réponses
4
Affichages
5 K
jeanmi
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…